[ 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

why are u using writealong thats detected

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.

Originally Posted by malin

why are u using writealong thats detected

im not i put detected strings in so u see wat im using

Originally Posted by yup

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

learn to make a bypass

Originally Posted by Th3 0wnzman

learn to make a bypass

omg i dont need bypass DONT FN POST IF UR NOT GONNA HELP FIX HACKS GOD SO USELESS 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...

Originally Posted by seemliss

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

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.

Originally Posted by seemliss

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

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.

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

Originally Posted by similess

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.

i meant punkbuster errors lol so its less detected like program disallowed

Originally Posted by ilovepie21

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.

[ Help ] VB6 Coding not working

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

why are u using writealong thats detected

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.

Originally Posted by malin

why are u using writealong thats detected

im not i put detected strings in so u see wat im using

Originally Posted by yup

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

learn to make a bypass

Originally Posted by Th3 0wnzman

learn to make a bypass

omg i dont need bypass DONT FN POST IF UR NOT GONNA HELP FIX HACKS GOD SO USELESS 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...

Originally Posted by seemliss

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

Originally Posted by seemliss

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

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

Originally Posted by similess

i meant punkbuster errors lol so its less detected like program disallowed

Originally Posted by ilovepie21

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.

[ Help ] VB6 Coding not working

Post a Reply

Similar Threads

Tags for this Thread

[ Help ] VB6 Coding not working

Post a Reply

Similar Threads

Tags for this Thread