Imports System.IO
Imports Microsoft.Win32
Public Class form1
    Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Integer) As Integer


    Dim autopilot As String = False
    Dim fix As String = False
    Dim num1 As String = False
    Dim num2 As String = False
    Dim num3 As String = False
    Dim num4 As String = False

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        WebBrowser1.Navigate("http://battlefield.play4free.com/de/")
        Timer1.Enabled = True
        Timer1.Interval = 1
        Timer3.Enabled = True

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        WebBrowser1.Document.GetElementById("mail").SetAttribute("Value", TextBox1.Text)
        WebBrowser1.Document.GetElementById("password").SetAttribute("Value", TextBox2.Text)
        WebBrowser1.Document.Forms(0).InvokeMember("submit")
        MsgBox("Bitte warte 5-10 sekunden ab , erst dann bist du eingeloggt !")

    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        WebBrowser1.Navigate("http://battlefield.play4free.com/de/playnow")
    End Sub

    Private Sub Timer1_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If (GetKeyPress(Keys.F9)) Then
            OpenFileDialog1.ShowDialog()
        End If

        If (GetKeyPress(Keys.NumPad1)) Then

            num1 = True
        Else

            num1 = False
        End If

        If (GetKeyPress(Keys.NumPad2)) Then

            num2 = True
        Else

            num2 = False
        End If

        If (GetKeyPress(Keys.NumPad3)) Then

            num3 = True
        Else

            num3 = False
        End If

        If (GetKeyPress(Keys.NumPad4)) Then
            num4 = True
        Else
            num4 = False
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim key As String = True
        If key = True Then
            SendKeys.Send("w")
        End If
    End Sub

    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

    End Sub

    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        If (num1 = True) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox3.Text)
            SendKeys.Send("{Enter}")
        End If

        If (num2 = True) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox4.Text)
            SendKeys.Send("{Enter}")
        End If

        If (num3 = True) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox5.Text)
            SendKeys.Send("{Enter}")
        End If

        If (num4 = True) Then
            SendKeys.Send("T")
            SendKeys.Send(TextBox6.Text)
            SendKeys.Send("{Enter}")
        End If
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://forum.sa-mp.de/index.php?page=User&userID=24522")
    End Sub
End Class