Распознавания изображения

[Alp]

Я покопался в интернете и что-то не смог найти API функцию которая помогла мне распознать изображение на экране.
Т.е. мне нужна такая функция которая могла бы мне сказать каково цвета пиксел по координатам 150:200 монитора в данный момент.
Если кто знает такую функцию дайте ссылку плиз на пример ну или хотя бы название этой функции.

[FireFenix]

CreateDC("DISPLAY",NULL,NULL,NULL) + GetPixel

[Alp]

Спасибо конечно ))). Но это же форум VB. Можно тоже самое, но на ВБ.

[FireFenix]

CreateDC("DISPLAY", Nothing, Nothing, Nothing)

[Alp]

Private Declare Function GetPixel Lib "gdi32.dll" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

разобрался с hdc
Private Sub Timer1_timer()
Dim hdcA As Long
Dim hWndA As Long
hWndA = GetForegroundWindow()
hdcA = (GetWindowDC(hWndA))
GetCursorPos asd
Me.Caption = GetPixel(hdcA, asd.x, asd.y) & " " & asd.x & " " & asd.y
ReleaseDC hWndA, hdcA
End Sub

но появилось куча вопросов:
Выдает не понятное число. Как преобразовать это число в RGB ну типа FFFFFF (это белый)?
то есть нужна обратная функция к RGB
И почему определяет цвет не по всему экрану а только угол в 1024 на 786 пикселей?
у меня разрешение экрана 1280 на 1024 пикселя
Если я ухожу за граници пишет -1

[Alp]

Извините что нафлудил все разобрался. Спасибо можно закрыть тему.

[Хакер]

Alp, в чём прикол использовать тег icode для многострочных кусков кода?

[Alp]

Вот простой код раньше было все нормально,

Код: Выделить всё

Private Sub Timer1_timer()
Dim hdcA As Double
Dim hWndA As Long
hWndA = GetForegroundWindow()
hdcA = GetWindowDC(hWndA)
    pixel = GetPixel(hdcA, 100, 100)
    ReleaseDC hWndA, hdcA
End Sub

а теперь ругается на строчку hdcA = GetWindowDC(hWndA). Говорит 6я ошибка переполнение, что за ерунда?

В модуле

Код: Выделить всё

Public Declare Function GetWindowDC Lib "user32" Alias "GetDC" (ByVal hWnd As Integer) As Integer
Public Declare Function ReleaseDC Lib "user32" (ByVal hWnd As Long, ByVal hdc As Long) As Long
Public Declare Function GetForegroundWindow Lib "user32" () As Long
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Integer, ByVal nXPos As Integer, ByVal nYPos As Integer) As Integer


[Alp]

Сорри за глупый вопрос )))). Я увидел что не правильно объявлены переменные в функциях )). Разобрался