[TUT] Simple CA Tapper in VB ( For noobs )

[GrImReApEdv2.0]

Hey Mpgh, This is GrImReApEdv2.0 again and here is a tutorial on " HOW TO MAKE A SIMPLE TAPPER " I know there are a bunch of other posts of these but i made this 1 to make them SIMPLER, B/c SOme people are like what code? And all these Dumb Questions so HERE is a Tut for a Tapper!

1) Open up VB ( 2008/2010 ), Open up a NEW PROJECT....

2) First of all here is all the things you need in your FORM1.
2 Buttons: 1= Connect/1=Disconnect
2 Text Boxes: 1 for Disconnect Hot key, Other for COnnect Hotkey 1 to put your name, so everyone knows you made it on top.
1 Rich TextBox: 1 to put your name, so everyone knows you made it on top.


That is what it should have, and should say or if ya wanna get fancy mix it up if ya want.

3) Double click on the FORM1 name, and here is the coding part, Put this code ABOVE "Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load"
CODE=

Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16) As Int16 'so its x64 bit compatible
( Change user32 to user64, if thats your computer rate )
Now below the Private Sub Form1 thing, Put:
End Sub

4) Now put this code after that
CODE:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Shell("NET START DHCP")
    End Sub

5) That was for The Button1 ( COnnect ) Now button 2 code is:
Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Shell("Net STOP DHCP")
    End Sub

6) See how it says Shell then net STOP, well its VB language saying when this code clicked or pushed Stop the tapper.
7) Now get your timer out (1), and double click it and put this code
CODE:

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim StartHotkey As Integer
        StartHotkey = GetAsyncKeyState(116)
        If StartHotkey <> 0 Then
            Shell("Net STOP DHCP")
        End If
        Dim StopHotkey As Integer
        StopHotkey = GetAsyncKeyState(117)
        If StopHotkey <> 0 Then
            Shell("NET START DHCP")
        End If

    End Sub
End Class

This is what the WHOLE code should look like in its Coding page:
( Not whole thing just the END sub's and all the lines and there should be nothing underlined = Thats an ERROR )



PRESS THANKS IF I HELPED!