Mutli Gaming Hacking Forum
 
HomeHome  FAQFAQ  SearchSearch  MemberlistMemberlist  UsergroupsUsergroups  RegisterRegister  Log inLog in  

Share | 
 

 Setting hotkeys to a variety of hacks.

View previous topic View next topic Go down 
AuthorMessage
Mafioso
Admin
Admin
avatar

Posts : 40
Join date : 2008-03-17

PostSubject: Setting hotkeys to a variety of hacks.   Tue Mar 18, 2008 2:18 pm

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 afro

_________________
Back to top Go down
View user profile http://mafiacoders.forumotion.com
 
Setting hotkeys to a variety of hacks.
View previous topic View next topic Back to top 
Page 1 of 1
 Similar topics
-
» FO4 Hotkeys + Modern Firearms Set up HELP
» TW - 4.1 - Problem setting my locale! HELP!
» Missing Dementation 3-5 / Hotkeys problem
» what is the best GUI, Time Setting, Book and Engine for 14 sec per move game?
» setting jam di meter siput

Permissions in this forum:You cannot reply to topics in this forum
Mafia Coders :: Warrock :: Visual Basic 6.0-
Jump to: