Cheatz Tutorial: How to Code a Tapper[VB]

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.

Code:

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

Code:

shell("NET START DHCP")

2. Disconnect

Code:

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:

Code:

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.

Code:

Private Property result() As Short

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

Code:

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:

Code:

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!

Code:

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:

Code:

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.

Originally Posted by Takari

Code:

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:

Code:

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..

Wrong section

Cheatz Tutorial: How to Code a Tapper[VB]

Post a Reply

Tags for this Thread