Private Declare Function FindWindow Lib "USER32" _
  Alias "FindWindowA" ( _
  ByVal lpClassName As String, _
  ByVal lpWindowName As String) As Long
 
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, _
        ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo _
        As Long)
 
Public Sub SendKeyStroke(ByRef hCode As Byte, Optional ByVal keyUp As _
Long = 0)
    Const KEYEVENTF_KEYUP = &H2
 
    If keyUp = 1 Then
        keyUp = 0
    Else
        Call keybd_event(hCode, 0&, 0&, 0&)
    End If
 
    If keyUp = 0 Then
        Call keybd_event(hCode, 0&, KEYEVENTF_KEYUP, 0&)
        DoEvents
    End If
End Sub
 
 
Private Sub Form_Activate()
Dim test As Boolean
Dim lhWnd As Long
Dim sTitle As String
sTitle = "<Name der Anwendung>"
Do
DoEvents
lhWnd = FindWindow(vbNullString, sTitle)
If lhWnd <> 0 Then
If test = False Then
Do
DoEvents
SendKeyStroke vbKeyPause, -1
SendKeyStroke vbKeyReturn, -1
SendKeyStroke vbKeyPause, 1
SendKeyStroke vbKeyReturn, 1
Loop
test = True
End If
Else
test = False
End If
Label1.Caption = lhWnd
Loop
End Sub

-------
--] Who do you want to hack today? [--