MPGH Tutorial: How to Code a Tapper[VB]

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

Codes:
[Timer]
- Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16

If (GetAsyncKeyState(Key.F10)) Then
"Code here" // Also F11
End if
[Connect/Disconnected]
shell("NET START DHCP")
Shell("NET STOP DHCP")

Request Move to Tutorial Section!srry for wrong posting :S

Wrong Section

you need attachment to post something here.they will delete it or move it to crossfire tools.

/reg closed
wrong section

/req move

Not close...

Tutorial section or Coding section. You chose

Wrong Section Eh..

Tapper is what? Disconnects you for a moment and causing you to lag in game and not to take damage?

Was this the same as the switch for routers? (some time in xbox years ago)

/Wrong Section

wrong section but very usefull

hmm let me think about youre code

Code:

Codes:
[Timer]
- Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16

If (GetAsyncKeyState(Key.F10)) Then
"Code here" // Also F11
End if
[Connect/Disconnected]
shell("NET START DHCP")
Shell("NET STOP DHCP")

1. what the fail is that??
- * Int16 only work for 32bit systemes

or for the most but not for all OS! better you use

this code to declare youre GetAsyncKeyState Hotkeys

Code:

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

* as Short is better!!

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

Code:

Private Property result() As Short

now we are ready to make funktions 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

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

* i don t tryed it out but it should 100% work

Originally Posted by Code[VB]

hmm let me think about youre code

Code:

Codes: [Timer] - Public Declare Function GetAsyncKeyState Lib "user 32" (ByVal vKey As Integer) As Int16 If (GetAsyncKeyState(Key.F10)) Then "Code here" // Also F11 End if [Connect/Disconnected] shell("NET START DHCP") Shell("NET STOP DHCP")

1. what the fail is that??
- * Int16 only work for 32bit systemes or for the most but not for all OS! better you use

this code to declare youre GetAsyncKeyState Hotkeys

Code:

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

* as Short is better!!

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

Code:

Private Property result() As Short

now we are ready to make funktions 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

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

* i don t tryed it out but it should 100% work

Wow Man This Is Good Work Lol Ive Made A Tapper Video But I Need To Post Very Soon Maybe Add It On To Here

╪moved to hack source╪

wrong section and where is the attarchment

Umm Ive Made A Video On This But Havent Had The Time To Post It On Here So Im Going To Later Probally !

MPGH Tutorial: How to Code a Tapper[VB]

Post a Reply

Tags for this Thread