quebech4ck (11-18-2007)
How To Mack HotKeys On VB
By TheRedEye
Tools needed:
1. Visual Basic 5/6.
2. Brain.
3. My previous tutorial.
https://www.mpgh.net/forum/tutorials/...%5Btutorial%5D
4. Ascii Table.
Necessary Knowledge:
1. Basic programming
2. Understanding my previous tutorial.
https://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 timer1Code: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:
run the program and try to press on F1 and ctrl key.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:
Done.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
Last edited by TheRedEye; 06-08-2007 at 07:09 AM.
quebech4ck (11-18-2007)
Ehh.. wrong section? This must be in the tutorial section, not WR I. section!
Some people own, some doesn't. No mather what hack theire using.
erm... what do i do with that timer? i mean... i make this 1 timer... and then? i add what i want to it ?
Would this work mate.
~TriX~
Test mine below - I am at work & cant get on WR.
F1 is HotKey!!
Last edited by Trixiez; 06-08-2007 at 08:23 AM.
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
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)
Last edited by crazy4her; 06-08-2007 at 08:28 AM. Reason: beg 4 help
[IMG]https://www.danasof*****m/sig/KEKEgotcha.jpg[/IMG]
Try this then!
~TriX~
Geez
1. create timer
2. click it twice
3. copy this:
4. paste it into ur timerCode: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:
Now when u press F1 u will enable swim in air.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