Hotkeys on VB6 Problem
Hotkeys on VB6 Problem (getting bypass for help)
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!
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 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?
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
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.
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.
Originally Posted by 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".
Originally Posted by ........
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!
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!
Code:
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
This thread is closed for replies.
