Home › Forum › MultiPlayer Game Hacks & Cheats › CrossFire Hacks & Cheats › CrossFire Spammers, Injectors and Multi Tools › Cheatz Tutorial: How to Code a Tapper[VB]
Cheatz Tutorial: How to Code a Tapper[VB]
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
1. Connect
Code:
shell("NET START DHCP")
Code:
Shell("NET STOP DHCP")
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.
2. and after that give it the Property to correct using the hotkeys.
Code:
Private Property result() As Short
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
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
Originally Posted by Takari
