Angepasste Version von Kanashius' Script:
AutoIt
#include <Misc.au3>
#include <MsgBoxConstants.au3>
Global $iPressTime = 1000 ;Zeitspanne bis zum Senden der Nachricht in Millisekunden (1s = 1000 ms)
Local $hDLL = DllOpen("user32.dll")
While sleep(10)
;Senden mit T+STRG
If _IsPressed("11", $hDLL) and _IsPressed("54", $hDLL) Then
Local $iCount = 1
$timerStart=TimerInit()
Do
; Auf weitere Tastendrücke warten
If _IsPressed("11", $hDLL) and _IsPressed("54", $hDLL) Then
;Warten bis Taste losgelassen wird
While _IsPressed("11", $hDLL) and _IsPressed("54", $hDLL)
Sleep(10)
WEnd
;Zähler für Anzahl der Tastendrücke erhöhen, sobald Taste losgelassen wird
$iCount += 1
EndIf
; Bis eine Sekunde vergangen ist
Until TimerDiff($timerStart) > $iPressTime
;senden
_sendChatNr(TimerDiff($timerStart))
;Schließen mit ESC+ALT
ElseIf _IsPressed("1B", $hDLL) and _IsPressed("12", $hDLL) Then
ExitLoop
EndIf
WEnd
DllClose($hDLL)
exit
Func _sendChatNr($number)
Switch $number
Case 0
_sendChat("Message1")
Case 1
_sendChat("Message2")
Case 2
_sendChat("Message3")
Case Else
_sendChat("Message3")
EndSwitch
EndFunc
Func _sendChat($message)
;Actives Fenster ermitteln
$handle=WinGetHandle("[active]")
;Senden
ControlSend($handle,"",0,"{t}")
ControlSend($handle,"",0,$message)
ControlSend($handle,"",0,"{ENTER}")
EndFunc
Alles anzeigen