my first time coding in vb so im trying to get the hang of it i keep getting errors using this
Code:
Private Sub Stamina_Click()
1 button:
Timer1.Enabled = True
2 button:
Timer1.Enabled = False
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End Sub
Originally Posted by ilovepie21
my first time coding in vb so im trying to get the hang of it i keep getting errors using this
Code:
Private Sub Stamina_Click()
1 button:
Timer1.Enabled = True
2 button:
Timer1.Enabled = False
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End Sub
Drop this:
Code:
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
in a timer.
and drop this:
Code:
if Timer1.Enabled = True then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
in your button...
like this:
Code:
Private Sub Stamina_Click()
if Timer1.Enabled = True then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub
Originally Posted by ilovepie21
