Доброго времени суток! Я написал один код подскажите как в нем реализовать таймер. Например я запускаю свой скрипт для клика по браузеру, и он начинает выполняться, но как только прошло допустим 15 минут он посылает браузеру клавишу F5 т.е. обновить страницу не зависимо на каком промежутке он выполняется, после чего переходит к другому указанному участку кода(В моем случае к функции Mobil()). Можно ли такое реализовать? Кто знает напишите как?
Код:
#include <ImageSearch2.au3>
$x = 0
$y = 0
;$xd = @DesktopHeight
;$yd = @DesktopWidth
;MsgBox(0,"", $xd & "@" & $yd)
HotKeySet("{ESC}", "Close")
HotKeySet("{F1}", "Start")
HotKeySet("{F2}", "Pause")
_Startup()
Func _Startup()
ToolTip("Скрипт запущен",0,0)
While 1
Sleep(100)
WEnd
EndFunc
Func Close()
Exit
EndFunc
Func Pause()
ToolTip("Пауза",0,0)
While 1
Sleep(100)
WEnd
EndFunc
Func Start()
ToolTip("Запуск",0,0)
While 1
$mobila = _ImageSearch("mobil.png",1,$x,$y,0)
If $mobila = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Knkad()
Else
$prolistat = _ImageSearch("prolistat.png",1,$x,$y,0)
If $prolistat = 1 Then
MouseClick("left",$x,$y,2,10)
Sleep(100)
EndIf
EndIf
WEnd
EndFunc
;=======Кнопка кадавры в смартфоне=======
Func Knkad()
ToolTip("Кнопка Кадавры",0,0)
While 1
$knkad = _ImageSearch("knkad.png",1,$x,$y,0)
If $knkad = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Vkad()
EndIf
WEnd
EndFunc
;=======Выбор кадавра и клик по нему======
Func Vkad()
ToolTip("Поиск кадавра",0,0)
While 1
$vkad = _ImageSearch("vkad.png",1,$x,$y,0)
If $vkad = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Napast()
Else
$sled = _ImageSearch("sled.png",1,$x,$y,0)
If $sled = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Sleep(100)
Vkad()
EndIf
EndIf
WEnd
EndFunc
;======Кнопка напасть=========
Func Napast()
ToolTip("Напасть",0,0)
While 1
$napast = _ImageSearch("napast.png",1,$x,$y,0)
If $napast = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Noviboi()
EndIf
WEnd
EndFunc
;========Кнопка Новый бой========
Func Noviboi()
ToolTip("Новый бой",0,0)
While 1
$noviboi = _ImageSearch("noviboi.png",1,$x,$y,0)
If $noviboi = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Avakad()
EndIf
WEnd
EndFunc
;========Аватарка кадавра=========
Func Avakad()
ToolTip("Бой с кадавром",0,0)
While 1
$avakad1 = _ImageSearch("avakad1.png",1,$x,$y,0)
$avakad = _ImageSearch("avakad.png",1,$x,$y,0)
$avakadm = _ImageSearch("avakadm.png",1,$x,$y,0)
$avakadma = _ImageSearch("avakadma.png",1,$x,$y,0)
If $avakad1 = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Sleep(100)
Avakad()
ElseIf $avakad = 1 Then
MouseClick("left",$x,$y,1,10)
Avakad()
ElseIf $avakadm = 1 Then
MouseClick("left",$x,$y,1,10)
Avakad()
ElseIf $avakadma = 1 Then
MouseClick("left",$x,$y,1,10)
Avakad()
Else
$mertv = _ImageSearch("mertv.png",1,$x,$y,0)
If $mertv = 1 Then
MouseMove(260, 120, 10)
Krpob()
EndIf
EndIf
WEnd
EndFunc
;=======Крестик окна победы над кадавром======
Func Krpob()
ToolTip("Окно победы",0,0)
While 1
$krpob = _ImageSearch("krpob.png",1,$x,$y,0)
$krpob1 = _ImageSearch("krpob1.png",1,$x,$y,0)
If $krpob = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Mobil()
ElseIf $krpob1 = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Mobil()
EndIf
WEnd
EndFunc
;======Поиск и нажатие по мобильнику=====
Func Mobil()
ToolTip("Открытие мобильника",0,0)
While 1
$mobila = _ImageSearch("mobil.png",1,$x,$y,0)
If $mobila = 1 Then
MouseClick("left",$x,$y,1,10)
MouseMove(260, 120, 10)
Knkad()
EndIf
WEnd
EndFunc