Dim lRetVal As Long
  Dim sClassName As String
  Dim CurHWnd As Long
 
  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 schließen
      lRetVal = SendMessage(CurHWnd, WM_SYSCOMMAND, SC_CLOSE, LNULL)
 
    End If
 
    ' Handle des nächsten Fensters
    ' 0, wenn kein weiteres Fenster vorhanden
 
    CurHWnd = GetWindow(CurHWnd, GW_HWNDNEXT)
 
  Loop

' Ermittelt die URL und den Titel (IE ab 5.x)
Private Sub GetURLInfoIE(URL As String, Titel As String)
 
  Dim bInfo() As String
 
  With Text1
    .LinkTopic = "iexplore|WWW_GetWindowInfo"
    .LinkItem = &HFFFFFFFF
    .LinkMode = 2
    .LinkRequest
    bInfo = Split(.Text, ",")
    URL = bInfo(0)  ' URL des Browsers
    Titel = bInfo(1)  ' Titel des Browsers
  End With
 
End Sub