Home › Forum › MultiPlayer Game Hacks & Cheats › Other Semi-Popular First Person Shooter Hacks › WarRock - International Hacks › [Tutorial] How To Mack HotKeys On VB
[Tutorial] How To Mack HotKeys On VB
[Tutorial] How To Mack HotKeys On VB
How To Mack HotKeys On VB
By TheRedEye
Tools needed:
1. Visual Basic 5/6.
2. Brain.
3. My previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
4. Ascii Table.
Necessary Knowledge:
1. Basic programming
2. Understanding my previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
Part One - Adding One Hotkey
Open up your form, right click on the form "View Code" then write:
Now Select a Timer and put it on the form - it will be timer1
Then go to the Timer properties and look for Interval -
Set the Interval value to 100
Now Double click on the timer and write this code:
run the program and try to press on F1 and ctrl key. 
Part Two - Adding 2 Or More Hotkeys
do the exact the same introductions of part one but put this code under the timer:
Done.
Some Asciis:
1 = Left Click
2 = Right Click
16 = Shift
17 = Ctrl
18 = Alt
From 112 - 123 = From F1 - F12
Copyright
TheRedEye.
give me some reputation dudes!
Bonus:
Scope Hack Using Right Click That I Made With HotKeys
By TheRedEye
Tools needed:
1. Visual Basic 5/6.
2. Brain.
3. My previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
4. Ascii Table.
Necessary Knowledge:
1. Basic programming
2. Understanding my previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
Part One - Adding One Hotkey
Open up your form, right click on the form "View Code" then write:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Then go to the Timer properties and look for Interval -
Set the Interval value to 100
Now Double click on the timer and write this code:
Code:
If GetAsyncKeyState(112) <> 0 Then
Msgbox "Hotkey - F1"
End If
If GetAsyncKeyState(17) <> 0 Then
Msgbox "Hotkey - Ctrl"
End If
Part Two - Adding 2 Or More Hotkeys
do the exact the same introductions of part one but put this code under the timer:
Code:
If GetAsyncKeyState(16) <> 0 And GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(112) <> 0 Then
MsgBox "Hotkeys - Shift + Ctrl + F1"
End If
Some Asciis:
1 = Left Click
2 = Right Click
16 = Shift
17 = Ctrl
18 = Alt
From 112 - 123 = From F1 - F12
Copyright
TheRedEye.
give me some reputation dudes!
Bonus:
Scope Hack Using Right Click That I Made With HotKeys
Ehh.. wrong section? This must be in the tutorial section, not WR I. section!
erm... what do i do with that timer? i mean... i make this 1 timer... and then? i add what i want to it ?
Originally Posted by MS Word
erm... what do i do with that timer? i mean... i make this 1 timer... and then? i add what i want to it ?
Originally Posted by TheRedEye
How To Mack HotKeys On VB
By TheRedEye
Tools needed:
1. Visual Basic 5/6.
2. Brain.
3. My previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
4. Ascii Table.
Necessary Knowledge:
1. Basic programming
2. Understanding my previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
Part One - Adding One Hotkey
Open up your form, right click on the form "View Code" then write:
Now Select a Timer and put it on the form - it will be timer1
Then go to the Timer properties and look for Interval -
Set the Interval value to 100
Now Double click on the timer and write this code:
run the program and try to press on F1 and ctrl key.
Part Two - Adding 2 Or More Hotkeys
do the exact the same introductions of part one but put this code under the timer:
Done.
Some Asciis:
1 = Left Click
2 = Right Click
16 = Shift
17 = Ctrl
18 = Alt
From 112 - 123 = From F1 - F12
Copyright
TheRedEye.
give me some reputation dudes!
Bonus:
Scope Hack Using Right Click That I Made With HotKeys
By TheRedEye
Tools needed:
1. Visual Basic 5/6.
2. Brain.
3. My previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
4. Ascii Table.
Necessary Knowledge:
1. Basic programming
2. Understanding my previous tutorial.
http://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
Part One - Adding One Hotkey
Open up your form, right click on the form "View Code" then write:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Then go to the Timer properties and look for Interval -
Set the Interval value to 100
Now Double click on the timer and write this code:
Code:
If GetAsyncKeyState(112) <> 0 Then
Msgbox "Hotkey - F1"
End If
If GetAsyncKeyState(17) <> 0 Then
Msgbox "Hotkey - Ctrl"
End If
Part Two - Adding 2 Or More Hotkeys
do the exact the same introductions of part one but put this code under the timer:
Code:
If GetAsyncKeyState(16) <> 0 And GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(112) <> 0 Then
MsgBox "Hotkeys - Shift + Ctrl + F1"
End If
Some Asciis:
1 = Left Click
2 = Right Click
16 = Shift
17 = Ctrl
18 = Alt
From 112 - 123 = From F1 - F12
Copyright
TheRedEye.
give me some reputation dudes!
Bonus:
Scope Hack Using Right Click That I Made With HotKeys
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Originally Posted by crazy4her
where ,in the form, do i write this in?
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
just write not on sub..
Would this work mate.
~TriX~
Test mine below - I am at work & cant get on WR.
F1 is HotKey!!
~TriX~
Test mine below - I am at work & cant get on WR.
F1 is HotKey!!
Originally Posted by Trixiez
Would this work mate.
~TriX~
Test mine below - I am at work & cant get on WR.
F1 is HotKey!!
Code:
Private Sub Timer1_Timer()
If GetAsyncKeyState(112) <> 0 Then
Call WriteALong("WarRock", &H7D9120, 1120403456)
End If
End Sub
Test mine below - I am at work & cant get on WR.
F1 is HotKey!!
Originally Posted by crazy4her
does trixiez work REdEye?
~TriX~
If i add
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
And if i want run trainer i've got error:
Only comments may appear after End Sub, End Function, End Property
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
And if i want run trainer i've got error:
Only comments may appear after End Sub, End Function, End Property
Originally Posted by Trixiez
Try it!
~TriX~
~TriX~
If GetAsyncKeyState(112) <> 0 Then
Msgbox "Hotkey - F1"
End If
If GetAsyncKeyState(17) <> 0 Then
Msgbox "Hotkey - Ctrl"
End If
when I type this code
Where do I put the code for example for scope:
Call WriteALong("WarRock", &H90DC36, 1)
pls help me
(sorry double post)
Msgbox "Hotkey - F1"
End If
If GetAsyncKeyState(17) <> 0 Then
Msgbox "Hotkey - Ctrl"
End If
when I type this code
Where do I put the code for example for scope:
Call WriteALong("WarRock", &H90DC36, 1)
pls help me
(sorry double post)
Try this then!
~TriX~
~TriX~
Originally Posted by Trixiez
Try this then!
~TriX~
~TriX~
Geez
1. create timer
2. click it twice
3. copy this:
4. paste it into ur timer
5. modify Msgbox "Hotkey - F1" into what u want the hotkey to do. for swim it will be like this:
Now when u press F1 u will enable swim in air.
1. create timer
2. click it twice
3. copy this:
Code:
If GetAsyncKeyState(112) <> 0 Then
Msgbox "Hotkey - F1"
End If
5. modify Msgbox "Hotkey - F1" into what u want the hotkey to do. for swim it will be like this:
Code:
Private Sub UrTimerName_Timer()
If GetAsyncKeyState(112) <> 0 Then
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H896E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End If
End Sub
Similar Threads
- 4Last post
- 13Last post
- 13Last post
- 22Last post
- [TUTORIAL]How to control an airplane :p and ofcourse insert itBy System79 in WarRock - International Hacks8Last post