BlackBrother
Новичок
- Сообщения
- 4
- Репутация
- 1
Здравствуйте!
По просьбе написал скрипт для автоматитческого запуска программы и регистрации в ней )) (Криво конечно но работает )
вот собственно он
вот теперь осталось только добавить запуск всего этого через заданное время )) в идеале хотел чтобы можно было ввести время через input или как то еще )) и после заполнения всех данных нажимается конопка ок и собственно ждем таймер до старта )
пробывал по простому ставить Case @HOUR=19 AND @MIN=25 оно работает, только вот программа постоянно стартует заново и получается множество копий ))
Подскажите пожалуйста решение. Спасибо! ))
p.s. Опыт написания программ только Delphi :-[
По просьбе написал скрипт для автоматитческого запуска программы и регистрации в ней )) (Криво конечно но работает )
вот собственно он
Код:
#include <GUIConstantsEx.au3>
Opt("WinTitleMatchMode", 2); Other Option for WinWaitActive
$sFile = @ScriptDir & '\wow.exe'
GUICreate("Запуск ", 260, 260)
GUISetFont(8.5, 800)
GUICtrlCreateLabel("Username", 100, 13)
GUICtrlCreateLabel("Password", 100, 60)
GUICtrlCreateLabel("Путь к игре", 100, 107)
GUISetFont(8.5, 400)
;Button
$input1 = GUICtrlCreateInput("", 10, 29, 240, 20)
$input2 = GUICtrlCreateInput("", 10, 76, 240, 20)
$input3 = GUICtrlCreateInput($sFile, 10, 123, 240, 20)
$ok = GUICtrlCreateButton("Ok", 100, 170, 100, 25)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
;------------ OK Button - Finished
Case $msg = $ok
Run( GUICtrlRead($input3) ) ; запускаем WOW
Sleep(20000); ждем загрузки игры
WinWait("World of Warcraft","")
Sleep(200); ждем секунду
Send ( GUICtrlRead($input1) )
Sleep(200)
Send("{tab}")
Sleep(200)
Send ( GUICtrlRead($input2) )
Sleep(300); ждем еще чуть чуть
Send("{enter}"); нажимаем ентер))
;------------ Cross - Finished
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
WEnd
вот теперь осталось только добавить запуск всего этого через заданное время )) в идеале хотел чтобы можно было ввести время через input или как то еще )) и после заполнения всех данных нажимается конопка ок и собственно ждем таймер до старта )
пробывал по простому ставить Case @HOUR=19 AND @MIN=25 оно работает, только вот программа постоянно стартует заново и получается множество копий ))
Подскажите пожалуйста решение. Спасибо! ))
p.s. Опыт написания программ только Delphi :-[