Obszar pixela

[Ann120]

Cześć mam pytanie jak zrobić tak że gdy czerwony pixel zetknie się z szarym to ma wywoływać się określona rzecz.Na razie działa mi wyszukanie tego czerwonego pixela i szarego ale właśnie nie wiem jak zrobić to zetknięcie?

[wasta]

Proponuję coś w tym stylu:

Dim $iRed=0xFF0000  ;kolor czerwony
Dim $iGrey=0xF0F4F9 ;kolor szary

$aCoordinates = PixelSearch(0, 0, @DesktopWidth-1, @DesktopHeight-1, $iRed) ;szukanie czerwonego
If @error=0 Then
	$iXR = $aCoordinates[0]
	$iYR = $aCoordinates[1]
	$aCoordinates = PixelSearch($iXR-1, $iYR-1, $iXR+1, $iYR+1, $iGrey) ;szukanie szarego w otoczeniu czerwonego
	If @error=0 Then
		$iXG = $aCoordinates[0]
		$iYG = $aCoordinates[1]
		MsgBox(0, "", "Sukces!" & @LF & "Czerwony: " & $iXR & ", " & $iYR & @LF & "Szary: " & $iXG & ", " & $iYG)
	EndIf
Else
	MsgBox(0, "", "Nie znaleziono")
EndIf