Кайгородов В. Ю.
В универе только TurboBASIC изучал и то забыл уже
- Сообщения
- 25
- Репутация
- 0
У браузера от кликанья случаются разые "подвисания" и чтобы их устранить решил прописать в коде чтобы, в случае задержки на картинки одного цвета больше 30 секунд, бот закрывал и открывал браузер
Но код не работает таймер сбрасывается не достигая 30 секунд и перезагрузки не происходит.
Помогите переписать код.
Добавлено:
Может перенести тему куда-нибудь в другой раздел. Неужели это такой сложный вопрос :stars:
Код:
$timeintA = 3600000 ;1час
$timeintB = 30000 ;30сек
$y = 0xE7CB8E ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Sleep ( '350' )
$begin = TimerInit()
While TimerDiff($begin) < $timeintA
Sleep ( '350' )
Select
Case PixelGetColor(663, 701) = $y
MouseClick("primary", 663,518, 1, 0)
Sleep ( '350' )
While PixelGetColor(663, 701) = $y
OtshB()
WEnd
Case PixelGetColor(663, 701) = 0x0065CB
Click_Pergr()
Case PixelGetColor(663, 701) = 0x000000
Click_Pergr()
Case Else
OtshB()
EndSelect
WEnd
MsgBox(64, "Инфо", "Время работы цикла " & TimerDiff($begin) & " истекло")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func OtshB()
$beginC = TimerInit()
If TimerDiff($beginC) > $timeintB Then ;Таймер прошёл
Click_Pergr()
Else
Sleep ( '550' ) ;ждать
EndIf
EndFunc
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func Click_Pergr()
WinClose(WinWait("Google Chrome", "", 5))
Sleep ( '1350' )
RUN ("C:\Users\Sergey\AppData\Local\Google\Chrome\Application\chrome.exe")
Sleep ( '1350' )
WinWaitActive("Mail.Ru: почта, поиск в интернете, новости, игры, развлечения - Google Chrome", "", 3)
WinActivate ( "Mail.Ru: почта, поиск в интернете, новости, игры, развлечения - Google Chrome")
EndFunc
Но код не работает таймер сбрасывается не достигая 30 секунд и перезагрузки не происходит.
Помогите переписать код.
Добавлено:
Сообщение автоматически объединено:
Может перенести тему куда-нибудь в другой раздел. Неужели это такой сложный вопрос :stars: