[Автоматизация] Функция проверки цвета

Func _CLICK($COOR)
	$ASPLIT = StringRegExp($COOR, "(\d+), (\d+), (\d+)" 1)
	$X = $ASPLIT[0]
	$Y = $ASPLIT[1]
	$col = $ASPLIT[2]
	if PixelGetColor($X, $y) = $col Then
		mouseclick($x, $Y)
	endif
EndFunc

while 1
	$test = "362, 388,0xAC8334"
	_click($test)
	
	WEnd

#include <Array.au3>

$sTest = "362, 388,0xAC8334"
$aSPLIT = StringSplit(StringStripWS($sTest, 8), ',', 2)
;$aSPLIT = StringRegExp($sTest, '(\d+),\s?(\d+),\s?(\d+.*)\z', 3)
_ArrayDisplay($aSPLIT)

$sTest = '50, 490, 0xC2B9BC'
_CLICK($sTest)

Func _CLICK($sCOOR)
	Local $aSPLIT = StringSplit(StringStripWS($sCOOR, 8), ',', 2)
	;Local $aSPLIT = StringRegExp($sCOOR, '(\d+),\s?(\d+),\s?(\d+.*)\z', 3)
	If UBound($aSPLIT) <> 3 Then Return
	If Hex(PixelGetColor($aSPLIT[0], $aSPLIT[1]), 6) == Hex($aSPLIT[2], 6) Then
		MouseClick('left', $aSPLIT[0], $aSPLIT[1])
	EndIf
EndFunc   ;==>_CLICK

Func _CLICK($sCOOR)
   ; Local $aSPLIT = StringSplit(StringStripWS($sCOOR, 8), ',', 2)
    Local $aSPLIT = StringRegExp($sCOOR, '(\d+),\s?(\d+),\s?(\d+.*)\z', 3)
    If UBound($aSPLIT) <> 3 Then Return
    If PixelGetColor($aSPLIT[0], $aSPLIT[1]) == $aSPLIT[2] Then
        MouseClick("left", $aSPLIT[0], $aSPLIT[1])
    EndIf
EndFunc   ;==>_CLICK

#include <Array.au3>


Func _CLICK($sCOOR)
    ;Local $aSPLIT = StringSplit(StringStripWS($sCOOR, 8), ',', 2)
    Local $aSPLIT = StringRegExp($sCOOR, '(\d+),\s?(\d+),\s?(\d+.*)\z', 3)
    If UBound($aSPLIT) <> 3 Then Return
    If PixelGetColor($aSPLIT[0], $aSPLIT[1]) = $aSPLIT[2] Then
		mousemove($aSPLIT[0], $aSPLIT[1])
        mouseclick("left", $aSPLIT[0], $aSPLIT[1])
    EndIf
EndFunc   ;==>_CLICK
 


while 1
	 $test = "390, 178,0xF47879"
	_CLICK($test)
wend