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 GetClassName Lib "user32" _
  Alias "GetClassNameA" ( _
  ByVal hWnd As Long, _
  ByVal lpClassName As String, _
  ByVal nMaxCount As Long) As Long
 
Private Declare Function GetWindow Lib "user32" ( _
  ByVal hWnd As Long, _
  ByVal wCmd As Long) As Long
 
Private Const GW_HWNDNEXT = 2
Private Const GW_CHILD = 5
 
Dim i As Integer
Dim ii As Integer
Dim DC As Long
 
Private Sub Command1_Click()
  DC = GetDC(GetWebBrowserHWnd(Me.hWnd))
 
  For i = 1 To WebBrowser1.Height
    For ii = 1 To WebBrowser1.Width
      If GetPixel(DC, i, ii) = RGB(252, 166, 0) Then
        List1.AddItem i & " " & ii
      End If
      List2.AddItem GetPixel(DC, i, ii)
      DoEvents
    Next
    DoEvents
  Next
 
End Sub
 
Private Sub Form_Load()
WebBrowser1.Navigate "http://thc.mannaz.at/slogin.php"
End Sub
 
Public Function GetWebBrowserHWnd( _
  ByVal hWndMain As Long) As Long
 
  Dim hWnd As Long
  Dim sClassName As String
  Dim nResult As Long
    ' Alle Child-Windows der MainForm durchlaufen und
  ' nach dem Klassennamen "Shell Embedding" suchen
  ' Wenn wir einen solchen Klassennamen finden,
  ' haben wir das gesuchte Fensterhandle.
  hWnd = GetWindow(hWndMain, GW_CHILD)
  Do While hWnd <> 0
    ' Klassennamen ermitteln...
    sClassName = Space$(256)
    nResult = GetClassName(hWnd, sClassName, Len(sClassName))
        ' ... und prüfen...
    sClassName = Left$(sClassName, nResult)
    If sClassName = "Shell Embedding" Then
      ' ... und gefunden
      GetWebBrowserHWnd = hWnd
      Exit Do
    End If
        ' Nächstes Child-Window ermitteln
    hWnd = GetWindow(hWnd, GW_HWNDNEXT)
  Loop
End Function