Setting hotkeys to a variety of hacks.

Ok so you have just made a hack and now you want to set hotkeys? Ok i will use stamina for example:

Quote :

Private Sub Timer1_Timer()
Call WriteALong("Warrock", &HAddress, 1120403456)
End Sub

So this should be your stamina code and to set a hotkey to it you need to make another timer with an interval of 1, now add this code:

Quote :

Private Sub Timer2_Timer()
If GetKeyPress(vbKeyShift) Then
Call WriteALong("Warrock", &HAddress, 1120403456)
End If
End Sub

Shift is just an example, you can use any other key if you want put I would recommend shift. So basically you can use this same method for allot of other hacks like No Recoil/Spread, Instant Spawn etc, you just have to change the addresses, values and hotkeys. The good thing about this is it doesn't freeze your stamina it refills it, freezing values is one thing that can get detected in a hack.

Move advanced hacks next:

In this part, I'm going to show you how to set hotkeys to hacks like:

Super Jump/Sky Stormer
NFD (No Fall Damage)
Weapons
Swim

Lets start with Super Jump. So this is what your Super Jump code will probably look like:

Quote :

Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HAddress, JSER)
JSER1 = JSER + &HOffset
JSER2 = Text1.Text (Or a value.)
Call WriteAFloat("WarRock", JSER1, JSER2)

Ok make a timer with a interval of 1, enabled true and use this code:

Quote :

If GetKeyPress (vbKeyMButton) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HAddress, JSER)
JSER1 = JSER + &HOffset
JSER2 = Text1.Text (Or a value.)
Call WriteAFloat("WarRock", JSER1, JSER2)
End If

Note: If you hold the middle mouse button you will stay in the air which is like Sky Stormer.

NFD (No Fall Damage):

Quote :

Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("Warrock", &HAddress, NFD)
NFD1 = NFD + &HOffset
Call WriteAFloat("Warrock", NFD1, -2000)

You will need 2 timers (1 timer for On and another for Off.)

Both timers intervals should be 1 and both enabled true.
Now for the On kotkey:

Quote :

If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyN) Then
Timer?.Enabled = True (? = Whatever the timer number is with your NFD code.)

And for Off:

Quote :

If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyM) Then
Timer?.Enabled = False
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("Warrock", &HAddress, NFD)
NFD1 = NFD + &HOffset
Call WriteAFloat("Warrock", NFD1, 0)

Weapons:

Quote :

Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &HAddress, Shotgun1 )
Shotgun2 = Shotgun1 + &HOffset
Call WriteAFloat("Warrock", Shotgun2, Value)

I imagine that this code is in a button so this one can be really simple:

Quote :

If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyA) Then Command?_Click (? = Whatever the Command button number is with your Weapons code.

Last but not least Swim:

Quote :

Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &HAddress, SSwim1)
SSwim2 = SSwim1 + &HOffset
Call WriteAFloat("Warrock", SSwim2, 4)

Setting hotkeys to Swim is the same as NFD.

Tutorial: Mafioso