Results 1 to 5 of 5
  1. 03-08-2008 #1
    ilovepie21
    ilovepie21 is offline
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    Send a message via Birdie™ to ilovepie21

    [Help] My hacks not working

    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
  2. 03-09-2008 #2
    malin
    malin is offline
    Banned
    BANNED!
    malin's Avatar
    Join Date
    Jan 2008
    Posts
    418
    Reputation
    11
    Thanks
    16
    Send a message via Birdie™ to malin
    post your module
  3. 03-09-2008 #3
    Toymaker
    Toymaker is offline
    Expert Member
    MPGH Member
    Toymaker's Avatar
    Join Date
    Feb 2008
    Gender
    male
    Location
    Hannah, Montana
    Posts
    659
    Reputation
    14
    Thanks
    193
    My Mood
    Amused
    Send a message via Birdie™ to Toymaker United States
    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.
  4. 03-09-2008 #4
    Th3 0wnzman
    Th3 0wnzman is offline
    Member
    MPGH Member
    Th3 0wnzman's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    I k2 networks bathroom
    Posts
    111
    Reputation
    10
    Thanks
    53
    Send a message via Birdie™ to Th3 0wnzman Netherlands
    Quote Originally Posted by ilovepie21 View Post
    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
    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




  5. 03-09-2008 #5
    k321
    k321 is offline
    Choob
    k321's Avatar
    Join Date
    Dec 2007
    Posts
    39
    Reputation
    10
    Thanks
    1
    Send a message via Birdie™ to k321
    you dont have to be pro to fix that,.

    btw boneshot isnt wrting anything lol
« Previous Thread | Next Thread »

Similar Threads

  1. [Help Request] Need help getting hacks to work
    By VpChris in forum Vindictus Help
    Replies: 5
    Last Post: 08-13-2011, 03:00 AM
  2. [Help Request] help please hacks dont work
    By solomonjo0 in forum CrossFire Help
    Replies: 9
    Last Post: 07-10-2011, 07:49 PM
  3. [Help]Strifes hack sorta working
    By DeltaRecon in forum Combat Arms Hacks & Cheats
    Replies: 8
    Last Post: 09-12-2008, 01:13 AM
  4. [ Help ] VB6 Coding not working
    By ilovepie21 in forum Visual Basic Programming
    Replies: 17
    Last Post: 03-28-2008, 10:22 PM
  5. Hacks not working
    By crazy4her in forum WarRock - International Hacks
    Replies: 12
    Last Post: 06-07-2007, 03:25 AM

Tags for this Thread