[Автоматизация] Необходимо ожидать до тех пор, пока

[Teacher]

Мне необходимо реализовать условие при котором программа должна находится в режиме ожидания, до тех пор, пока в определенном месте не загорится определенный цвет.
Что то типа: "Sleep (пока не появился красный цвет в координатах x, y)"
Это необходимо реализовать в цикле + внутри с условием If...EndIf.
Помогите пожалуйста :(

 

[Ksaan]

Как вариант

HotKeySet("{ESC}","_Exit")

While 1
   $coord = PixelSearch( 500, 500, 600, 430, 0xFF0000 )
   
   If Not @error Then
	  MsgBox(0, "", "Найден в X: " & $coord[0] & "  Y: " & $coord[0])
	  Exit  ; Выход
   EndIf
   
Wend

Func _Exit()
   Exit
EndFunc; ===> _Exit

 

[ArvenPK]

Func WaitForIt($x, $y, $color, $delay = 10)
	While Sleep($delay)
		PixelSearch($x, $y, $x, $y, $color)
		If Not @error Then Return
	WEnd
EndFunc

Вызывай там, где нужно ожидать, например:

WaitForIt(100, 100, 0xFF0000)

 

[Teacher]

Благодарю Вас!!!