[Мышь, клавиатура] Нажатие и удерживание клавиш.

HotKeySet("{F1}", "_Pause") 
HotKeySet("{F2}", "_NotPause") 
Global $Paused
Func _Pause()
    $Paused = True
    While $Paused
        Sleep(100)
    WEnd
EndFunc
Func _NotPause()
    $Paused = False
EndFunc

While 1
    $aWinList = WinList('Counter-Strike')
    $pid = WinGetProcess("Counter-Strike")
    For $i = 1 To $aWinList[0][0] Step +1
        If WinGetProcess($aWinList[$i][1]) = $Pid Then
            Sleep (2000)
            ControlSend($aWinList[$i][1], '', '', '{Space}')
            Sleep (2000)
            ControlSend($aWinList[$i][1], '', '', '{5}')
            Sleep (2000)
            ControlSend($aWinList[$i][1], '', '', '{5}')
            Sleep (2000)
            ControlSend($aWinList[$i][1], '', '', '{1}')
            Sleep(1000)
            ControlSend($aWinList[$i][1], '', '', '{9}')
            Sleep (1000)
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ControlSend($aWinList[$i][1], '', '', '{0}')
            ExitLoop
        EndIf
     Next
 WEnd

ControlSend($aWinList[$i][1], '', '', "{0 down}")
Sleep(1000)
ControlSend($aWinList[$i][1], '', '', "{0 up}")