координаты мышки и цвет под курсором

[AxepoH]

Добрый день. Для написания бота с толкнулся с проблемой поиска абсолютных координат, сейчас пользуюсь левой программой указывающей координаты курсора мыши, но хотелось бы иметь вот такой скриптик:
Наводишь курсор на необходимое место в окне, нажимаешь горячую клавишу и тебе выдаются абсолютные координаты и цвет пикселя на которое наведён курсор.

часть кода нашел по определению цвета пикселя и пользуюсь
$color = PixelGetColor( x,y)
MsgBox(0,"The decmial color is", $color)

но вот с координатами курсора проблемка у меня(

З.Ы нашел функцию MouseGetPos()

$xy=MouseGetPos()
$color = PixelGetColor( $xy[0],$xy[1])
MsgBox(0,"The decmial color is", $color)

 

[Waik]

MouseGetPos возвращает массив.
$pos=MouseGetPos()
MsgBox(0, "Координаты x,y:", $pos[0] & "," & $pos[1])

Вот полностью рабочий код :

func mouse()
$pos=MouseGetPos()
$color = PixelGetColor( $pos[0],$pos[1])
MsgBox(0,"Информация","Цвет мыши: "& $color &@CRLF& "Координаты мыши: " & $pos[0] & " / " & $pos[1])
EndFunc

while 1
HotKeySet ("{ESC}","mouse")
WEnd

 

[AxepoH]

спасибо, спасибку тыкнул)

 

[Waik]

Спасибо.Ну тогда еще нажми "Решено".