Private Sub Command1_Click()
 
  ' alle offenen IE-Fenster ermitteln
  ' und Fenstertite der 1. gefundenen Instanz
  ' in einer MsgBox anzeigen
 
  Dim lRetVal As Long
  Dim sClassName As String
  Dim CurHWnd As Long
  Dim nLen As Long
  Dim sBuffer As String
  Dim sTitle As String
 
  Screen.MousePointer = 11
  CurHWnd = GetWindow(hwnd, GW_HWNDFIRST)
  Do While CurHWnd <> 0
    ' Klassennamen ermitteln
    sClassName = String$(256, " ")
    lRetVal = GetClassName(CurHWnd, sClassName, 255)
    sClassName = Left$(sClassName, InStr(sClassName, Chr$(0)) - 1)
 
    If sClassName = "IEFrame" Then
      ' Explorer-Fenster gefunden - jetzt Fenstertitel ermitteln
      nLen = GetWindowTextLength(CurHWnd)
      sBuffer = Space$(nLen + 1)
      lRetVal = GetWindowText(CurHWnd, sBuffer, Len(sBuffer))
 
      sTitle = Left$(sBuffer, lRetVal)
      MsgBox sTitle
      Exit Do
    End If
 
    ' Handle des nächsten Fensters
    ' 0, wenn kein weiteres Fenster vorhanden
    CurHWnd = GetWindow(CurHWnd, GW_HWNDNEXT)
  Loop
  Screen.MousePointer = 0
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de