wot is wrom with hack? (VB6)

[dikketr0l]

wot is wrong with by codes? (i'm using VB 6) if i press a hotkey (in numtab) nothing hapens ( all timers are interfall 1 )

Here some codes:

rivate Sub Timer1_Timer()
If GetKeyPress(vbKeyNumpad1) Then
Call WriteALong("WarRock", &H7DB120, 1120403456)
End If
End Sub

__________________________________________________

Private Sub Timer2_Timer()
If GetKeyPress(vbKeyNumpad2) Then
Call WriteALong("WarRock", &H90DC6F, 0)
Call WriteALong("WarRock", &H90DC70, 0)
Call WriteALong("WarRock", &H90DC71, 0)
Call WriteALong("WarRock", &H90DC72, 0)
Call WriteALong("WarRock", &H90DC73, 0)
Call WriteALong("WarRock", &H90DC74, 0)
Call WriteALong("WarRock", &H90DC75, 0)
Call WriteALong("WarRock", &H90DC76, 0)
Call WriteALong("WarRock", &H90DC77, 0)
Call WriteALong("WarRock", &H90DC78, 0)
Call WriteALong("WarRock", &H90DC79, 0)
End If
End Sub

__________________________________________________ ___


Private Sub Timer3_Timer()
If GetKeyPress(vbKeyNumpad3) Then
Call WriteALong("WarRock", &HB20E40, 0)
Call WriteALong("WarRock", &HDED290, 0)
End If
End Sub




Ooohh No you can see the adresses (NP got them from a site)



, Jordy

[smartie]

fist line:
rivate Sub Timer1_Timer()
Private Sub Timer1_Timer()

Or 's that just a copy fault =.='

[dikketr0l]

fist line:
rivate Sub Timer1_Timer()
Private Sub Timer1_Timer()

Or 's that just a copy fault =.='

just a copy fault

[smartie]

I'm too tired too read it =.='
Someone else help this guy/girl.

[kingkicker8]

do

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

in front, for activate hotkeys

[mains3rv3r]

You are only setting the value... you need to freeze it... so you need 1 timer for the hotkeys and 1 timer each for each value you want to freeze... example :

Private Sub Timer1_Timer()

If GetKeyPress(vbKeyNumpad1) Then 'Stamina
    Timer2.Interval = 1
End If

If GetKeyPress(vbKeyNumpad2) Then 'Perfect Aim
    Timer3.Interval = 1
End If

End Sub

Private Sub Timer2_Timer()

Call WriteALong("Warrock", &H7DB120, 1120403456)

End Sub

Private Sub Timer3_Timer()

    Call WriteALong("WarRock", &H90DC6D, 0)
    Call WriteALong("WarRock", &H90DC6E, 0)
    Call WriteALong("WarRock", &H90DC6F, 0)
    Call WriteALong("WarRock", &H90DC70, 0)
    Call WriteALong("WarRock", &H90DC71, 0)
    Call WriteALong("WarRock", &H90DC72, 0)
    Call WriteALong("WarRock", &H90DC73, 0)
    Call WriteALong("WarRock", &H90DC76, 0)
    Call WriteALong("WarRock", &H90DC77, 0)
    Call WriteALong("WarRock", &H90DC78, 0)
    Call WriteALong("WarRock", &H90DC79, 0)
    Call WriteALong("WarRock", &H90DC7A, 0)

End Sub

Reply if it worked...

[mains3rv3r]

do

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

in front, for activate hotkeys

That's actually not necessary if you do it the way I showed...

[dezer]

to do If GetKeyPress u need to do this at beginning of the code:

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

[mains3rv3r]

Yes of course that as well... but that was not his problem... his problem was setting the value... he did not freeze it.

[cjg333]

yo mains3rv3r,do you know how i can make the same hotkey turn the code on and off,likek i know how to do If getkeypress(vbkeyRButton)is my mouse hotkey,but how i make it turn it off,if you hit rbutton again

[kingkicker8]

if getasynckeystate (113) <> 0 then
if timer1.interval = 1 then
timer1.interval = 0
else
timer1.interval = 1
End If
End If

[Stranger00]

Hot keys this way kind of suck though. At least they do when I try them. Like sometimes I'd press them and they'd turn on then off because I pressed to slow or fast or w/e, any ways If you want good hot keys try this. It will turn it on/off if the key is pressed but won't change it if they key is being held down.

Private Sub Timer1_Timer()
Static P As Byte 'static means value doesn't reset when code restarts
 If GetAsyncKeyState(#) <> 0 Then
        If P > 0 Then P = 2 Else P = 1 'check if key is pressed or held down
    Else
        P = 0 'sets p to 0 if it isn't pressed
    End If
    If P = 1 Then  'If key is pressed
    'Insert Code to active and deactivate timer.
    End If
    End If
End Sub

Just put the number of the key where the # sign is and put your code where the 'Inseter Code thing is. By the way Im not taking credit for figuring this out. I found it on a site awhile ago... I'll try finding the site for credits.