Код:
Global $Paused
HotKeySet("{F5}", "Start")
HotKeySet("{F6}", "Stop")
HotKeySet("{F7}", "Close")
Func Stop()
$Paused = NOT $Paused
While $Paused
sleep(100)
WEnd
EndFunc
Func Close()
Exit 0
EndFunc
While 1
$fish = False
$x = 827
$y = 115
$c = 839
$s = 121
$pix = PixelSearch(836, 97, 838, 102, 0x5ABDA1, 10)
If Not @error Then $pix = PixelSearch(831, 101, 834, 105, 0x3A7D90, 10) Else MsgBox(0, 0, "Нет, это что-то другое") EndIf
If Not @error Then $pix = PixelSearch(836, 114, 838, 119, 0x002E04C6, 10) Else ToolTip ("Точка 2 не найдена", 100, 100) EndIf
If Not @error Then $pix = PixelSearch(813, 105, 815, 109, 0xDFFFF5, 10) Else ToolTip("Точка 3 не найдена", 100, 100) EndIf
If Not @error Then $pix = PixelSearch(811, 119, 816, 122, 0x002E04C6, 10)Else ToolTip("Точка 4 не найдена", 100, 100) EndIf
If Not @error Then $fish = True Send ("V") ToolTip("НАЙДЕНО", 100, 100) Else $fish= False EndIf
WEnd
Имеется вот такой скрипт, однако когда выполняется первый PixelSearch то почему сообщение не выскакивает
если переделать вот так:
Код:
If @error Then MsgBox("Точка 1 не найдена", 100, 100) EndIf