Untitled
unknown
plain_text
10 months ago
1.2 kB
2
Indexable
Never
; Das Skript bleibt aktiv Opt("SendKeyDelay", 0) ; Keine Verzögerung zwischen den Tastendrücken Opt("SendKeyDownDelay", 0) Global $EFunctionActive = False ; Funktion, um die E-Taste alle 5 Sekunden zu drücken und halten Func StartEFunction() $EFunctionActive = True While $EFunctionActive Send("{e down}") ; Die Taste "E" wird gedrückt Sleep(5020) ; 5000 Millisekunden (5 Sekunden) warten Send("{e up}") ; Die Taste "E" wird losgelassen Sleep(1000) ; 1000 Millisekunden (1 Sekunde) warten WEnd EndFunc ; Funktion, um den Idle-Modus zu starten (P-Taste) Func IdleMode() While 1 Sleep(100000) ; 1000 Millisekunden (1 Sekunde) warten Beep(500,10) WEnd EndFunc ; Funktion zum Beenden des Skripts (Notaus-Taste) Func StopScript() Exit EndFunc ; Tastenkombinationen für die Funktionen HotKeySet("ü", "StartEFunction") ; Mit "ü" wird die E-Funktion gestartet HotKeySet("p", "IdleMode") ; Mit "p" wird der Idle-Modus gestartet HotKeySet("#", "StopScript") ; Mit "#" wird das Skript beendet While 1 Sleep(100) ; Skript am Laufen halten WEnd