[ HELP ] Stamina Code VB6

[ilovepie21]

First time using VB so trying to get hang of it i get error in this code

Private Sub Command1_Click()
If Timer1.Enabled = True Then
Timer1.Enabled = False
Else
Timer1.Enabled = True
End If
End Sub

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyShift) Then
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1363380, STAN)
STAN1 = STAN + &H288
Call WriteAFloat("WarRock", STAN1, 100)
End Sub

[[MPGH]arunforce]

Whats the error?

[ilovepie21]

Call ReadALong it wont let me save the .exe becuz " Compile Error: Sub or Function not defined " and then it highlights " Call ReadALong " and now i put in a hotkey and it highlights " GetKeyPress "

[[MPGH]arunforce]

Not sure, haven't worked in VB in a while, but it seems like Call ReadALong is not properly defined.

[skater310]

Not sure, haven't worked in VB in a while, but it seems like Call ReadALong is not properly defined.

so how do u define it?

[ilovepie21]

nobody can help?

[radnomguywfq3]

Are you using a module?

[ilovepie21]

yes i used the undetected module generator

[yup]

yes i used the undetected module generator

Then you need to see what readalong is in your module

[ilovepie21]

where is it in the module ? wat line

[johannes2]

add END IF dude then it will work