Home › Forum › MultiPlayer Game Hacks & Cheats › Other Semi-Popular First Person Shooter Hacks › WarRock - International Hacks › Virtual Basic Help!! Experts only!!
Virtual Basic Help!! Experts only!!
Virtual Basic Help!! Experts only!!
I need help with some virtual basic things!!
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!
- 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!
Originally Posted by M-Tune
Besides, it's Visual Basic and not Virual Basic.