Cheatz Tutorial: How to Code a Tapper[VB]

[CheatCreatorzz]

Heey Guys,
For the one who make a Tapper or a MultiTool with a tapper, here's a little Tutorial. [NoobFriendly]

MPGH Tutorial: How to Code a Tapper[VB]
By CheatCreatorz


!Not Working for all Os! Scroll down for : All OS version, This is the Simply One.!

________
(1.) First You need Some Codes.
Codes:
[Timer]In Form
[ CODE]Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16[/CODE]

[Hotkeys] for timer.

If (GetAsyncKeyState(Key.F10)) Then
    "Code here" //Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
    "Code here" //Disconnect
End if

[Connect/Disconnected](Button, Also Hotkeys)
1. Connect

shell("NET START DHCP")

2. Disconnect

Shell("NET STOP DHCP")

[Other Codes]
Only VB Beginner brain.


_______
2. Give your project a Name(named: "Name"Tapper)

______
3. Add some things:
- 2 Buttons(Button1,Button2)
- 1 label(Label1)
- Checkbox(CheckBox1)

~Name of Form1~
Make it "Name"Tapper version .. Whatever you want.
And Change Lay-Out of your Form1, If you want.



______
3. look the Picture Below.
- Rename everything(Buttons,Label,etc)


______
4. Add a Timer(Timer1)



______
5. Coding everything(Button, form, etc)
Look pictures Below.
Resize it to Full size.




Done!
Thx CheatCreatorz
Made the Pictures and Tut !>>>>>!

On all OS versions. From Code[VB]
1. this code to declare youre GetAsyncKeyState Hotkeys:

 Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short.

* as Short is better.

2. and after that give it the Property to correct using the hotkeys.

Private Property result() As Short

3. now we are ready to make functions like this:

 For i = 6 To 255 ' with this loop the hotkeys work on every OS!!


            result = 0
            result = GetAsyncKeyState(i)
         
            If GetAsyncKeyState(Keys.F1) Then
             shell("NET START DHCP")
            End If

            If GetAsyncKeyState(Keys.F2) Then
               shell("NET STOP DHCP")
            End If

        Next i

4. sooo okay now the full code look like this:

 Public Class Form1


    Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) As Short ' Declare hotkeys
    Private Property result() As Short ' Declare result of hotkeys


    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        For i = 6 To 255 ' with this loop the hotkeys work on every OS!!


            result = 0
            result = GetAsyncKeyState(i)

            If GetAsyncKeyState(Keys.F1) Then
                Shell("NET START DHCP")
            End If

            If GetAsyncKeyState(Keys.F2) Then
                Shell("NET STOP DHCP")
            End If

        Next i
    End Sub
End Class

Done!

[Takari]

If (GetAsyncKeyState(Key.F10)) Then
    "Code here" //Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
    "Code here" //Disconnect
End if

This is written wrong it should be like this:

If (GetAsyncKeyState(Key.F10)) Then
    "Code here" 'Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
    "Code here" 'Disconnect
End if

I also don't recommand F10 and F11 as hotkeys.F9 and F10 would be better.
and the full code got different hotkeys.People might just copy and paste everything they see and it will get you an error.

[-Away-]

Wrong section

[CheatCreatorzz]

If (GetAsyncKeyState(Key.F10)) Then
    "Code here" //Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
    "Code here" //Disconnect
End if

This is written wrong it should be like this:

If (GetAsyncKeyState(Key.F10)) Then
    "Code here" 'Connect
End if
If (GetAsyncKeyState(Key.F11)) Then
    "Code here" 'Disconnect
End if

I also don't recommand F10 and F11 as hotkeys.F9 and F10 would be better.
and the full code got different hotkeys.People might just copy and paste everything they see and it will get you an error.

uhu, i know, who copy/past will get error with // ...
and with '... it will work, this is a tutorial not copy/past post.. --"
and whatever you want as Hotkeys.. --" F10 or F11 or F12 or F9.. all same effect..