[Tutorial] How To Mack HotKeys On VB

[TheRedEye]

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:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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:

If GetAsyncKeyState(112) <> 0 Then
        Msgbox "Hotkey - F1"
End If

If GetAsyncKeyState(17) <> 0 Then
        Msgbox "Hotkey - Ctrl"
End If

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:

If GetAsyncKeyState(16) <> 0 And GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(112) <> 0  Then
        MsgBox "Hotkeys - Shift + Ctrl + F1"
End If

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

[webtijn]

Ehh.. wrong section? This must be in the tutorial section, not WR I. section!

[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 ?

[TheRedEye]

erm... what do i do with that timer? i mean... i make this 1 timer... and then? i add what i want to it ?

In stand of MsgBox.. u write the commands u want

[crazy4her]

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:

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

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:

If GetAsyncKeyState(112) <> 0 Then
        Msgbox "Hotkey - F1"
End If

If GetAsyncKeyState(17) <> 0 Then
        Msgbox "Hotkey - Ctrl"
End If

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:

If GetAsyncKeyState(16) <> 0 And GetAsyncKeyState(17) <> 0 And GetAsyncKeyState(112) <> 0  Then
        MsgBox "Hotkeys - Shift + Ctrl + F1"
End If

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

where ,in the form, do i write this in?
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

[TheRedEye]

where ,in the form, do i write this in?
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

At the beginning of the code
just write not on sub..

[Trixiez]

Would this work mate.

~TriX~

Test mine below - I am at work & cant get on WR.

F1 is HotKey!!

[crazy4her]

Would this work mate.

Private Sub Timer1_Timer()
If GetAsyncKeyState(112) <> 0 Then
        Call WriteALong("WarRock", &H7D9120, 1120403456)
End If
End Sub

~TriX~

Test mine below - I am at work & cant get on WR.

F1 is HotKey!!

does trixiez work REdEye?

[Trixiez]

does trixiez work REdEye?

Try it!

~TriX~

[panmily]

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

[crazy4her]

Try it!

~TriX~

nop it doesnt work

[crazy4her]

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)

[Trixiez]

Try this then!

~TriX~

[crazy4her]

Try this then!

~TriX~

nope doesnt work neither

[dezer]

Geez
1. create timer
2. click it twice
3. copy this:

If GetAsyncKeyState(112) <> 0 Then
        Msgbox "Hotkey - F1"
End If

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:

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

Now when u press F1 u will enable swim in air.