Virtual Basic Help!! Experts only!!

[M-Tune]

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!

[webtijn]

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

[M-Tune]

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

[M-Tune]

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

[kingkicker8]

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

[M-Tune]

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

[webtijn]

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.

[M-Tune]

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

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

[cjg333]

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)

[M-Tune]

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

[dezer]

hotkeys got to be in timers :x