Page 1 of 2 12 LastLast
Results 1 to 15 of 18
  1. #1
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134

    [ Help ] VB6 Coding not working

    Heres a list of what works and what doesnt
    Green = Works, Red = Doesnt Work
    Unltimited Stamina
    Head Shot

    Neck Shot - im not sure if this works but it takes as many bullets as it does to kill body shots only (10-15)
    No Recoil or spread
    No Fall Damage
    Scope
    Crosshair
    Weapons
    K400
    Flash
    Smoke
    Winchester Shotgun


    Heres my coding PLEASE FIX THIS FOR ME
    I need a way to bypass the MultiHack PB Error and Program/Driver not allowed Error
    Also I need to know how to hide trainer from Process List please THX
    Code:
    Private Sub HeadShotOff_Click()
    HeadShotTimer.Enabled = False
    End Sub
    
    Private Sub HeadShotOn_Click()
    HeadShotTimer.Enabled = True
    End Sub
    
    Private Sub HeadShotTimer_Timer()
    Call WriteASM(&H4A3424, "31C0")
    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 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
    
    Private Sub NeckShotOff_Click()
    NeckShotTimer.Enabled = False
    End Sub
    
    Private Sub NeckShotOn_Click()
    NeckShotTimer.Enabled = True
    End Sub
    
    Private Sub NeckShotTimer_Timer()
    Call WriteASM(&H4A3445, "31C0")
    End Sub
    Last edited by ilovepie21; 03-10-2008 at 06:31 PM.

  2. #2
    malin's Avatar
    Join Date
    Jan 2008
    Posts
    418
    Reputation
    11
    Thanks
    16
    why are u using writealong thats detected

  3. #3
    yup's Avatar
    Join Date
    Feb 2008
    Gender
    male
    Posts
    102
    Reputation
    11
    Thanks
    3
    Well, I tested a few of these and some of them worked for me, so I don't see why they aren't for you.

  4. #4
    Threadstarter
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    Quote Originally Posted by malin View Post
    why are u using writealong thats detected
    im not i put detected strings in so u see wat im using
    Quote Originally Posted by yup View Post
    Well, I tested a few of these and some of them worked for me, so I don't see why they aren't for you.
    well only boneshot and stamina works for me for some odd reason

  5. #5
    Th3 0wnzman's Avatar
    Join Date
    Oct 2007
    Gender
    male
    Location
    I k2 networks bathroom
    Posts
    111
    Reputation
    10
    Thanks
    53
    learn to make a bypass
    The maker of th3 0wnzman hacks





  6. #6
    Threadstarter
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    Quote Originally Posted by Th3 0wnzman View Post
    learn to make a bypass
    omg i dont need bypass DONT FN POST IF UR NOT GONNA HELP FIX HACKS GOD SO USELESS POST

  7. #7
    gbitz's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    Here.
    Posts
    3,136
    Reputation
    197
    Thanks
    335
    OMFG... I suggest hiding from process list on my hack, and now you are trying to do it! I'M NEVER RELEASING ANYTHING HERE AGAIN! People always try to steal my ideas...

  8. #8
    Threadstarter
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    Quote Originally Posted by seemliss View Post
    OMFG... I suggest hiding from process list on my hack, and now you are trying to do it! I'M NEVER RELEASING ANYTHING HERE AGAIN! People always try to steal my ideas...
    plain stupidity i just want to make it less detectable so less errors i bet u some1 thought of that long ass time ago anyway

  9. #9
    gbitz's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    Here.
    Posts
    3,136
    Reputation
    197
    Thanks
    335
    No, actually. I thought of it recently myself. I hadn't heard it mentioned until then. It might've been, but I never saw it. Also, having it less detected doesn't make less errors. Having errors mean your code is wrong. If you're coding it in VB6, it will almost ALWAYS be detected really soon. Learn C++, and don't say you came up with the damn hide from process list. It was in my topic. Same with somebody else stealing my other idea, same reason I tppl it off the site.

  10. #10
    Threadstarter
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    Quote Originally Posted by seemliss View Post
    No, actually. I thought of it recently myself. I hadn't heard it mentioned until then. It might've been, but I never saw it. Also, having it less detected doesn't make less errors. Having errors mean your code is wrong. If you're coding it in VB6, it will almost ALWAYS be detected really soon. Learn C++, and don't say you came up with the damn hide from process list. It was in my topic. Same with somebody else stealing my other idea, same reason I tppl it off the site.
    i never said i made it up im just asking if anyone knows how to code it and vb6 isnt 10mins for me its days and yes hide proccess list was made long ago SO READ BEFORE U MAKE ANY FCKING ACCUSATIONS

  11. #11
    gbitz's Avatar
    Join Date
    Mar 2008
    Gender
    male
    Location
    Here.
    Posts
    3,136
    Reputation
    197
    Thanks
    335
    I know it was made up a long time ago. A VERY long time ago. BUT, it was NEVER suggested to be added into a hack, at least HERE. And if you're hacks lasts for days, it must be private. Any released VB6 hack will be detected fast, theres just no way around it.

  12. #12
    Threadstarter
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    well im not planning to release public unless im making a new module and either way that way ill put post count and/or give to trusted people so stop arguing about it

  13. #13
    Toymaker's Avatar
    Join Date
    Feb 2008
    Gender
    male
    Location
    Hannah, Montana
    Posts
    659
    Reputation
    14
    Thanks
    193
    My Mood
    Amused
    Quote Originally Posted by similess
    No, actually. I thought of it recently myself. I hadn't heard it mentioned until then. It might've been, but I never saw it. Also, having it less detected doesn't make less errors. Having errors mean your code is wrong. If you're coding it in VB6, it will almost ALWAYS be detected really soon. Learn C++, and don't say you came up with the damn hide from process list. It was in my topic. Same with somebody else stealing my other idea, same reason I tppl it off the site.
    Seemiless vb6 is harder to finger through then C++ no offense, but a fact. Not that i don't prefer C++ to vb6. Make two programs and debug them and see yourself ;p There's more 'pre-coding' if you will in vb6 making it bulkier in mess.

    Also from personal experience, with my blizzard hacks i use a vb6system and i haven't had one ban in almost 2 years, none of my rivals lasted months, granted some of them used vb6 also, it's all in how well you code! Not the language.

    Also hiding your hack from the process list would only be so useful, such as windowname, all you'd need to do is open the exe with olly then rewind and run it from scratch and crack it just like anything else without any trouble.

    But yes the errors are in your coding ilovepie and good luck weeding it out.
    Last edited by Toymaker; 03-11-2008 at 11:44 PM.

  14. #14
    Threadstarter
    Dual-Keyboard Member
    ilovepie21's Avatar
    Join Date
    Feb 2007
    Location
    Drunk
    Posts
    388
    Reputation
    11
    Thanks
    134
    i meant punkbuster errors lol so its less detected like program disallowed

  15. #15
    yup's Avatar
    Join Date
    Feb 2008
    Gender
    male
    Posts
    102
    Reputation
    11
    Thanks
    3
    Quote Originally Posted by ilovepie21 View Post
    i meant punkbuster errors lol so its less detected like program disallowed
    Are you getting 0 minute kicks? Because I usually get them all the time since I'm too lazy to make my hacks less detected. But lately I haven't gotten any kicks at all.

Page 1 of 2 12 LastLast

Similar Threads

  1. [Help] My hacks not working
    By ilovepie21 in forum Visual Basic Programming
    Replies: 4
    Last Post: 03-09-2008, 07:13 AM
  2. [ HELP ] Stamina Code VB6
    By ilovepie21 in forum Visual Basic Programming
    Replies: 10
    Last Post: 03-02-2008, 06:57 AM
  3. [HELP] VB6 Hotkey for Zoom not working
    By SteeL in forum WarRock - International Hacks
    Replies: 13
    Last Post: 11-10-2007, 03:06 AM
  4. need help plz vb6 codeing fast registration
    By cjg333 in forum WarRock - International Hacks
    Replies: 3
    Last Post: 07-05-2007, 06:38 AM
  5. My no recoil/spread is not working xD Help Please
    By pwningemodrumers in forum WarRock - International Hacks
    Replies: 0
    Last Post: 06-11-2007, 08:49 PM

Tags for this Thread