Код:
Opt("TrayMenuMode", 1)
MsgBox(0, "HotKey", "Активация: HOME , Выход из программы: Alt+HOME")
Global $iTimer = 0
Global $iTime_Interval = 5
$Uzi = InputBox("HotKey", "Введите число")
If @Error = 1 Then
MsgBox(4096, "HotKey", "OK. Bye!")
Exit
EndIf
HotKeySet("!{HOME}", "Terminate")
HotKeySet("{HOME}", "Gun")
While 1
Sleep(100)
WEnd
Func Terminate()
MsgBox(4096, "HotKey", "OK. Bye!", 1)
Exit 0
EndFunc
Func Gun()
If TimerDiff($iTimer) >= $iTime_Interval * 1000 Then $iTimer = 0
If $iTimer = 0 Then
Send($Uzi)
$iTimer = TimerInit()
EndIf
EndFunc
