DetectedLeaf's Tapper

Public Class Form1     Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Int32) As Int16     Private Gamelist As New List(Of Game)     Private Structure Game        Dim Name As String        Dim ProcessName As String        Dim Shortcut As String    End Structure     Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick        For i = 0 To Gamelist.Count - 1            With Gamelist(i)                Dim p() As Process = Process.GetProcessesByName(.ProcessName)                If p.Count <> 0 Then                    TextBox1.Text = .Shortcut                    Timer2.Start()                    Timer1.Stop()                    Return                End If            End With        Next         TextBox1.Text = ""    End Sub     Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick        If TextBox1.Text <> "" Then            For i = 0 To Gamelist.Count - 1                With Gamelist(i)                    If .Shortcut = TextBox1.Text Then                        Me.Label1.Text = String.Format("Currently: In-Game: {0}    {1}", .Name, IIf(TextBox2.Text.ToLower = "date", String.Concat("(", TimeString, ")"), ""))                        Me.Label1.ForeColor = Color.LimeGreen                        Me.ForeColor = Color.LimeGreen                        Me.Button1.ForeColor = Color.LimeGreen                        Me.Button1.FlatAppearance.BorderColor = Color.LimeGreen                        Me.Button1.FlatAppearance.MouseDownBackColor = Color.Green                        Me.Button1.FlatAppearance.MouseOverBackColor = Color.MediumSeaGreen                    End If                End With            Next            Timer1.Start()        Else            Me.Label1.Text = String.Format("Currently: Not in-game      {0}", IIf(TextBox2.Text.ToLower = "date", String.Concat("(", TimeString, ")"), ""))            Me.Label1.ForeColor = Color.Red            Me.ForeColor = Color.Red            Me.Button1.ForeColor = Color.Red            Me.Button1.FlatAppearance.BorderColor = Color.Red            Me.Button1.FlatAppearance.MouseDownBackColor = Color.Maroon            Me.Button1.FlatAppearance.MouseOverBackColor = Color.SaddleBrown            Timer1.Start()            TextBox2.Text = "Date"        End If    End Sub     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click        If TextBox1.Text = "" Then MsgBox("To Prevent Host Failure, Start the game first.") : Return         Select Case Button1.Text            Case "Connect (F8)"                Shell("cmd.exe /c ipconfig/renew")                Button1.Text = "Disconnect (F7)"            Case "Disconnect (F7)"                Shell("cmd.exe /c ipconfig/release")                Button1.Text = "Connect (F8)"        End Select    End Sub     Private Sub Timer5_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer5.Tick        Me.Text = "Leaf's Tapper  " & DateString & " / " & TimeString    End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Gamelist.Add(New Game With {.Name = "Warrock", .ProcessName = "warrock", .Shortcut = "WR"})        Gamelist.Add(New Game With {.Name = "Gunz", .ProcessName = "gunz", .Shortcut = "GZ"})        Gamelist.Add(New Game With {.Name = "Combat Arms", .ProcessName = "engine", .Shortcut = "CA"})        Gamelist.Add(New Game With {.Name = "Crossfire", .ProcessName = "crossfire", .Shortcut = "CF"})        Gamelist.Add(New Game With {.Name = "Project Blackout", .ProcessName = "pblackout", .Shortcut = "PB"})        Gamelist.Add(New Game With {.Name = "Modern Warfare", .ProcessName = "iw3mp", .Shortcut = "M1"})        Gamelist.Add(New Game With {.Name = "Modern Warfare 2", .ProcessName = "iw4mp", .Shortcut = "M2"})        Gamelist.Add(New Game With {.Name = "Black Ops", .ProcessName = "blackopsmp", .Shortcut = "BO"})    End Sub     Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick        If GetAsyncKeyState(Keys.F7) Then            If TextBox1.Text = "" Then                MsgBox("To Prevent Host Failure, Start the game first.")            Else                Shell("cmd.exe /c ipconfig/release")                Button1.Text = "Connect (F8)"            End If        End If         If GetAsyncKeyState(Keys.F8) Then            If TextBox1.Text = "" Then                MsgBox("To Prevent Host Failure, Start the game first.")            Else                Shell("cmd.exe /c ipconfig/renew")                Button1.Text = "Disconnect (F7)"            End If        End If    End SubEnd Class