roma-nuke
Новичок
- Сообщения
- 1
- Репутация
- 0
Всем привет! Поиск выдал кучу вариантов, но то ли они устаревшие (ответы 2011, 2012 год) то ли я кривой.
Вот такой код получился:
Каждые час нужно открыть браузер, обновить страницу, кликнуть по кнопке и закрыть браузер.
Все действия выполняются как надо, но не повторяются каждый час. т.е. срабатывает код один раз. Помогите исправить!
Вот такой код получился:
Код:
#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000409) ---
#region --- Internal functions Au3Recorder Start ---
Func _Au3RecordSetup()
Opt('WinWaitDelay',100)
Opt('WinDetectHiddenText',1)
Opt('MouseCoordMode',0)
Local $aResult = DllCall('User32.dll', 'int', 'GetKeyboardLayoutNameW', 'wstr', '')
If $aResult[1] <> '00000409' Then
MsgBox(64, 'Warning', 'Recording has been done under a different Keyboard layout' & @CRLF & '(00000409->' & $aResult[1] & ')')
EndIf
EndFunc
Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
_AU3RecordSetup()
#endregion --- Internal functions Au3Recorder End ---
_WinWaitActivate("Program Manager","")
Do
MouseClick("left",591,1064,1)
_WinWaitActivate("zzgame.ru - - Nightly","")
MouseClick("left",837,68,1)
Sleep(15000)
MouseClick("left",1133,505,1)
Sleep(2000)
MouseClick("left",1399,16,1)
Sleep(3600000)
Until 1
#endregion --- Au3Recorder generated code End ---
Каждые час нужно открыть браузер, обновить страницу, кликнуть по кнопке и закрыть браузер.
Все действия выполняются как надо, но не повторяются каждый час. т.е. срабатывает код один раз. Помогите исправить!