Исходник:
Проблема в том,что один участок кода никогда не выполняется.
Участок,который не выполняется.
Пробовал ждать,когда пока $i станет равно 10,но всё равно не срабатывало,хотя даже если $i=0 должно.
Помогите!
Код:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=D:\icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#Include <WinAPIEx.au3>
Global $flag=0,$sClsCrd,$sBtnCrd,$sBtnClr,$sLT,$sRL,$sLkClr,$aClsCrd,$ClsCrd, $BtnCrd , $BtnClr , $LT , $RL , $LkClr ,$aClsCrd, $aBtnCrd , $sBtnClr , $aLT , $aRL , $sLkClr ,$i = 0,$Count = 0,$Error= 0,$sSerial = _WinAPI_UniqueHardwareID()
$sUS = "{0787586E-E792-3A20-B7E5-55E2D21F91BE}"
if $sUS = $sSerial then
MsgBox(64, "Всё гут..","Всё гут.")
Else
MsgBox(64, "Атата распространять сей бот.","Хочешь заполучить - skype:ars117")
EndIf
$sIniFile = @ScriptDir & '\conf.ini'
_Load()
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ###
$Form1_1 = GUICreate("Olike bot by ars117", 301, 190, 189, 112)
$Label1 = GUICtrlCreateLabel("Красный крестик второй вкладки(закрыть):", 8, 8, 228, 17)
$ClsCrd = GUICtrlCreateInput($sClsCrd, 240, 8, 57, 21)
$Label2 = GUICtrlCreateLabel("Координаты голубой кнопки:", 8, 40, 151, 17)
$BtnCrd = GUICtrlCreateInput($sBtnCrd, 160, 40, 49, 21)
$Label3 = GUICtrlCreateLabel("Цвет:", 216, 40, 32, 17)
$BtnClr = GUICtrlCreateInput($sBtnClr, 248, 40, 49, 21)
$Label4 = GUICtrlCreateLabel("Левая верхняя координта:", 8, 72, 139, 17)
$LT = GUICtrlCreateInput($sLT, 160, 72, 49, 21)
$Label5 = GUICtrlCreateLabel("Правая нижняя координата:", 8, 104, 148, 17)
$RL = GUICtrlCreateInput($sRL, 160, 104, 49, 21)
$Label6 = GUICtrlCreateLabel("^Цвет лайка^", 216, 104, 74, 17)
$LkClr = GUICtrlCreateInput($sLkClr, 224, 72, 73, 21)
$Start = GUICtrlCreateButton("Start", 8, 128, 289, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUICtrlSetColor(-1, 0x000000)
$Save = GUICtrlCreateButton("Save", 8, 160, 291, 25)
GUICtrlSetFont(-1, 14, 400, 0, "Times New Roman")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Start
_Start()
Case $Save
_Convert()
_Save()
EndSwitch
WEnd
Func _Start()
_Convert()
HotKeySet('^s', '_Quit')
Sleep(3000)
While 1
Sleep(10)
if PixelGetColor($aBtnCrd[0], $aBtnCrd[1])=$sBtnClr then
MouseClick("left",$aBtnCrd[0], $aBtnCrd[1])
$i = $i + 1
like()
EndIf
WEnd
EndFunc
Func _Quit()
MsgBox(64, 'Отчет', 'Открыто страниц: ' & $i & @CR & 'Поставлено лайков: ' & $Count & @CR & 'Страницы,где лайки не были поставлены:' & $Error)
Exit
EndFunc ;==>_Quit
Func like()
$q = 0
While 1
$aCoord = PixelSearch($aLT[0],$aLT[1] ,$aRL[0], $aRL[1], $sLkClr)
If Not @error Then
Sleep(25)
MouseClick("left", $aCoord[0], $aCoord[1])
if $flag=1 Then
_Bps()
Else
if mod($i,10)=0 Then
Sleep(1000)
_Bps()
EndIf
EndIf
MouseClick("left", $aClsCrd[0], $aClsCrd[1])
Sleep(25)
MouseMove(686, 477)
$Count=$Count +1
ExitLoop
EndIf
If $q > 60 then
MouseClick("left", $aClsCrd[0], $aClsCrd[1])
MouseMove(686, 477)
$Error=$Error +1
ExitLoop
EndIf
WEnd
EndFunc
Func _Save()
IniWrite($sIniFile, "", "ClsCrd", $aClsCrd[0] & ", " & $aClsCrd[1])
IniWrite($sIniFile, "", "BtnCrd", $aBtnCrd[0] & ", " & $aBtnCrd[1])
IniWrite($sIniFile, "", "BtnClr", $sBtnClr)
IniWrite($sIniFile, "", "LT", $aLT[0] & ", " & $aLT[1])
IniWrite($sIniFile, "", "RL", $aRL[0] & ", " & $aRL[1])
IniWrite($sIniFile, "", "LkClr", $sLkClr)
EndFunc
Func _Convert()
$aCoord ='0,0'
$sClsCrd = GUICtrlRead($ClsCrd)
$sBtnCrd = GUICtrlRead($BtnCrd)
$sBtnClr = GUICtrlRead($BtnClr)
$sLT = GUICtrlRead($LT)
$sRL = GUICtrlRead($RL)
$sLkClr = GUICtrlRead($LkClr)
$aClsCrd = StringRegExp($sClsCrd, '\b(\d+)\b', 3)
If UBound($aClsCrd) <> 2 Then Exit 13
$aBtnCrd = StringRegExp($sBtnCrd, '\b(\d+)\b', 3)
If UBound($aBtnCrd) <> 2 Then Exit 13
$aLT = StringRegExp($sLT,'\b(\d+)\b', 3)
If UBound($aLT) <> 2 Then Exit 13
$aRL = StringRegExp($sRL,'\b(\d+)\b', 3)
If UBound($aRL) <> 2 Then Exit 13
EndFunc
Func _Load()
$sClscrd=IniRead($sIniFile, "", "ClsCrd","0, 0")
$sBtnCrd=IniRead($sIniFile, "", "BtnCrd","0, 0")
$sBtnClr=IniRead($sIniFile, "", "BtnClr",0)
$sLT=IniRead($sIniFile, "", "LT","0, 0")
$sRL=IniRead($sIniFile, "", "RL","0, 0")
$sLkClr=IniRead($sIniFile, "", "LkClr",0)
EndFunc
Func _Bps()
if Not PixelGetColor(114, 99)=0xFFFFFF Then
$flag=1
Send("{F5}")
like()
EndIf
EndFunc
Участок,который не выполняется.
Код:
if $flag=1 Then
_Bps()
Else
if mod($i,10)=0 Then
Sleep(1000)
_Bps()
Помогите!