Sry, bin noch sehr neu bei VB, wie müsste dann dieser teil heißen:
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Shell("C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Microsoft Office\Microsoft Office Word 2007.ink", vbMaximizedFocus)
My.Computer.Keyboard.SendKeys(TextBox4.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox1.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys("<")
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox3.Text)
My.Computer.Keyboard.SendKeys("{Tab}")
My.Computer.Keyboard.SendKeys(TextBox2.Text)
Timer1.Stop()
End Sub
|