Originally Posted by frolis16
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
