vb combat arms tapper(source + tutorial)
Ok here is the source for the one I released about a month ago. Here is the thread-
https://www.mpgh.net/forum/164-combat...r-hotkeys.html
ok this was quite easy to make. It still works.
Step 1
Add 2 timer's to your project
Step 2
Copy and paste source
Step 3
Press Thanks button
Code:
Public Class Form1
Public Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer2.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim Hotkey1 As Boolean
Hotkey1 = GetAsyncKeyState(Keys.F11)
If Hotkey1 = True Then
Timer1.Enabled = True
Shell("NET START DHCP")
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim Hotkey2 As Boolean
Hotkey2 = GetAsyncKeyState(Keys.F10)
If Hotkey2 = True Then
Timer2.Enabled = True
Shell("NET STOP DHCP")
End If
End Sub
End Classl
