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 |
|