Версия AutoIt: v3
Всем доброго времени суток, подскажите пожалуйста возможно это осуществить и как?
У меня получилось подсчитать клики, но как организовать скрипт так, что бы после 200 ста кликов скрипт прекрощал функционировать, выходил.
Всем доброго времени суток, подскажите пожалуйста возможно это осуществить и как?
У меня получилось подсчитать клики, но как организовать скрипт так, что бы после 200 ста кликов скрипт прекрощал функционировать, выходил.
Код:
HotKeySet("{F1}","_exit")
HotKeySet("{F2}","_start")
HotKeySet("{F3}","_pau")
$Count = 0
while 1
Sleep(100)
WEnd
Func _pau()
while 1
Sleep(100)
WEnd
EndFunc
Func _start()
Sleep(1000)
WinActivate("Заработай бесплатно Лайки вконтакте - Google Chrome")
WinWaitActive("Заработай бесплатно Лайки вконтакте - Google Chrome")
Sleep(1000)
MouseClick("left",739,476,1,1) ;открыть страницу где надо ставить лайк
Sleep(1000)
MouseClick("left",770,449,1,1) ;если ощибка, со сценарием, клик на "ДА"
_searchwindow()
EndFunc
func _searchwindow()
while 1
$con2 = PixelSearch(278,133,375,207,0x4C72B8,5)
if not @error Then
_searchlike()
EndIf
#comments-start
$con3 = PixelSearch(1051,153,1051,158,0x117B45,5) ;проверка если окно не грузится, адгуард его блочит...
if not @error Then
Send("^ц")
Sleep(400)
_start()
EndIf
$c = PixelGetColor(780, 77)
If $c = 0x000000 Then
$cc = 1
Else
$cc = 0
EndIf
Sleep(1000)
If $cc = 1 Then
Sleep (500)
Send("^ц")
Sleep(200)
_start()
EndIf
#comments-end
WEnd
EndFunc
func _searchlike()
For $i = 10 to 1 step -1
$con1 = PixelSearch(462,74,1137,727,0x7295CA,2);поиск пикселя около сердечка
if not @error Then
$Count += MouseClick("left",$con1[0]-14,$con1[1],1,1)
TrayTip("I like","Лайков:" &$Count,5)
Sleep(200)
MouseClick("left",1319,326,1,1) ;сфокусироватся на пустой области.
Sleep(1000)
Send("^ц")
Sleep(200)
_start()
Else
MouseWheel("down",3)
EndIf
Sleep(2000)
;MsgBox(0,"","error")
$con2 = PixelSearch(462,74,1137,727,0xC9D8E6,2);поиск сердечка
if not @error Then
$Count += MouseClick("left",$con2[0],$con2[1],1,1)
TrayTip("I like","Лайков:" &$Count,5)
Sleep(200)
MouseClick("left",1319,326,1,1) ;сфокусироватся на пустой области,что бы появилось меню с языком, а то не получается нажимать CTRL+W
Sleep(1000)
Send("^ц")
Sleep(200)
_start()
Else
MouseWheel("down",3)
EndIf
Sleep(2000)
;MsgBox(0,"","error")
Next
Send("^ц")
_start()
EndFunc
func _exit()
MsgBox(64, 'Отчет', 'Всего сделано: ' & $Count & @CR); & 'Ошибок: ' & $Error)
Exit
EndFunc