Hotkeys....?

[bohnenbong]

Hey i want to make a hack with hotkeys... but what are the names for the keys ?
Example : (vbKeyShift)
pls go on
Thx thx thx

[wr194t]

vbKeyLButton (1)
vbKeyRButton (2)
vbKeyCancel (3)
vbKeyMButton (4)
vbKeyBack (8)
vbKeyTab (9)
vbKeyClear (12)
vbKeyReturn (13)
vbKeyShift (16)
vbKeyControl (17)
vbKeyMenu (18)
vbKeyPause (19)
vbKeyCapital (20)
vbKeyEscape (27)
vbKeySpace (32)
vbKeyPageUp (33)
vbKeyPageDown (34)
vbKeyEnd (35)
vbKeyHome (36)
vbKeyLeft (37)
vbKeyUp (38)
vbKeyRight (39)
vbKeyDown (40)
vbKeySelect (41)
vbKeyPrint (42)
vbKeyExecute (43)
vbKeySnapshot (44)
vbKeyInsert (45)
vbKeyDelete (46)
vbKeyHelp (47)
vbKeyNumlock (144)
vbKeyScrollLock (145)

Alphabetic Key Code Constants

VbKeyA (65)
VbKeyB (66)
VbKeyC (67)
VbKeyD (68)
VbKeyE (69)
VbKeyF (70)
VbKeyG (71)
VbKeyH (72)
VbKeyI (73)
VbKeyJ (74)
VbKeyK (75)
VbKeyL (76)
vbKeyM (77)
VbKeyN (78)
VbKeyO (79)
VbKeyP (80)
VbKeyQ (81)
VbKeyR (82)
VbKeyS (83)
VbKeyT (84)
VbKeyU (85)
VbKeyV (86)
VbKeyW (87)
VbKeyX (88)
VbKeyY (89)
VbKeyZ (90)

Numeric Key Constants


vbKey0 (48)
vbKey1 (49)
vbKey2 (50)
vbKey3 (51)
vbKey4 (52)
vbKey5 (53)
vbKey6 (54)
vbKey7 (55)
vbKey8 (56)
vbKey9 (57)

Numeric Keypad Key Constants


vbKeyNumpad0 (96)
vbKeyNumpad1 (97)
vbKeyNumpad2 (98)
vbKeyNumpad3 (99)
vbKeyNumpad4 (100)
vbKeyNumpad5 (101)
vbKeyNumpad6 (102)
vbKeyNumpad7 (103)
vbKeyNumpad8 (104)
vbKeyNumpad9 (105)
VbKeyMultiply (106)
VbKeyAdd (107)
VbKeySeparator (108)
VbKeySubtract (109)
VbKeyDecimal (110)
VbKeyDivide (111)

Function Key Constants


vbKeyF1 (112)
vbKeyF2 (113)
vbKeyF3 (114)
vbKeyF4 (115)
vbKeyF5 (116)
vbKeyF6 (117)
vbKeyF7 (118)
vbKeyF8 (119)
vbKeyF9 (120)
vbKeyF10 (121)
vbKeyF11 (122)
vbKeyF12 (123)
vbKeyF13 (124)
vbKeyF14 (125)
vbKeyF15 (126)
vbKeyF16 (127)

[bohnenbong]

wow thx man You'r best

[bohnenbong]

Hmmm now i made that and now is here an error
Private Sub Timer4_Timer()
If GetKeyPress(vbKeyK) Then
Call WriteALong("WarRock", &HAD2EC0, 1176256512)
End If
End Sub

[leiva1]

Is your module process name call that if not thats why your getting that error.

[wr194t]

Replace GetKeyPress with whatever you edited it to in your module.

[leiva1]

Replace GetKeyPress with whatever you edited it to in your module.

Exactly my point lol

[bohnenbong]

hmm what do you mean....?
I dont understand it so like you want ...
------------------------------------------
AHHHHHHHH After shaking my brain i know what you mean
Ok thx thx thx to you 2
-----------------------------
After looking....
But i cant found it in my modul ...
Only GetAsyncKeyState
Or am i wrong ?

[wr194t]

hmm what do you mean....?
I dont understand it so like you want ...

In my undetected module tutorial you must have changed GetKeyPress:

Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As Long, lpdwProcessId As Long) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) AsLong
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
Public Declare Function ReadProcessMem Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByRef lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As

You must have edited that string. Whatever you edited it to change GetKeyPress to that.

[bohnenbong]

Yeah but i cant found it
Omg sry i am noob i found it^^

[leiva1]

Ok in oder for VB to read the process u choose u have to have the correct name.In this case (GetKeyPress) is not the process name in your module.Just open your module and look for the process name and replace it.

[wr194t]

Yeah but i cant found it

It is the 6th line. Search for it.

[bohnenbong]

Sorry i get it :P
now ...xD
but i tried it and than ... nothing ...

Private Sub Timer4_Timer()
If MYWORD(vbKeyK) Then
Call WriteALong("WarRock", &HAD2EC0, 1176256512)
End If
End Sub

Private Sub Timer5_Timer()
If MYWORD(vbKeyL) Then
Call WriteALong("WarRock", &HAD2EC0, 0)
End If
End Sub

Example....
Green for on
Red for off

[wr194t]

Those codes look fine. Make sure your timer intervals are all 1. Click on a timer, go to properties and change the intervals to 1. Do this with all of them.

[bohnenbong]

Hmmm i try again ,
there must be an error ....
----------
Yes again error but i have the mistake,,,
This code was for glaswalls ,
for glaswalls i dont have a 1. timer omg...
but now i know how it run
Thx