Adding Hotkeys In VB6
VB hotkeys ::

You have to make a timer for hotkeys , put this code as timer code, dont ever use these codes on command .just timer , this is hotkey code on timer. add it to your timer.

If GetKeyPress(vbKey"urkey") Then Call WriteAInt(address, value)


if ur code was more than one line you can add them in the next line for example :

If GetKeyPress(vbKey"urkey") Then Call WriteAbyte(Address, value)
Call WriteAByte(address, value)
Call WriteAbyte(address, value )
Call WriteAByte(address, value)

then you have to add this code to the top of your Code library so it becomes the first line of the codes in the code library (add it to the form you want to use hotkey )

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer


then you have to change the Timer Properties . change Enabled to true and interval to 1.


then you have to change timer code.

now we come back to timer code , we put GPS on as our example .and we want to press G to Activate GPS on code.



If GetKeyPress(vbKeyG) Then Call WriteAInt(&H42697C, &H9090)

notice : G in red means the hotkey to activate the code.

, YOU MIGHT DONT GET IT YET , SO WE WORK ON ANOTHER EXAMPLE.

1.We have Saw Scope Code for Df2 and we want to activate it by pressing E.

If GetKeyPress(vbKeyE) Then Call WriteAInt(&H44E6EC, &H9090)
Call WriteAByte(&H44C81B, &HEB)
Call WriteAInt(&H44EBC4, &HFF24)
Call WriteAByte(&H79A698, &H2)

that is it , when you press E the Saw scope activate.

Tutorial About Adding Visual Basic 6 HOTKEYS by x-UnDeaD

>>>> Contact Me <<<<
At-


undead@extalia.com