madmasles
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Cancer_to_Shanghai
Попробуйте. Должна посылать в окно игры по очереди "Влево" - "Вправо" с интервалом 0,1 секунды. Проверял на Блокноте.
Код: Global $hWin = 0, $fLeft = False, $fClick = False, $fPause = False, _
$sTitle = 'Заголовок окна Вашей игры' ;сюда впишите заголовок Вашей игры. Это важно
Break(0)
TraySetToolTip('Кнопка Ctrl + 2 - пауза, повторное нажатие - продолжить' & @LF & 'Кнопка Esc - выход')
HotKeySet('{Esc}', '_Exit') ;Esc - выход
HotKeySet('^{2}', '_Pause') ;Ctrl + 2 - пауза, повторное нажатие - продолжить.
While 1
If Not $fPause Then
If Not $fClick Then
If WinExists($sTitle) Then
$hWin = WinGetTitle($sTitle)
$fClick = True
EndIf
EndIf
If $fClick Then
$fLeft = Not $fLeft
If $fLeft Then
ControlSend($hWin, '', '', '{LEFT}')
Else
ControlSend($hWin, '', '', '{RIGHT}')
EndIf
If Not WinExists($hWin) Then
$fClick = False
EndIf
EndIf
EndIf
Sleep(100) ;интервал между кликами влево-вправо (1000 - одна секунда)
WEnd
Func _Exit()
Exit
EndFunc ;==>_Exit
Func _Pause()
$fPause = Not $fPause
If $fPause Then
ToolTip('Пауза в работе', 0, 0)
Else
ToolTip('')
EndIf
EndFunc ;==>_Pause |
|
Всего записей: 1277 | Зарегистр. 25-09-2008 | Отправлено: 20:11 04-04-2011 | Исправлено: madmasles, 23:22 04-04-2011 |
|
. 
