[TUT] Simple CA Tapper with Hotkeys VB

[Drake` 7]

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/2=Disconnect

2 Text Boxes: 1 for Disconnect Hot key, Other for COnnect Hotkey 1

 

 

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 THIS HELPED!

 

Credits to: GrImReApEdv2.0 from ghbsys.net

Edited February 26, 2011 by paTTax
Credits added!

[M0RPH 197]

Stop leeching. Credits go to GrImReApEdv2.0 from ghbsys.net. Idiot.

Edited February 25, 2011 by M0RPH

[DonDings' 202]

so give creditz ..

but it works nice ..

 

thanks ill test it ..(: