My Hack doesnt work oO

[kingkicker8]

Hi,
i read all tut's here and tried out an hack.. (VB6)
first all was going right but today it wont work oO...

[since i turn hotkeys in..]

could some1 help me pls?..
per icq preffer or AIM..

icq = 410-628-668

Thx & Greetz

[jokuvaan11]

Hi,
i read all tut's here and tried out an hack.. (VB6)
first all was going right but today it wont work oO...

[since i turn hotkeys in..]

could some1 help me pls?..
per icq preffer or AIM..

icq = 410-628-668

Thx & Greetz

We can't help,You have to send your codes here
and then we look what is wrong???!!!???!!!

[kingkicker8]

my code:

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

Integer

Private Sub Command1_Click()
If GetAsyncKeyState(112) <> 0 Then Msgbox "Hotkey - F1"
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Command3_Click()
Dim shotgun As Long
Dim shotgun1 As Long
If GetAsyncKeyState(17) <> 0 Then Msgbox "Hotkey - STRG"
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)

End Sub

Private Sub Command4_Click()
Dim shotgun As Long
Dim shotgun1 As Long
If GetAsyncKeyState(16) <> 0 Then Msgbox "Hotkey - SHIFT"
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 46)
End Sub

Private Sub Command5_Click()
If GetAsyncKeyState(113) <> 0 Then Msgbox "Hotkey - F2"
Timer2.Interval = 1
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub

Private Sub Timer2_Timer()
Call WriteALong("WarRock", &HDED290, 0)
End Sub

does anyone got a superjump code with hotkeys: alt + space? ^^.. [no fall dmg i dont know too xD]


Thx & Greetz