Can Someone Help me? My hotkeys dont work anymore!!!
I searched almost the whole warrock section for help, but none of them helped!
Here is a Part of My code:
Code:
Private Sub Command3_Click()
If GetKeyPress(vbKeyNumpad1) Then
Label6.Visible = True
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Single
Call ReadALong("WarRock", &H8B5288, jump)
jump1 = jump + &H180
jump3 = Text1.Text
Call WriteAFloat("WarRock", jump1, jump3)
Label6.Visible = False
End If
End Sub
Of Course If have This:
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal key As Long) As Integer
or this
Code:
Public Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
In My Module and my Form Code!
Thnx, LTKort213