Virtual Basic Help!! Experts only!!

I need help with some virtual basic things!!

How to make a 'value box'? (for superjump, or weapons)
Look at my code, only stamina and insta spawn does work AND THE HOTKEYS ALSO DONT WORK
No fucking spammers here! Only serious answers!

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Command1_Click()
Timer1.Interval = 1
End Sub
Private Sub Command2_Click()
Timer1.Interval = 0
End Sub
Private Sub Command3_Click()
Timer2.Interval = 1
End Sub
Private Sub Command4_Click()
Timer2.Interval = 0
End Sub

Private Sub Command5_Click()
If GetAsyncKeyState(118) <> 0 Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H896E28, shotgun)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 34)
End If
End Sub

Private Sub Command6_Click()
If GetAsyncKeyState(117) <> 0 Then
Call WriteALong("WarRock", &HBB146B0, 4)
End If
End Sub

Private Sub Command7_Click()
If GetAsyncKeyState(119) <> 0 Then
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H894E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)
End If
End Sub

Private Sub Command8_Click()
If GetAsyncKeyState(120) <> 0 Then
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H894E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 0)
End If
End Sub

Private Sub Command9_Click()
If GetAsyncKeyState(121) <> 0 Then
Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H894E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 5)
End If
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &H7DB120, 1120403456)
End Sub
Private Sub Timer10_Timer()
If GetAsyncKeyState(117) <> 0 Then
Timer9.Interval = 1
End If
End Sub
Private Sub Timer2_Timer()
Call WriteALong("WarRock", &HDED290, 0)
Call WriteALong("WarRock", &HB20E40, 0)
End Sub
Private Sub Timer3_Timer()
If GetAsyncKeyState(112) <> 0 Then
Timer1.Interval = 1
End If
End Sub
Private Sub Timer4_Timer()
If GetAsyncKeyState(113) <> 0 Then
Timer1.Interval = 0
End If
End Sub
Private Sub Timer5_Timer()
If GetAsyncKeyState(114) <> 0 Then
Timer2.Interval = 1
End If
End Sub
Private Sub Timer6_Timer()
If GetAsyncKeyState(116) <> 0 Then
Timer2.Interval = 0
End If
End Sub

Private Sub Timer8_Timer()
If GetAsyncKeyState(118) <> 0 Then
Timer7.Interval = 1
End If
End Sub

TY!

Virtual Basic Help!! Experts only!!

Post a Reply

Similar Threads

Tags for this Thread