[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!

[Invidus]

Nice TUT, next time, put code or php tags around code.

[why06]

Agreed. Go fix it please.

EDIT: And maybe you should take a look at this... https://www.mpgh.net/forum/161-tutori...-tutorial.html

[GrImReApEdv2.0]

Sorry Why06 about my other post, and i didnt COPY and PASTE off of THERE thread, I pasted off of my Own project in VB, My .DLL injector i made from hand, so i copy and pasted from my thing

[Spookerzz]

Won't work

[Invidus]

Won't work

What errors did you get?

[Spookerzz]

None, Just didn't Dis-Connect the internet.

[silly3648]

doesn't work for me 15 errors =(

[DarkFreakXxX]

Thanks For Your Tapper

[Spookerzz]

It works now.

[LegendOfPoo]

Nice TUT but when i press Disconnect nothing happens

[mikey1181]

i Get this error when i trade to do it Help?

--------------------------------------------------------------------------------




1>LINK : error LNK2001: unresolved external symbol _main
1>c:\users\guest 2\documents\visual studio 2010\Projects\MY hack\Debug\MY hack.exe : fatal error LNK1120: 1 unresolved external

someone please help

[DayumKen]

How do you set up the hotkey? And it doesn't work for. me. DX Help? I have no errors but Disconnect does nothing. Here's my whole entire code:

Public Class Form1
Private Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As System.Int16)
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Shell("NET START DHCP")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Shell("Net STOP DHCP")
End Sub

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

[moffat]

nOT WORKING/HELP

[Jimmy VB]

its to much to take in,not noob friendly,try re-writing or maybe i will somtime!