Public Class Main

#Region "Dims"
    Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Integer) As Integer
    Dim ServVersion As String
    Dim ClientVersion As String = "1.0"
    Dim webClient As WebClient = New WebClient()
    Dim i1 As Integer = 0
    Dim i2 As Integer = 0
    Dim i3 As Integer = 0
    Dim i4 As Integer = 0
    Dim i5 As Integer = 0
    Dim i6 As Integer = 0
    Dim i7 As Integer = 0
    Dim i8 As Integer = 0
    Dim i9 As Integer = 0
#End Region

    Private Sub Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        If File.Exists("updaterfrm.exe") Then
            File.Delete("updaterfrm.exe")
        End If

        UpdateSub()
        Label4.Text = ClientVersion
        ComboBox1.Text = "NumPad1"
        ComboBox2.Text = "NumPad2"
        ComboBox3.Text = "NumPad3"
        ComboBox4.Text = "NumPad4"
        ComboBox5.Text = "NumPad5"
        ComboBox6.Text = "NumPad6"
        ComboBox7.Text = "NumPad7"
        ComboBox8.Text = "NumPad8"
        ComboBox9.Text = "NumPad9"
    End Sub

#Region "Kleinigkeiten"

    Private Sub UpdateSub()
        Try
            ServVersion = webClient.DownloadString("http://*Zensiert*")
            If ServVersion > ClientVersion Then
                MsgBox("Eine neue Version ist verfügbar!")
                If Not File.Exists("updaterfrm.exe") Then
                    Dim update As Object = My.Resources.updaterfrm
                    File.WriteAllBytes("updaterfrm.exe", update)
                Else
                    File.Delete("updaterfrm.exe")
                    Dim update As Object = My.Resources.updaterfrm
                    File.WriteAllBytes("updaterfrm.exe", update)
                End If
                Diagnostics.Process.Start("updaterfrm.exe")
                End
            End If
        Catch ex As Exception
            MsgBox(ex.Message)
            End
        End Try
    End Sub

    Sub Freeze(ByVal sleeptime As Integer)
        Dim Stopwc As New Stopwatch
        Stopwc.Start()
        Do Until Stopwc.ElapsedMilliseconds >= sleeptime
            Application.DoEvents()
        Loop
        Stopwc.Stop()
        Stopwc.Reset()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Stop()
        Timer2.Stop()
        Timer3.Stop()
        Timer4.Stop()
        Timer5.Stop()
        Timer6.Stop()
        Timer7.Stop()
        Timer8.Stop()
        Timer9.Stop()
        CheckBox1.Checked = False
        CheckBox2.Checked = False
        CheckBox3.Checked = False
        CheckBox4.Checked = False
        CheckBox5.Checked = False
        CheckBox6.Checked = False
        CheckBox7.Checked = False
        CheckBox8.Checked = False
        CheckBox9.Checked = False
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        My.Settings.savetbx1 = TextBox1.Text
        My.Settings.savetbx2 = TextBox2.Text
        My.Settings.savetbx3 = TextBox3.Text
        My.Settings.savetbx4 = TextBox4.Text
        My.Settings.savetbx5 = TextBox5.Text
        My.Settings.savetbx6 = TextBox6.Text
        My.Settings.savetbx7 = TextBox7.Text
        My.Settings.savetbx8 = TextBox8.Text
        My.Settings.savetbx9 = TextBox9.Text
        My.Settings.Save()
        My.Settings.Reload()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        TextBox1.Text = My.Settings.savetbx1
        TextBox2.Text = My.Settings.savetbx2
        TextBox3.Text = My.Settings.savetbx3
        TextBox4.Text = My.Settings.savetbx4
        TextBox5.Text = My.Settings.savetbx5
        TextBox6.Text = My.Settings.savetbx6
        TextBox7.Text = My.Settings.savetbx7
        TextBox8.Text = My.Settings.savetbx8
        TextBox9.Text = My.Settings.savetbx9
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        My.Settings.savetbx1 = "/"
        My.Settings.savetbx2 = "/"
        My.Settings.savetbx3 = "/"
        My.Settings.savetbx4 = "/"
        My.Settings.savetbx5 = "/"
        My.Settings.savetbx6 = "/"
        My.Settings.savetbx7 = "/"
        My.Settings.savetbx8 = "/"
        My.Settings.savetbx9 = "/"
        My.Settings.Save()
        My.Settings.Reload()
        TextBox1.Text = My.Settings.savetbx1
        TextBox2.Text = My.Settings.savetbx2
        TextBox3.Text = My.Settings.savetbx3
        TextBox4.Text = My.Settings.savetbx4
        TextBox5.Text = My.Settings.savetbx5
        TextBox6.Text = My.Settings.savetbx6
        TextBox7.Text = My.Settings.savetbx7
        TextBox8.Text = My.Settings.savetbx8
        TextBox9.Text = My.Settings.savetbx9
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Programmiert by Giannix! Copyright © 2013 ")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        MsgBox("Changelog by Giannix" + vbCrLf + "- NumPad 1-9 hinzugefügt" + vbCrLf + "- Design angepasst" + vbCrLf + "- Credits hinzugefügt" + vbCrLf + "- Update Manager hinzugefügt")
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        Process.Start("http://remix-of-reallife.de/")
    End Sub

#End Region

