Cheatz Tutorial: How to Code a Tapper[VB]
https://img854.imageshack.us/img854/1350/picture6pd.png
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)
https://img863.imageshack.us/img863/6...eenshot050.png
______
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.
https://img215.imageshack.us/img215/8...enshot051x.png
______
3. look the Picture Below.
- Rename everything(Buttons,Label,etc)
https://img854.imageshack.us/img854/1...eenshot052.png
______
4. Add a Timer(Timer1)
https://img196.imageshack.us/img196/8...enshot053u.png
______
5. Coding everything(Button, form, etc)
Look pictures Below.
Resize it to Full size.
https://img135.imageshack.us/img135/4...enshot054a.png
https://img824.imageshack.us/img824/9...nshot055cx.png
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!
