vb combat arms tapper(source + tutorial)

Posts 1–15 of 38 · Page 1 of 3

Ok here is the source for the one I released about a month ago. Here is the thread-
http://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