Цвет "под" указателем мыши

[zelich]

Подскажите пожалуйста, как проверить цвет в определённом месте?

К примеру в (100, 100) █ красный или █ нет?

 

[ra4o]

Например - указывает цвет под курсором:

Спойлер

#include <GUIConstants.au3>

$hMainGui = GUICreate('', 200, 100)
$label1 = GUICtrlCreateLabel('', 10, 20, 190, 25)
$label2 = GUICtrlCreateLabel('Цвет ', 10, 50, 190, 25)
GUISetState(@SW_SHOW, $hMainGui)

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit

	EndSelect
	_GetColor()
	Sleep(20)
WEnd

Func _GetColor()
	$Coord = MouseGetPos()
	$Color = PixelGetColor($Coord[0], $Coord[1], 6)
	GUICtrlSetData($label1, 'Координаты мышки : X=' & $Coord[0] & '  Y=' & $Coord[1])
	GUICtrlSetData($label2, 'Цвет ' & $Color)
	GUICtrlSetColor(-1, $Color)
EndFunc   ;==>_GetColor

К примеру в (100, 100) █ красный или █ нет?

Спойлер

$x=100
$y=100
$Color='0x'&Hex(PixelGetColor($x,$y),6)
If $Color=0xFF0000 Then
	MsgBox(48,'','Цвет красный')
Else
	MsgBox(48,'','Цвет НЕ красный')
EndIf