post your module
They do not work only Stamina works can someone help me
Code:Private Sub BoneShotOff_Click() BoneShotTimer.Enabled = False End Sub Private Sub BoneShotOn_Click() BoneShotTimer.Enabled = True End Sub Private Sub BoneShotTimer_Timer() Call WriteALong("WarRock", &H4A3424) End Sub Private Sub CrossHairOff_Click() CrossHairTimer.Enabled = False End Sub Private Sub CrossHairOn_Click() CrossHairTimer.Enabled = True End Sub Private Sub CrossHairTimer_Timer() If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyC) Then Call WriteALong("WarRock", &HB196D0, 1) End Sub Private Sub Form_Load() End Sub Private Sub InstantSpawnOff_Click() InstantSpawnTimer.Enabled = False End Sub Private Sub InstantSpawnOn_Click() If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyZ) Then InstantSpawnTimer.Enabled = True End Sub Private Sub InstantSpawnTimer_Timer() Call WriteALong("WarRock", &HD960E8, 0) Call WriteALong("WarRock", &H10C3A94, 0) End Sub Private Sub NFDOff_Click() NFDTimer.Enabled = False End Sub Private Sub NFDOn_Click() If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyX) Then NFDTimer.Enabled = True End Sub Private Sub NFDTimer_Timer() Dim NFD As Long Dim NFD1 As Long Call ReadALong("WarRock", &H1373FD8, NFD) NFD1 = NFD + &H260 Call WriteAFloat("WarRock", NFD1, -2000) End Sub Private Sub NoRecoilOrSpeadOff_Click() NoRecoilOrSpreadTimer.Enabled = False End Sub Private Sub NoRecoilOrSpeadOn_Click() NoRecoilOrSpreadTimer.Enabled = True End Sub Private Sub NoRecoilOrSpreadTimer_Timer() If GetKeyPress(vbKeyLeftMouse) Then Dim NR1A As Long Dim NR1B As Long Call ReadALong("WarRock", &H1373FD8, NR1A) NR1B = NR1A + &H2D8 Dim NR2A As Long Dim NR2B As Long Call ReadALong("WarRock", &H1373FD8, NR2A) NR2B = NR2A + &H2DC Dim NR3A As Long Dim NR3B As Long Call ReadALong("WarRock", &H1373FD8, NR3A) NR3B = NR3A + &H2E0 Call WriteALong("WarRock", &HB196F8, 0) End Sub Private Sub ScopeOff_Click() ScopeTimer.Enabled = False End Sub Private Sub ScopeOn_Click() ScopeTimer.Enabled = True End Sub Private Sub ScopeTimer_Timer() If GetKeyPress(vbKeyRightMouse) Then Call WriteALong("WarRock", &HB196AA, 1) End Sub Private Sub StaminaOff_Click() StaminaTimer.Enabled = False End Sub Private Sub StaminaOn_Click() StaminaTimer.Enabled = True End Sub Private Sub Weapons_Click() If WeaponsText.Text > 72 Then WeaponsText.Text = "34" End If Dim Weapons1 As Long Dim Weapons2 As Long Call ReadALong("WarRock", &H1373FD8, Weapons1) Weapons2 = Weapons1 + &H4C Call WriteAFloat("WarRock", Weapons1, WeaponsText.Text) End Sub Private Sub Flash_Click() If GetKeyPress(vbKeyF4) Then Dim Flash1 As Long Dim Flash2 As Long Call ReadALong("WarRock", &H1373FD8, Flash1) Flash2 = Flash1 + &H4C Call WriteAFloat("WarRock", Flash1, 46) End Sub Private Sub K400_Click() If GetKeyPress(vbKeyF2) Then Dim K4001 As Long Dim K4002 As Long Call ReadALong("WarRock", &H1373FD8, K4001) K4002 = K4001 + &H4C Call WriteAFloat("WarRock", K4001, 43) End Sub Private Sub Shotgun_Click() If GetKeyPress(vbKeyF1) Then Dim Shotgun1 As Long Dim Shotgun2 As Long Call ReadALong("WarRock", &H1373FD8, Shotgun1) Shotgun2 = Shotgun1 + &H4C Call WriteAFloat("WarRock", Shotgun1, 34) End Sub Private Sub Smoke_Click() If GetKeyPress(vbKeyF3) Then Dim Smoke1 As Long Dim Smoke2 As Long Call ReadALong("WarRock", &H1373FD8, Smoke1) Smoke2 = Smoke1 + &H4C Call WriteAFloat("WarRock", Smoke1, 45) End Sub Private Sub StaminaTimer_Timer() If GetKeyPress(vbKeyShift) Then Dim STAN As Long Dim STAN1 As Long Call ReadALong("WarRock", &H1373FD8, STAN) STAN1 = STAN + &H288 Call WriteALong("WarRock", STAN1, 1120403456) End If End Sub
Interesting use of read vs write maybe worth re-checking. When you load this does A. nothing happens or B. you crash? might help arise more solutions.
Last edited by Toymaker; 03-09-2008 at 04:37 AM.
I'm pro whit vb and C++ and i see your problem
You make more wrong then you think add my email and i help you
theonzman@hotmail.com
i have fixed any things
Private Sub BoneShotOff_Click()
BoneShotTimer.Enabled = False
End Sub
Private Sub BoneShotOn_Click()
BoneShotTimer.Enabled = True
End Sub
Private Sub BoneShotTimer_Timer()
Call WriteALong("WarRock", &H4A3424)
End Sub
Private Sub CrossHairOff_Click()
CrossHairTimer.Enabled = False
End Sub
Private Sub CrossHairOn_Click()
CrossHairTimer.Enabled = True
End Sub
Private Sub CrossHairTimer_Timer()
If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyC) Then
Call WriteALong("WarRock", &HB196D0, 1)
End If
End Sub
Private Sub Form_Load()
End Sub
Private Sub InstantSpawnOff_Click()
InstantSpawnTimer.Enabled = False
End Sub
Private Sub InstantSpawnOn_Click()
If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyZ) Then
InstantSpawnTimer.Enabled = True
end if
End Sub
Private Sub InstantSpawnTimer_Timer()
Call WriteALong("WarRock", &HD960E8, 0)
Call WriteALong("WarRock", &H10C3A94, 0)
End Sub
Private Sub NFDOff_Click()
NFDTimer.Enabled = False
End Sub
Private Sub NFDOn_Click()
If GetKeyPress(vbKeyCtrl) And GetKeyPress(vbKeyX) Then
NFDTimer.Enabled = True
end if
End Sub
Private Sub NFDTimer_Timer()
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1373FD8, NFD)
NFD1 = NFD + &H260
Call WriteALong("WarRock", NFD1, -2000)
End Sub
Private Sub NoRecoilOrSpeadOff_Click()
NoRecoilOrSpreadTimer.Enabled = False
End Sub
Private Sub NoRecoilOrSpeadOn_Click()
NoRecoilOrSpreadTimer.Enabled = True
End Sub
But you make this f*cking Wrong
Private Sub NoRecoilOrSpreadTimer_Timer()
If GetKeyPress(vbKeyLeftMouse) Then
Dim NR1A As Long
Dim NR1B As Long
Call ReadALong("WarRock", &H1373FD8, NR1A)
NR1B = NR1A + &H2D8
Dim NR2A As Long
Dim NR2B As Long
Call ReadALong("WarRock", &H1373FD8, NR2A)
NR2B = NR2A + &H2DC
Dim NR3A As Long
Dim NR3B As Long
Call ReadALong("WarRock", &H1373FD8, NR3A)
NR3B = NR3A + &H2E0
Call WriteALong("WarRock", &HB196F8, 0)
end if
End Sub
Private Sub ScopeOff_Click()
ScopeTimer.Enabled = False
End Sub
Private Sub ScopeOn_Click()
ScopeTimer.Enabled = True
End Sub
Private Sub ScopeTimer_Timer()
If GetKeyPress(vbKeyRightMouse) Then
Call WriteALong("WarRock", &HB196AA, 1)
Else
Call WriteALong("WarRock", &HB196AA, 0)
end if
End Sub
Private Sub StaminaOff_Click()
StaminaTimer.Enabled = False
End Sub
Private Sub StaminaOn_Click()
StaminaTimer.Enabled = True
End Sub
Private Sub Weapons_Click()
If WeaponsText.Text > 72 Then
WeaponsText.Text = "34"
End If
Dim Weapons1 As Long
Dim Weapons2 As Long
Call ReadALong("WarRock", &H1373FD8, Weapons1)
Weapons2 = Weapons1 + &H4C
Call WriteALong("WarRock", Weapons2,WeaponsText.Text)
End If
End Sub
Private Sub Flash_Click()
If GetKeyPress(vbKeyF4) Then
Dim Flash1 As Long
Dim Flash2 As Long
Call ReadALong("WarRock", &H1373FD8, Flash1)
Flash2 = Flash1 + &H4C
Call WriteALong("WarRock", Flash2, 46)
End If
End Sub
Private Sub K400_Click()
If GetKeyPress(vbKeyF2) Then
Dim K4001 As Long
Dim K4002 As Long
Call ReadALong("WarRock", &H1373FD8, K4001)
K4002 = K4001 + &H4C
Call WriteALong("WarRock", K4002, 43)
End If
End Sub
Private Sub Shotgun_Click()
If GetKeyPress(vbKeyF1) Then
Dim Shotgun1 As Long
Dim Shotgun2 As Long
Call ReadALong("WarRock", &H1373FD8, Shotgun1)
Shotgun2 = Shotgun1 + &H4C
Call WriteALong("WarRock", Shotgun2, 34)
End If
End Sub
Private Sub Smoke_Click()
If GetKeyPress(vbKeyF3) Then
Dim Smoke1 As Long
Dim Smoke2 As Long
Call ReadALong("WarRock", &H1373FD8, Smoke1)
Smoke2 = Smoke1 + &H4C
Call WriteALong("WarRock", Smoke2, 45)
End If
End Sub
Private Sub StaminaTimer_Timer()
If GetKeyPress(vbKeyShift) Then
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1373FD8, STAN)
STAN1 = STAN + &H288
Call WriteALong("WarRock", STAN1, 1120403456)
End If
End Sub__________________
The maker of th3 0wnzman hacks
you dont have to be pro to fix that,.
btw boneshot isnt wrting anything lol