Your first Hack

[merkado]

Here is a tutorial on how to create hacks

U.Ammo:

Call WriteAByte("WarRock", &H51E376, &H90)
Call WriteAByte("WarRock", &H51E377, &H90)
Call WriteAByte("WarRock", &H51E378, &H90)
Call WriteAByte("WarRock", &H51E387, &H90)
Call WriteAByte("WarRock", &H51E388, &H90)
Call WriteAByte("WarRock", &H51E389, &H90)
Call WriteAByte("WarRock", &H51E38D, &H90)
Call WriteAByte("WarRock", &H51E38E, &H90)
Call WriteAByte("WarRock", &H51E38F, &H90)

This really go on the button and you'll have to put addres date because I believe that these are old

ANTI-KICK:


Private Sub Command1_Click()
Call WriteALong("warrock", &H503715, &H90)
Call WriteALong("warrock", &H503715 + 1, &H90)
Call WriteALong("warrock", &H503715 + 2, &H90)
Call WriteALong("warrock", &H503715 + 3, &H90)
Call WriteALong("warrock", &H503715 + 4, &H90)
Call WriteALong("warrock", &H503715 + 5, &H90)
End Sub

This should also come on the button


INSTANT SPAWN:


create 1 timer:
Interval = 1
Enabled = False


This is the button-on:
Timer1.Enabled = True

this code in button OFF Quick spawn :
Timer1.Enabled = False

this is going on a timer:
Call WriteALong("WarRock", &H(address here) ,0)
Call WriteALong("WarRock", &H(address here) ,0)


Super Jump:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeySpace) Then
Dim SJ As Long
Dim SJ1 As Long
Dim SJ2 As Single
Call ReadALong("WarRock", &H1363380, 2000)
SJ1 = SJ + &H178
SJ2 = Text1.Text
Call WriteAFloat("WarRock", SJ1, 2000)
End If

No fall damage:
Dim NFD As Long
Dim NFD1 As Long
Call ReadALong("WarRock", &H1363380, -2000)
NFD1 = NFD + &H260
Call WriteALong("Warrock", NFD1, -2000)

Shotgun: If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyL) Then
Dim shotgun As Long
Dim shotgun1 As Long
Call ReadALong("Warrock", &H1363380, 42)
shotgun1 = shotgun + &H4C
Call WriteALong("Warrock", shotgun1, 42)
End If

The hotkey now:ctrl+6

Actually addresse's

Spare nade:
Make 1 button and copy this:

Dim grenade As Long
Dim grenade1 As Long
Call ReadALong("Warrock", &H1363380, 45)
grenade1 = grenade + &H4C
Call WriteALong("Warrock", grenade1, 45)

And make 1 timer:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyU) Then
Dim grenade As Long
Dim grenade1 As Long
Call ReadALong("Warrock", &H1363380, 65)
grenade1 = grenade + &H4C
Call WriteALong("Warrock", grenade1, 65)
End If

Smokenade:
Make new button and copy this code:
Dim smokegrenade As Long
Dim smokegrenade1 As Long
Call ReadALong("Warrock", &H1363380, 53)
smokegrenade1 = smokegrenade + &H4C
Call WriteALong("Warrock", smokegrenade1, 53)

Make 1 timer:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyI) Then
Dim smokegrenade As Long
Dim smokegrenade1 As Long
Call ReadALong("Warrock", &H1363380, 53)
smokegrenade1 = smokegrenade + &H4C
Call WriteALong("Warrock", smokegrenade1, 53)
End If

Flash1
Make 1 button and 1 timer:
For the button:
Dim flashbang As Long
Dim flashbang1 As Long
Call ReadALong("Warrock", &H1363380, 54)
flashbang1 = flashbang + &H4C
Call WriteALong("Warrock", flashbang1, 54)

For the timer:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyM) Then
Dim flashbang As Long
Dim flashbang1 As Long
Call ReadALong("Warrock", &H1363380, 53)
flashbang1 = flashbang + &H4C
Call WriteALong("Warrock", flashbang1, 53)
End If

Flash2:
MAke 1 button and 1 timer:
For the button:
Dim flashbangg As Long
Dim flashbangg1 As Long
Call ReadALong("Warrock", &H1363380, 54)
flashbangg1 = flashbangg + &H4C
Call WriteALong("Warrock", flashbangg1, 54)

For the timer:

If GetKeyPress(vbKeyControl) And GetKeyPress(vbKey0) Then
Dim flashbangg As Long
Dim flashbangg1 As Long
Call ReadALong("Warrock", &H1363380, 55)
flashbangg1 = flashbangg + &H4C
Call WriteALong("Warrock", flashbangg1, 55)
End If

Extra k200 nades
Button:

Dim grenades As Long
Dim grenades1 As Long
Call ReadALong("Warrock", &H008ADCA8, /here the nade code example:78/)
grenades1 = grenades + &H4C
Call WriteALong("Warrock", grenades1, 44)

Timer:
If GetKeyPress(vbKeyControl) And GetKeyPress(vbKeyH) Then
Dim grenades As Long
Dim grenades1 As Long
Call ReadALong("Warrock", &H1363380, /here a nadde code/)
grenades1 = grenades + &H4C
Call WriteALong("Warrock", grenades1, 44)
End If




Scope:
2 buttons
1 timer(Enabled=false, interval=1)

On button:
Timer1. Enabled = True
Off button:
Timer1. Enabled = False

Timer1:
If GetKeyPress (vbKeyRButton) Then
Call WriteAlong ("WarRock", &H(addy), 1)
Else
Call WriteAlong ("WarRock", &H(addy), 0)
End If




Fast f/h/a/r 2 buttons, 1 timer

timer1.enabled = true
= false

timer
timer interval = 1
enabled = false

Call WriteALong("WarRock", &H addy , 1092779973) - ammo
Call WriteALong("WarRock", &H addy , 1092779973) - heal
Call WriteALong("WarRock", &H addy , 1092779973) - flag
Call WriteALong("WarRock", &H addy , 1092779973) - rapair



Slots 2 buttons, 1 timer

timer1.enabled = true
= false

timer
timer interval = 1
enabled = false

Call WriteALong("WarRock", &H addy, 4) - 5th slot
Call WriteALong("WarRock", &H addy, 5) - 6th slot
Call WriteALong("WarRock", &H addy, 6) - 7th slot
Call WriteALong("WarRock", &H addy, 7) - 8th slot

scope hotkey is mouse right click ( and u'll need to hold it down)



Stamina:
Code:
If Check1.Value = 1 Then
Timer1.Enabled = True
End If
End Sub



For Stamina Timer:

Code:
Dim STAN As Long
Dim STAN1 As Long
Call ReadALong("WarRock", &H1376340, STAN)
STAN1 = STAN + &H288
Call WriteALong("WarRock", STAN1, 1120403456)



made by : Merkado

" The Best Of Cheats Team "

[Ylli]

Can you help me.Where can i download a program for anti-kick and anti-ban ip, for a chat.Thank you very much.

[memo1994]

bloody hell , this is amazing !

[Ephemera]

It is nice, yes. But... you know... you could explain how it works and what each thing does... Also you're making people's life too easy XD

[memo1994]

How do i create a Timer in VB6

[russik1]

Wow, your c&p skills impress me.

[scruffy69]

Thanks great TUT