Beiträge von Joriktos

  • [Suche Leute] 2D RPG-Spiel in Autoit

    Also ich wäre auch dabei :)
    Das Problem ist, dass ich dieses Jahr meinen Realschulabschluss mache, dass heißt ich habe nicht wirklich immer Zeit und ich muss erst mein MST noch soweit fertig stellen, dass ich mal eine Beta1 ins Forum stellen kann (Bin grad an Alpha7 dran ;) ).

    Gruß
    Joriktos

  • Prozesse aus INI in einer MsgBox auflisten

    Spoiler anzeigen
    [autoit]


    Global $ini = @ScriptDir & "\prozesse.ini"
    Global $aToCheck = IniReadSection($ini, "prozesse")
    Global $aProcesses[1] = [0]
    Global $sBlockingProcesses = ""

    [/autoit] [autoit][/autoit] [autoit]

    If IsArray($aToCheck) = 1 Then
    For $i = 1 To $aToCheck[0][0]
    If ProcessExists($aToCheck[$i][0]) Then
    $aProcesses[0] += 1 ; Anzahl der laufenden Prozesse erhöhen
    ReDim $aProcesses[$aProcesses[0] + 1] ; Array entsprechend um eins vergrößern
    $aProcesses[$aProcesses[0]] = $aToCheck[$i][0] ; Name des aktuell getesteten Prozesses hinzufügen
    EndIf
    Next
    If $aProcesses[0] <> 0 Then ; Wenn ein oder mehrere Prozesse blocken
    For $i = 1 To $aProcesses[0] ; Alle Prozesse in einen String mit Leerzeilen-Trennung schreiben
    $sBlockingProcesses &= $aProcesses[$i] & @CRLF
    Next
    $tmp = MsgBox(64 + 1, "Info", "Folgende Eintraege verhindern den Programmstart:" & @CRLF & @CRLF & $sBlockingProcesses & @CRLF & "Mit OK alle Prozesse schliessen und Programm starten" & @CRLF & "Mit ABBRECHEN spaeter erneut")
    Switch $tmp
    Case 1 ; OK
    For $i = 1 To $aProcesses[0] ; Blockende Prozesse schließen.
    ProcessClose($aProcesses[$i])
    Next
    Case 2 ; CANCEL
    Exit
    EndSwitch
    EndIf
    Else
    MsgBox(64, "Error", 'Keine "prozesse.ini" vorhanden.')
    EndIf

    [/autoit]

    So, das ganze habe ich grade per Handy getippt, also ist es sicher nicht perfekt und es können Fehler drin sein (vor allem von der Formatierung her) vom Prinzip her habe ich es dir aber mal so aufgebaut, wie ich es lösen würde ;)

    Und jetzt gute Nacht, liebe AutoIt'ler ;)
    Joriktos

    Edit: Hab's jetzt mit dem PC nochmal überarbeitet => So läuft es.

  • string split problem

    Ist doch logisch:

    [autoit]


    Func Dropdown_feed()
    Local $string, $temp
    $csv = FileOpen($bzpath)
    $anzahl = _FileCountLines($bzpath)
    MsgBox(0,"TEST", $anzahl)
    Global $zeilen[$anzahl+1][3] ; Globale Deklaration in einer Funktion? Sowas macht man nicht.
    For $i = 0 to $anzahl
    $string = FileReadLine($bzpath,$i)
    For $j = 0 To 1
    $temp = StringSplit($string, ";")
    $zeilen[$i][0] = $i
    $zeilen[$i][1] = $temp[1]
    $zeilen[$i][2] = $temp[2]
    Next
    Next
    _ArrayDisplay($zeilen,"TEST")
    EndFunc

    [/autoit]

    Du hast das Array in Zeile 6 für 2 Werte deklariert, willst aber 3 Eintragen, so sollte es jetzt gehen ;) Und richtig: Globale Deklarationen in Funktionen macht man nicht.

    Edit: Also es liegt nicht an $Temp[2] sondern an deinem zu kleinen $zeilen-Array ;)

  • StdinWrite Lotus Notes nfuxup.exe

    Und bist du dir sicher, dass das Programm überhaupt gestartet wird? Braucht das nfixup nicht noch ein .exe?
    Und braucht es das Passwort ganz am Anfang?

    Geht es, wenn du mal diesen einfachen Codeblock ausführst?

    [autoit]


    $foo = Run(@ProgramFilesDir & "\" & "notes\nfixup.exe", @UserProfileDir & "\NOTESDATA\", @SW_HIDE, $STDIN_CHILD + $STDOUT_CHILD) ; Habe hier mal ein .exe mit eingebaut
    Sleep(5000) ; 5 Sekunden nach Start des Programms warten
    StdinWrite($foo, "password" & @CR) ; Passwort an den STDIN-Stream des Programms senden

    [/autoit]

  • Auto IT Script - Dateilistener

    Nicht mehr wichtig
    [autoit]


    While 1
    If FileExists("C:\Path\") = 1 Then
    ;Copybefehl
    EndIf
    Sleep(120000) ; 2 Minuten
    WEnd

    [/autoit]

    Einfach, oder?
    (Also falls ich deine Frage richtig verstanden habe ;) )

    Edit:
    Hier ein besserer, vollständigerer Code:

    [autoit]


    $Path = "C:\Path\"
    $NewPath = "C:\NewPath\"

    [/autoit][autoit][/autoit][autoit]

    While 1
    If FileExists($Path) = 1 Then
    FileFindFirstFile($Path & "*.*")
    If @error <> 1 Then
    FileMove($Path & "*", $NewPath, 9) ; Achtung! Bestehende Dateien werden in diesem Beispiel überschrieben!
    SetError(0)
    EndIf
    EndIf
    Sleep(120000) ; 2 Minuten
    WEnd

    [/autoit]

  • VSync per WinAPI ?

    Wow, Andy kennt sich echt verdammt gut aus :)
    Aber theoretisch kann man seinen Monitor doch auch auf 75Hz stellen, oder? Dann ist das doch wieder ganz anders... Macht das Sinn, seinen Monitor auf 75 Hz zu stellen?

  • Array mischen


    Das dachte ich mir vorher auch, war aber mit dem Handy on und konnte deshalb nicht antworten... Würde mich auf jeden Fall auch interessieren :)