#Region "ListenKeys"
    Private Sub listenkey1()
        If i1 = 1 Then
            If GetAsyncKeyState(Keys.NumPad1) Then
                SendKeys.SendWait("{T}")
                SendKeys.SendWait(TextBox1.Text)
                SendKeys.SendWait("{ENTER}")
                CheckBox1.Checked = False
                Timer1.Stop()
                Timer1.Start()
                CheckBox1.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey2()
        If i2 = 1 Then
            If GetAsyncKeyState(Keys.NumPad2) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox2.Text)
                SendKeys.Send("{ENTER}")
                CheckBox2.Checked = False
                Timer2.Stop()
                Timer2.Start()
                CheckBox2.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey3()
        If i3 = 1 Then
            If GetAsyncKeyState(Keys.NumPad3) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox3.Text)
                SendKeys.Send("{ENTER}")
                CheckBox3.Checked = False
                Timer3.Stop()
                Timer3.Start()
                CheckBox3.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey4()
        If i4 = 1 Then
            If GetAsyncKeyState(Keys.NumPad4) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox4.Text)
                SendKeys.Send("{ENTER}")
                CheckBox4.Checked = False
                Timer4.Stop()
                Timer4.Start()
                CheckBox4.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey5()
        If i5 = 1 Then
            If GetAsyncKeyState(Keys.NumPad5) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox5.Text)
                SendKeys.Send("{ENTER}")
                CheckBox5.Checked = False
                Timer5.Stop()
                Timer5.Start()
                CheckBox5.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey6()
        If i6 = 1 Then
            If GetAsyncKeyState(Keys.NumPad6) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox6.Text)
                SendKeys.Send("{ENTER}")
                CheckBox6.Checked = False
                Timer6.Stop()
                Timer6.Start()
                CheckBox6.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey7()
        If i7 = 1 Then
            If GetAsyncKeyState(Keys.NumPad7) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox7.Text)
                SendKeys.Send("{ENTER}")
                CheckBox7.Checked = False
                Timer7.Stop()
                Timer7.Start()
                CheckBox7.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey8()
        If i8 = 1 Then
            If GetAsyncKeyState(Keys.NumPad8) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox8.Text)
                SendKeys.Send("{ENTER}")
                CheckBox8.Checked = False
                Timer8.Stop()
                Timer8.Start()
                CheckBox8.Checked = True
            End If
        End If
    End Sub

    Private Sub listenkey9()
        If i9 = 1 Then
            If GetAsyncKeyState(Keys.NumPad9) Then
                SendKeys.Send("{T}")
                SendKeys.Send(TextBox9.Text)
                SendKeys.Send("{ENTER}")
                CheckBox9.Checked = False
                Timer9.Stop()
                Timer9.Start()
                CheckBox9.Checked = True
            End If
        End If
    End Sub
#End Region

#Region "Timers"
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        listenkey1()
    End Sub
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        listenkey2()
    End Sub

    Private Sub Timer3_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        listenkey3()
    End Sub

    Private Sub Timer4_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer4.Tick
        listenkey4()
    End Sub

    Private Sub Timer5_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick
        listenkey5()
    End Sub

    Private Sub Timer6_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer6.Tick
        listenkey6()
    End Sub

    Private Sub Timer7_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer7.Tick
        listenkey7()
    End Sub

    Private Sub Timer8_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer8.Tick
        listenkey8()
    End Sub

    Private Sub Timer9_Tick_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer9.Tick
        listenkey9()
    End Sub

#End Region

#Region "Checkboxen"
    Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Enabled = False
            i1 = 1
            Timer1.Start()
        Else
            TextBox1.Enabled = True
            i1 = 0
        End If
    End Sub

    Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged
        If CheckBox2.Checked = True Then
            TextBox2.Enabled = False
            i2 = 1
            Timer2.Start()
        Else
            TextBox2.Enabled = True
            i2 = 0
        End If
    End Sub

    Private Sub CheckBox3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox3.CheckedChanged
        If CheckBox3.Checked = True Then
            TextBox3.Enabled = False
            i3 = 1
            Timer3.Start()
        Else
            TextBox3.Enabled = True
            i3 = 0
        End If
    End Sub

    Private Sub CheckBox4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox4.CheckedChanged
        If CheckBox4.Checked = True Then
            TextBox4.Enabled = False
            i4 = 1
            Timer4.Start()
        Else
            TextBox4.Enabled = True
            i4 = 0
        End If
    End Sub

    Private Sub CheckBox5_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox5.CheckedChanged
        If CheckBox5.Checked = True Then
            TextBox5.Enabled = False
            i5 = 1
            Timer5.Start()
        Else
            TextBox5.Enabled = True
            i5 = 0
        End If
    End Sub

    Private Sub CheckBox6_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox6.CheckedChanged
        If CheckBox6.Checked = True Then
            TextBox6.Enabled = False
            i6 = 1
            Timer6.Start()
        Else
            TextBox6.Enabled = True
            i6 = 0
        End If
    End Sub

    Private Sub CheckBox7_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox7.CheckedChanged
        If CheckBox7.Checked = True Then
            TextBox7.Enabled = False
            i7 = 1
            Timer7.Start()
        Else
            TextBox7.Enabled = True
            i7 = 0
        End If
    End Sub

    Private Sub CheckBox8_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox8.CheckedChanged
        If CheckBox8.Checked = True Then
            TextBox8.Enabled = False
            i8 = 1
            Timer8.Start()
        Else
            TextBox8.Enabled = True
            i8 = 0
        End If
    End Sub

    Private Sub CheckBox9_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox9.CheckedChanged
        If CheckBox9.Checked = True Then
            TextBox9.Enabled = False
            i9 = 1
            Timer9.Start()
        Else
            TextBox9.Enabled = True
            i9 = 0
        End If
    End Sub

#End Region



End Class