This Doesn't work
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.
p.s. im not takin credit for this i just copyed it from somewere cause i needed it and thought id share it
what doesnt work,plz explain a little better than this dont work.what part doesnt work do you know how to use vb6? did u add a module?its not all there you have to know how to code it rt.
I am reading this again & again. How do I open the library code. Once I know that I can work it (I think).
~TriX~
[EDIT] Maybe the library code is the main code. I will give that a go.
Last edited by Trixiez; 06-08-2007 at 05:12 AM.
I try it and try but i keep getting compile error with Call WriteAInt highlighted. :/
you cannot use call Writeaint,you need to use
If GetKeyPress(VbKeyNumpad1) then
Call WriteALong ("Warrock", &H898989, &H4)
heres my gps code for vb6,this is in a timer,with an interval of 100
If GetKeyPress(vbKeyNumpad1) Then
Call WriteALong("WarRock", &H90DC84, &H1)
End If
Last edited by cjg333; 06-21-2007 at 09:32 PM.