Beiträge von Schnitzel

  • PC sperren?

    Grundsätzlich wenn man solche Befehle nicht weiß isses das leichteste zu googln.
    Eine vollständige Liste kenn ich nicht. Es gibt aber Programme die können die Funktionen einer dll auslesen

  • Schleife stoppt ohne Fehlermeldung (Probleme mit FileWriteLine?)

    Autoit hat meines Wissens keine Probleme mit dem Schreiben in Dateien.
    Was mir aber sofort auffällt ist dass du Fileopen und FileClose falsch verstanden hast.
    Fileopen nimmt man wenn man oft auf eine Datei zugreift (was ja bei dir der Fall ist)
    Man schließt die Datei aber am besten erst wenn man mit den Dateizugriffen fertig ist.
    In deinem Script werden die Log-Datei zwar immer wieder geöffnet aber das Dateihandle nicht verwenden.
    Wieso es nur bis zu einer bestimmten Zahl läuft kann ich mir nicht erklären. Aber ich würde ein Autoit Problem eher ausschließen.

    Hier mal dein Script verbessert mit Fileopen und Fileclose

    [autoit]


    $log = "O:\test\Log.txt"
    $text = "Hier läuft eine Schleife..."
    $openfile = FileOpen($log, 1)

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

    For $i = 1 to 500
    FileWriteLine($openfile, $i & " " & $text)
    Next

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

    Sleep(10000)

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

    FileWriteLine($openfile, " ")
    FileWriteLine($openfile, $i & " " & $text)

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

    $a = 1
    while $a <= 1000
    FileWriteLine($openfile, $a & " " & $text)
    $a += 1
    WEnd

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

    Sleep(10000)

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

    FileWriteLine($openfile, " ")
    FileWriteLine($openfile, $a & " " & $text)
    FileClose($openfile)

    [/autoit]

    Bei mir wird die Datei richtig geschrieben. Siehe Anhang

  • Problem mit Excel in anders Programm Daten kopieren

    Bei mir läuft das Script.
    Mit deinen angaben kann man nicht herrausfinden wo der Fehler liegt!

    Zitat

    Wieso sollte ich die Zellen in ein Array kopieren?


    Weil es so zu 99% leichter ist die Daten zu verarbeiten.
    Außerdem ist es 100 mal sicherer. Mit Strg+C zu arbeiten is sehr fehleranfällig.

    Gib doch einfach mal genauere Details was du wohinkopierst.
    Am besten stellste die Excel (oder ne ähnliche Beispieldatei) zur Verfügung und erklärst mal was für ein "Geheim"-programm das ist wohin du es kopierst.
    Wie soll man dir helfen wenn man sogut wie nichts weiß. Es gibt n paar Tausend Möglichkeiten wieso das nicht funktioniert...

  • _ispressed zu lange erkannt?

    Rein von der Logik her musst du quasi überprüfen ob die Maus zwischendurch auch wieder losgelassen wurde (mal ganz einfach gesagt^^)

    Im Script würde das z.B. so aussehn:

    [autoit]

    #include <Misc.au3>
    HotKeySet("{ESC}", "Terminate")

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

    Global $x = 0

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

    While 1
    While not _IsPressed(01)
    Sleep(10)
    WEnd
    $x = $x + 1
    While _IsPressed(01)
    Sleep(10)
    WEnd
    WEnd

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

    Func Terminate()
    MsgBox(4096, "Mausclicks", $x)
    Exit
    EndFunc

    [/autoit]

    edit das war gerade etwas müll :D

  • einfaches Installationsscript für TrueCrypt - Checkbox anklicken funktioniert nicht

    Bei Software die sogenannte silent Installation anbietet würde ich diese verwenden.
    Dann brauchst du die Installations-exe nur mit den richtigen Parametern aufrufen. (einfach und sicher ;) )
    Die richtigen Parameter findest du hier: http://www.truecrypt.org/docs/?s=command-line-usage

    Es geht aber auch mit Controlfunktionen.
    Wie du bereits gemerkt hast geht nicht immer jede Funktion.
    Im falle der Checkbox für die Lizenz würde das gehen:

    [autoit]

    ControlSend("TrueCrypt Setup 7.0a","","[CLASS:#32770; INSTANCE:1]", "!c")

    [/autoit]


    Wie ich darauf gekommen bin?
    Einfach im entsprechenden Fenster Alt drücken und schon sieht man die unterstrichenen Buchstaben über die sich ein Control anwählen lässt ^^

    Gruß
    Schnitzel

    PS: das nächste mal bitte unter Hilfe & Unterstützung posten. (Weil du ja nur eine Frage hattest und nicht ein komplettes Programm geschrieben haben willst)
    Dort ist normalerweise der Support auch etwas schneller^^

  • Brauche Hilfe bei Keybinder

    Quick and dirty mit arrays:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #include <ComboConstants.au3>

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

    Dim $Input[10], $Combo[10], $CheckboxAktiv[10], $CheckboxEnter[10]
    $combotext = "1|2|3|4|5|6|7|8|9|0|F1|F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|F12|NUMPAD1|NUMPAD2|NUMPAD3|NUMPAD4|NUMPAD5|NUMPAD6|NUMPAD7|NUMPAD8|NUMPAD9|NUMPAD0"

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

    $Form1 = GUICreate("SA:MP Keybinder by cOraXx", 700, 250)
    Dim $Input[10], $Combo[10], $CheckboxAktiv[10], $CheckboxEnter[10]
    For $i = 0 To 9
    $Input[$i] = GUICtrlCreateInput("", 8, 8 + $i*24, 417, 21)
    $Combo[$i] = GUICtrlCreateCombo("", 432, 8 + $i*24, 89, 25, $CBS_DROPDOWNLIST)
    GUICtrlSetData(-1, $combotext)
    $CheckboxAktiv[$i] = GUICtrlCreateCheckbox("Aktivieren", 528, 8 + $i*24, 65, 25)
    $CheckboxEnter[$i] = GUICtrlCreateCheckbox("ENTER", 600, 8 + $i*24, 65, 25)
    Next
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $CheckboxAktiv[0] To $CheckboxAktiv[9]
    $ID = 0
    While $nMsg <> $CheckboxAktiv[$ID]
    $ID += 1
    WEnd
    If GUICtrlRead($nMsg) = $GUI_CHECKED Then
    HotKeySet(GUICtrlRead($Combo[$ID]), "_Keybind")
    GUICtrlSetState($Combo[$ID], $GUI_DISABLE)
    GUICtrlSetState($Input[$ID], $GUI_DISABLE)
    Else
    HotKeySet(GUICtrlRead($nMsg-1))
    GUICtrlSetState($Combo[$ID], $GUI_ENABLE)
    GUICtrlSetState($Input[$ID], $GUI_ENABLE)
    EndIf
    EndSwitch
    WEnd

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

    Func _Keybind()
    For $i = 0 To 9
    If @HotKeyPressed = GUICtrlRead($Combo[$i]) Then
    HotKeySet(GUICtrlRead($Combo[$i]))
    Send(GUICtrlRead($Input[$i]),1)
    If GUICtrlRead($CheckboxEnter[$i]) = $GUI_CHECKED Then Send("{ENTER}")
    HotKeySet(GUICtrlRead($Combo[$i]), "_Keybind")
    EndIf
    Next
    EndFunc

    [/autoit]