Что нового

[Мышь, клавиатура] Пауза в скрипте

jufas222

Знающий
Сообщения
93
Репутация
5
Autolt v3
Описание:

Код:
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



Доделайте пожалуйста скрипт так, что бы когда я заходил в это окно(игру), я мог приостановить действие скрипта (поставить на паузу) допустим на F1, а продолжить работу скрипта на F2.
P.S. Полазил на форуме, нашел несколько схожих тем, но не в одной из них я не нашел нужной мне информации.
 

rusreg79

Продвинутый
Сообщения
159
Репутация
57
Re: Пауза в скрипте

Код:
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
 
Автор
J

jufas222

Знающий
Сообщения
93
Репутация
5
Re: Пауза в скрипте

Спасибо, всё работает. Вы бы не могли мне объяснить почему у меня не получается в игре использовать буквы? цифры получается а буквы нет....приведите если не сложно пример с буквой в не активном окне.
 

rusreg79

Продвинутый
Сообщения
159
Репутация
57
Re: Пауза в скрипте

Возможно это из за раскладки клавиатуры, в место латиницы попробуй кириллицу посылать.
 
Автор
J

jufas222

Знающий
Сообщения
93
Репутация
5
Re: Пауза в скрипте

Нет не получается....
 
Автор
J

jufas222

Знающий
Сообщения
93
Репутация
5
Оформил.

rusreg79 [?]
Возможно это из за раскладки клавиатуры, в место латиницы попробуй кириллицу посылать.

В игре не надо было переводить язык.

Спасибо вы мне очень помогли.
 
Верх