[HELP] My hacks still not working

[ilovepie21]

Only Stamina Works
No recoil & spread ,boneshot ,weapons, scope crash the trainer
crosshair nfd and instant spawn dont do anything
and for some odd reason i make a new UD Module and like 5minutes later its detected anyway to fix this and also how do u hide trainer from procces list
heres 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 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

Private Sub NoRecoilOrSpreadTimer_Timer()
If GetKeyPress(vbKeyLButton) 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(vbKeyRButton) 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

[mel143]

For instant spawn, I had everything you had except I didn't use any hotkeys for it and mine worked fine. So maybe try taking the hotkey out and see if it works that way.

[ilovepie21]

For instant spawn, I had everything you had except I didn't use any hotkeys for it and mine worked fine. So maybe try taking the hotkey out and see if it works that way.

hotkey is just a shortcut to the on button it doesnt effect the coding so :/ ya if any1 else notices anything wrong with the coding post it plz

[yup]

Boneshot isn't writealong, it's either ASM or WriteAByte.

[ilovepie21]

Boneshot isn't writealong, it's either ASM or WriteAByte.

even if that is true my boneshot coding still needs third argument and i dunno wat to put so

[yup]

Your no spread/recoil is wrong. It should look like this (without hotkey)

Dim recoil As Long
Dim recoil2 As Long
Dim recoil3 As Long
Dim recoil4 As Long
Call ReadALong("warrock", &H1373FD8, recoil)
recoil2 = recoil + &H2D8
recoil3 = recoil + &H2DC
recoil4 = recoil + &H2E0
Call WriteALong("warrock", recoil2, 0)
Call WriteALong("warrock", recoil3, 0)
Call WriteALong("warrock", recoil4, 0)
Call WriteALong("WarRock", &HB196F8, 0)