Public Class Form1
    Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As _
      Byte, ByVal dwFlags As Int32, _
                                      ByVal dwExtraInfo As Int32)
   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
     System.EventArgs) Handles Button1.Click
        Dim ExterneAnwendung As New System.Diagnostics.Process()
        ExterneAnwendung.StartInfo.FileName = "Firefox.exe"
        ExterneAnwendung.StartInfo.Arguments = "www.spin.de"
        ExterneAnwendung.Start()
        Threading.Thread.Sleep(8000)
        keybd_event(9, 0, 0, 0)  'TAB drücken
        keybd_event(9, 0, 2, 0)  'TAB loslassen
        keybd_event(9, 0, 0, 0)  'TAB drücken
        keybd_event(9, 0, 2, 0)  'TAB loslassen
        Threading.Thread.Sleep(0)
        SendKeys.SendWait("Benutzername")
        keybd_event(9, 0, 0, 0)  'TAB drücken
        keybd_event(9, 0, 2, 0)  'TAB loslassen
        Threading.Thread.Sleep(1000)
        SendKeys.Send("Passwort")
        Threading.Thread.Sleep(3000)
        keybd_event(9, 0, 0, 0)  'TAB drücken
        keybd_event(9, 0, 2, 0)  'TAB loslassen
        keybd_event(9, 0, 0, 0)  'TAB drücken
        keybd_event(9, 0, 2, 0)  'TAB loslassen
        SendKeys.Send("{Enter}")
        Threading.Thread.Sleep(7000)
        keybd_event(17, 0, 0, 0)  'Alt drücken
        keybd_event(115, 0, 0, 0)  'F4 drücken
        keybd_event(115, 0, 2, 0)  'F4 loslassen
        keybd_event(17, 0, 2, 0)  'Alt loslassen
    End Sub
End Class