Private Sub Command1_Click()
  ' alle offenen IE-Fenster schließen
  Dim lRetVal As Long
  Dim sClassName As String * 256
  Dim CurHWnd As Long
 
  CurHWnd = GetWindow(hwnd, GW_HWNDFIRST)
  Do While CurHWnd <> 0
    ' Klassennamen ermitteln
    sClassName = String$(256, " ")
    lRetVal = GetClassName(CurHWnd, sClassName, 255)
    If Left$(sClassName, lRetVal) = "IEFrame" Then
      ...
    End If
 
    ' Handle des nächsten Fensters
    ' 0, wenn kein weiteres Fenster vorhanden
    CurHWnd = GetWindow(CurHWnd, GW_HWNDNEXT)
  Loop
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de