wats wrong with the Super Jump code
wats wrong with the Super Jump code
its in vb6
Private Sub Command5_Click()
Timer3.Interval = 1
End Sub
Private Sub Command14_Click()
Timer3.Interval = 0
End Sub
Private Sub Timer3_Timer()
If GetKeyPress(vbKeyControl) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HA1279280, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End If
End Sub
text1 is set to 2000.
Private Sub Command5_Click()
Timer3.Interval = 1
End Sub
Private Sub Command14_Click()
Timer3.Interval = 0
End Sub
Private Sub Timer3_Timer()
If GetKeyPress(vbKeyControl) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HA1279280, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End If
End Sub
text1 is set to 2000.
Originally Posted by nub_g0t_high
its in vb6
Private Sub Command5_Click()
Timer3.Interval = 1
End Sub
Private Sub Command14_Click()
Timer3.Interval = 0
End Sub
Private Sub Timer3_Timer()
If GetKeyPress(vbKeyControl) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HA1279280, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End If
End Sub
text1 is set to 2000.
Private Sub Command5_Click()
Timer3.Interval = 1
End Sub
Private Sub Command14_Click()
Timer3.Interval = 0
End Sub
Private Sub Timer3_Timer()
If GetKeyPress(vbKeyControl) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HA1279280, JSER)
JSER1 = JSER + &H178
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End If
End Sub
text1 is set to 2000.
learn vb, then you're able to create cheats
Private Sub Timer3_Timer()
If GetKeyPress(vbKeyControl) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HA1279280, JSER)
JSER = JSER1 + &H178
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End If
End Sub
that's how ur supposed to do it.
and u dont put it in a timer u dick. o btw superjump is detected i think.
If GetKeyPress(vbKeyControl) Then
Dim JSER As Long
Dim JSER1 As Long
Dim JSER2 As Single
Call ReadALong("WarRock", &HA1279280, JSER)
JSER = JSER1 + &H178
JSER2 = Text1.Text
Call WriteAFloat("WarRock", JSER1, JSER2)
End If
End Sub
that's how ur supposed to do it.
and u dont put it in a timer u dick. o btw superjump is detected i think.
did wat u said, and put ur code in a command. still did not work.
wat should my timer interval be?
wat should my timer interval be?
does it give any errors?
Originally Posted by XqwertyX
does it give any errors?
Post this in the VB section, you will get a better reply.
This thread is closed for replies.
