Home › Forum › Programming › Visual Basic Programming › [Tutorial] How to set hotkeys to more advanced hacks.
[Tutorial] How to set hotkeys to more advanced hacks.
[Tutorial] How to set hotkeys to more advanced hacks.
Hello again. You may remember my last tutorial: How to set hotkeys to basic hacks
In this tutorial i am 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:
Ok make a timer with a interval of 1, enabled true and use this code:
Note: If you hold the middle mouse button you will stay in the air which is like Sky Stormer.
NFD (No Fall Damage):
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:
And for Off:
Weapons:
I imagine that this code is in a button so this one can be really simple:
Last but not least Swim:
Setting hotkeys to Swim is the same as NFD.
+rep me if this tutorial was helpful/useful to you.
Credits: wr194t (AKA 5c0tt.)
In this tutorial i am 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:
Code:
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)
Code:
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)
NFD (No Fall Damage):
Code:
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("Warrock", &HAddress, NFD)
NFD1 = NFD + &HOffset
Call WriteAFloat("Warrock", NFD1, -2000)
Both timers intervals should be 1 and both enabled true.
Now for the On kotkey:
Code:
If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyN) Then Timer?.Enabled = True (? = Whatever the timer number is with your NFD code.)
Code:
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)
Code:
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("Warrock", &HAddress, NFD)
Shotgun2 = Shotgun1 + &HOffset
Call WriteAFloat("Warrock", Shotgun2, Value)
Code:
If GetKeyPress (vbKeyControl) And GetKeyPress (vbKeyA) Then Command?_Click (? = Whatever the Command button number is with your Weapons code.
Code:
Dim SSwim1 As Long
Dim SSwim2 As Long
Call ReadALong("Warrock", &HAddress, NFD)
SSwim2 = SSwim1 + &HOffset
Call WriteAFloat("Warrock", SSwim2, 4)
+rep me if this tutorial was helpful/useful to you.
Credits: wr194t (AKA 5c0tt.)
lol i still cant give you a rep as apparently i "need to share them round" (message given by the forum software)
It's alright. That message just means that you need to +rep other people before you can +rep me again.
What i must to add for command button on super jump
I added the code for timer
And command button is empty
I added the code for timer
And command button is empty
Originally Posted by Feniks
What i must to add for command button on super jump
I added the code for timer
And command button is empty
I added the code for timer
And command button is empty
Code:
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)
Code:
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
When i played on Marien I clicked on command button of super-jump i felt to underground and hotkey doesnt work
Originally Posted by Feniks
When i played on Marien I clicked on command button of super-jump i felt to underground and hotkey doesnt work
Command Button:
Timer (Enabled - False, Interval - 1)
Text1.textbox
Code:
Private Sub Command1_Click() Dim JSER As Long Dim JSER1 As Long Dim JSER2 As Single Call readalong(&H129EF90, JSER) JSER1 = JSER + &H178 JSER2 = Text1.Text Call writeafloat(JSER1, 2000) End Sub
Code:
Private Sub Timer1_Timer() If GetKeyPress(vbKeyMButton) Then Dim JSER As Long Dim JSER1 As Long Dim JSER2 As Single Call readalong(&H129EF90, JSER) JSER1 = JSER + &H178 JSER2 = Text1.Text Call writeafloat(JSER1, 2000) End If End Sub
Code:
2000
That all seems correct. It could be the address or offset, I'm not too sure.
Hotkey doesnt working! Because when i clicked on command button i am jumped!! How i can fix this problem?
Originally Posted by Feniks
Hotkey doesnt working! Because when i clicked on command button i am jumped!! How i can fix this problem?
Code:
If GetKeyPress(vbKeyMButton) Then Command1_Click
why hacks dount work in me computer
Because your a choob that bumps threads.
thread bumper.....just stfu and leave
Similar Threads
- 4Last post
- 18Last post
- 32Last post
- Advanced Hacking tutorial (How to find adresses for the coolest trainer functions)By nukeist_ in WarRock - International Hacks8Last post
- 13Last post