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!

Why experts only? I'm not an expert, but your questions are the most noobish i've ever seen..

Yeah thats why you cant give a answer noob -.-

Oh sorry i called you a noob webtijn, you are member of www.uwhzone.****** (the website of my & killajones)

wrong adresses.. ? and maybe u'd just copy the code from some1... i hope u had forgot 1 line to copy, leechr

SHUTUP!
why post ppl topics with addresses?
RIGHT! To share them!

Originally Posted by M-Tune

Oh sorry i called you a noob webtijn, you are member of www.uwhzone.****** (the website of my & killajones)

Besides, it's Visual Basic and not Virual Basic.

Originally Posted by webtijn

Besides, it's Visual Basic and not Virual Basic.

I said Virtual Basic not 'Virual Basic' but you right its Visual Basic -.-

are you wanting a textbox for the value to go into,in your toolbar add a textbox(it will be text1,next 1 is text2,and so)

so in your code it would be

dim gun as long
dim gun1 as long
dim guns2 as long

If getkeypress(vbkeynumpad1)then
Call Readalong("WarRock",&H896e28,guns)
guns1 = guns + &H4c
guns2 = text1 'text1 being your textbox
Call Writealong("WarRock",&H896e28,guns2)

Finally a good reply! TY!!
work good!!

hotkeys got to be in timers :x

Virtual Basic Help!! Experts only!!

Similar Threads

Tags for this Thread