Dim lhWnd as Long
Dim lTimer as Long
 
lTimer = Timer
Do While lhWnd < 1
  lhWnd = FindWindow(vbNullString, "Verbindung zu ... herstellen")
  If Timer - lTimer > 15 Then 'Abbruch nach 15 Sekunden
    Exit Do
  End if
Loop 
 
If lhWnd > 0 Then 'Überhaupt ein Fenster gefunden ?
  SetForegroundWindow lhWnd 'Fenster Aktivieren
  SendKeys Benutzername & "{TAB}" & Kennwort & "{TAB 2}{ENTER}"
End If

' hWnd Ermitteln
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" _
  (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
' Fenster in  der Vordergrund holen
Private Declare Function SetForegroundWindow Lib "user32" _
  (ByVal hwnd As Long) As Long

Cu

Wolfgang