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

[Massaka]

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 : https://www.gh-gold.co.uk/keycodes.php

[Xocitus]

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

[Perunamuusi]

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

[ZeaS]

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

[radnomguywfq3]

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.

[Iam"iDude"]

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

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

[Iam"iDude"]

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!

*cough* try

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 WriteAFloat1("Warrock", shotgun1, 34)
End If
End Sub

edit: sorry for double post :-(