not uce,in vb6 it works in uce with value 2000,i put it in vb6 with pointer,and + &H180,heres my code-it doesnt work
Private Sub Timer9_Timer()
Dim jump As Long
Dim jump1 As Long
Dim jump3 As Long
If GetKeyPress(vbKeyNumpad7) Then
Call ReadALong("WarRock", &H896E28, jump)
jump1 = jump + &H180
jump3 = 2000
Call WriteALong("WarRock", jump1, jump3)
End If
End Sub