Opt('MouseCoordMode', 0)
Opt('PixelCoordMode', 0)
HotKeySet('{ESC}', '_Exit')
While 1
$X = MouseGetPos(0)
$Y = MouseGetPos(1)
$PixelGet = PixelGetColor($X, $Y, '[ACTIVE]')
ToolTip('Цвет: 0x' & Hex($PixelGet, 6) & @CRLF & 'X: ' & $X & @CRLF & 'Y: ' & $Y)
WEnd
Func _Exit()
Exit
EndFunc