Why experts only? I'm not an expert, but your questions are the most noobish i've ever seen..
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..
Some people own, some doesn't. No mather what hack theire using.
Yeah thats why you cant give a answer noob -.-
Last edited by M-Tune; 06-28-2007 at 09:12 AM.
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!
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!!