Версия AutoIt: v3.
Описание: Совместите эти 2 скрипта так что, бы второй скрипт срабатывал каждые пол часа или так как задам я, но при этом первый скрипт должен работать всегда (ну только должен переставать работать при выполнении действий второго скрипта), если это возможно...
Описание: Совместите эти 2 скрипта так что, бы второй скрипт срабатывал каждые пол часа или так как задам я, но при этом первый скрипт должен работать всегда (ну только должен переставать работать при выполнении действий второго скрипта), если это возможно...
Код:
TraySetToolTip('Кач - человек')
MsgBox(0,"Описание","F1 - Pause"&@CRLF&"F2 - NotPause")
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 (1000)
ControlSend($aWinList[$i][1], '', '', '{Space}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{0 down}')
sleep (500)
ControlSend($aWinList[$i][1], '', '', '{0 up}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{5}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{5}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{0 down}')
Sleep(500)
ControlSend($aWinList[$i][1], '', '', '{0 up}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{2}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{0 down}')
Sleep (500)
ControlSend($aWinList[$i][1], '', '', '{0 up}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{9}')
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', '{F5 down}')
Sleep (Random(100,200))
ControlSend($aWinList[$i][1], '', '', '{F5 up}')
Sleep (500)
ControlSend($aWinList[$i][1], '', '', '{8}')
ExitLoop
EndIf
Next
WEnd
Код:
$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 (1000)
ControlSend($aWinList[$i][1], '', '', '{ё}') ;консоль открывается
Sleep (1000)
ControlSend($aWinList[$i][1], '', '', 'connect 62.122.213.23',1)
ControlSend($aWinList[$i][1], '', '', ':',1)
ControlSend($aWinList[$i][1], '', '', '27283',1)
Sleep (100)
ControlSend($aWinList[$i][1], '', '', '{ENTER}')
ExitLoop
EndIf
Next