[Help] My hacks not working

post your module

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.

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__________________

you dont have to be pro to fix that,.

btw boneshot isnt wrting anything lol