Quick Question..

[killer2334]

Does GPS work when u make it with vb6??? and if it does how do u do it??does it need a timer?

[unseenss]

just change the value to 1, like you would with any other hack

Private Sub GPS_Click()
    Dim HOn As Long
    
    Call ReadALong("WarRock", GPS_Addy, HOn)
    
    If HOn = 0 Then
        Call WriteALong("WarRock", GPS_Addy, 1)
        gps1.ForeColor = &HFF00&
    Else
        Call WriteALong("WarRock", GPS_Addy, 0)
        gps1.ForeColor = &HFF&
    End If
End Sub

if you dont want the changing colors then just

Private Sub GPS_Click()
    Dim HOn As Long
    
    Call ReadALong("WarRock", GPS_Addy, HOn)
    
    If HOn = 0 Then Call WriteALong("WarRock", GPS_Addy, 1) Else Call WriteALong("WarRock", GPS_Addy, 0)
End Sub

3 lines ^^

[killer2334]

just change the value to 1, like you would with any other hack

Private Sub GPS_Click()
    Dim HOn As Long
    
    Call ReadALong("WarRock", GPS_Addy, HOn)
    
    If HOn = 0 Then
        Call WriteALong("WarRock", GPS_Addy, 1)
        gps1.ForeColor = &HFF00&
    Else
        Call WriteALong("WarRock", GPS_Addy, 0)
        gps1.ForeColor = &HFF&
    End If
End Sub

if you dont want the changing colors then just

Private Sub GPS_Click()
    Dim HOn As Long
    
    Call ReadALong("WarRock", GPS_Addy, HOn)
    
    If HOn = 0 Then Call WriteALong("WarRock", GPS_Addy, 1) Else Call WriteALong("WarRock", GPS_Addy, 0)
End Sub

ight ty very much appreciate it
3 lines ^^

ight ty very much appreciate it