Hotkeys on VB6 Problem

Why doesn't work any hotkey pls help...this is an example.

Private Sub Timer1_Timer()
If GetAsyncKeyState(18) <> 0 Then
Dim sj As Long
Dim sj1 As Long
Dim sj2 As Single
Call ReadALong1("Warrock", &HXXXXXX, sj)
sj1 = sj + &HXXX
sj2 = Text1.Text
Call WriteAFloat1("Warrock", sj1, Text1.Text)
End If
End Sub

(Intervall=100)

why it doesn't work??? +help



here another example that doesn't work:

Private Sub Timer2_Timer()
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyNumpad1) Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong1("Warrock", &HXXXXXX, shotgun)
shotgun1 = shotgun + &HXX
Call WriteALong1("Warrock", shotgun1, 34)
End If
End Sub

(Interval=1)

why it doesn't work??? +help

HELPPPPPPPPPPPPPPPPPPPPPPPPP!

so nobody want to help but when you help me and it works than you get a private bypass from me...sry for double posting

Maybe this works:

Private Sub TimerX_Timer()
If GetKeyPress(vbKeyX) Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong1("Warrock", &HXXXXXX, shotgun)
shotgun1 = shotgun + &HXX
Call WriteALong1("Warrock", shotgun1, 34)
End If
End Sub


Good site for the keys : http://www.gh-gold.co.uk/keycodes.php

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As _
Long) As Integer
'^^Define this....

Private Sub Timer1_Timer()
If GetAsyncKeyState(18) <> 0 Then
Dim sj As Long
Dim sj1 As Long
Dim sj2 As Single
Call ReadALong1("Warrock", &HXXXXXX, sj) 'Sure about the 1?
sj1 = sj + &HXXX
sj2 = Text1.Text
Call WriteAFloat1("Warrock", sj1, Text1.Text) 'Sure about the 1?
End If
End Sub

ps: do you get error or what?

no error but its so different i use my own module so i think nobody can help me out.

its so i make that right it work when i test with play button but when i test it in game nothing work with the hotkey...so i press a button then the hack work but not with hotkey

I think it is becouse of that you have typed "Warrock" as the name of the process, but the real process name is "WarRock".

timer interval = 100 ?? the declaration into general?? it must work...

KK give my your module(I don't use WriteAByte Module So I won't steal it). And in vb.net getkeypress doesn't work you have to use a diffrent API, another thing in VB.net its
if(getkeypress(keys.x)) then
Well thats what it would be if it did work. I'll try to find a diffrent API for you.

it doesnt matter as long as it is spelled the same.

*cough* try
edit: sorry for double post :-(