[Release] Mining/Fight Tool

Public Class Form1
Public Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal _
dwFlags As Integer, ByVal dx As Integer, _
ByVal dy As Integer, ByVal cButtons As Integer, ByVal _
dwExtraInfo As Integer)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As Short
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kampf.Tick
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

End Sub

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
If TabControl1.SelectedTab.Name = "TabPage1" Then



Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.F6)
If hotkey1 = True Then

TextBox1.Text = "1"

End If

Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.F7)
If hotkey2 = True Then
TextBox1.Text = "2"
End If

End If

If TabControl1.SelectedTab.Name = "TabPage2" Then


Dim hotkey1 As Boolean
hotkey1 = GetAsyncKeyState(Keys.F6)
If hotkey1 = True Then

TextBox1.Text = "1"

End If

Dim hotkey2 As Boolean
hotkey2 = GetAsyncKeyState(Keys.F7)
If hotkey2 = True Then
TextBox1.Text = "2"
End If

End If
End Sub

Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
If TabControl1.SelectedTab.Name = "TabPage1" Then

If TextBox1.Text = "1" Then
Kampf.Start()
Minen.Stop()
Else
Kampf.Stop()
End If

End If

If TabControl1.SelectedTab.Name = "TabPage2" Then
If TextBox1.Text = "1" Then
Minen.Start()
Kampf.Stop()
Else
Minen.Stop()
End If

End If

End Sub

Private Sub Minen_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Minen.Tick

mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)


End Sub
End Class