Private Declare Function GetDC Lib "user32" (ByVal _
hWnd As Long) As Long
 
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc _
        As Long, ByVal x As Long, ByVal y As Long) As Long
 
Private Declare Function WindowFromPoint Lib "user32" _
        (ByVal xPoint As Long, ByVal yPoint As Long) _
        As Long
 
 
Public Sub Command1_Click()
 
x = 0
y = 0
fertig = 0
 
Do Until fertig = 1
 
x.Caption = x
y.Caption = y
 
If x = 1280 Then
y = y + 1
x = 0
End If
 
If y = 1024 And x = 1280 Then
MsgBox "Bildschirmende erreicht. Pixel nicht gefunden"
fertig = 1
End If
 
hWndp = WindowFromPoint(x, y)
hDCp = GetDC(hWndp)
 
Result = GetPixel(hDCp, x, y)
 
x = x + 1
 
If Result = 12912254 Then
fertig = 1
MsgBox "Pixel gefunden!"
End If
 
Loop
End Sub