Please help me with stamina hack (VB6)

[floris12345!]

i have tried very much times to make a stamina hack in visual basic
but it wont work for me ?
Can someone make a tutorial for me (Maybe with printscreens)
because i followed this link: Making WarRock hack in Visual Basic 6 - Putfile.com

and the latest addresses got i from this link: https://www.mpgh.net/forum/33-visual_..._vb6_help.html

can somebody help me please ??

[wr194t]

ON button:

Timer1.Enabled = True

OFF button:

Timer1.Enabled = False

Timer1:

Call WriteALong("WarRock", &H8C4AFC, 1120403456)

Make sure the timer's Interval is 1, and Enabled False. To change these click on the timer, and go to properties (you should see properties on the right side of the screen).

[floris12345!]

ON button:

Timer1.Enabled = True

OFF button:

Timer1.Enabled = False

Timer1:

Call WriteALong("WarRock", &H8C4AFC, 1120403456)

Make sure the timer's Interval is 1, and Enabled False. To change these click on the timer, and go to properties (you should see properties on the right side of the screen).

thanks for helping me
where did you get the codes from ???
from my link ??

[wr194t]

thanks for helping me
where did you get the codes from ???
from my link ??

I got the stamina address and value from another forum I visit. The rest of the coding I just already knew.

[floris12345!]

thanks for helping me but what do people mean
on the sites whit codes with : freeze it to 1 or -1 or something else ???

[wr194t]

It means freeze a value to an address like stamina:

&H8C4AFC, 1120403456 <-- You freeze this value to the address, so your stamina stays full.

[floris12345!]

im sorry thats to difficult to understand
the adress is like this : Call WriteALong("WarRock", &H8C4AFC
and thisshould be the value: 1120403456)

or not ? bbut what are the changes when i freeze the value to 1 or something
else

[radnomguywfq3]

im sorry thats to difficult to understand
the adress is like this : Call WriteALong("WarRock", &H8C4AFC
and thisshould be the value: 1120403456)

or not ? bbut what are the changes when i freeze the value to 1 or something
else

Think of it like this. There are a billion houses in your computer, each house has a number in it, and each house has an address. When you freeze that address to 1120403456, your putting the number 1120403456 in the house with the address of 8C4AFC. Now, when you run on warrock, warrock changes that number to a lower number. WarRock reads the sames houses number to see how much stamina you have left. When you freeze it. You write to that house 1000 times a second, therefore freezing it

[floris12345!]

so when i freeze it to 1 it look
like this : Call WriteALong("WarRock", &H8C4AFC, 1) ????

[wr194t]

so when i freeze it to 1 it look
like this : Call WriteALong("WarRock", &H8C4AFC, 1) ????

That's correct.

[olie122333]

im sorry thats to difficult to understand
the adress is like this : Call WriteALong("WarRock", &H8C4AFC
and thisshould be the value: 1120403456)

or not ? bbut what are the changes when i freeze the value to 1 or something
else

TOUTORIAL:-

0. Make a "Standard EXE" project.
1. Make a new timer.
2. Make 2 new buttons.
3. Change the buttons captions to be "Stamina On" and "Stamina Off".
4. Double click the "Stamina On" button. A code window will appear.
5. Copy and Paste This code:-

Timer1.Interval = 1

6. Close that window. You do not need to save. (ONLY THE CODE WINDOW - NOT VB6!)
7. Double click the "Stamina Off" button.
8. Another code window appears.
9. Copy and paste this code:-

Timer1.Interval = 0

10. Close that window. You do not need to save. (ONLY THE CODE WINDOW - NOT VB6!)
11. Double click the timer icon.
12. Copy and paste this code:-

Call ZHQELUYIN("WarRock", &H8C4AFC, 1120403456)

13. FINALLY, make a new module and add it to your project. I will PM you a API code - when you revieve it copy and paste the code into the module.

Click Start, Build Project1
Select a file name.
YOU HAVE MADE YOUR FIRST (noobie) HACK!!!

[8oo73l2]

YOU HAVE MADE YOUR FIRST (noobie) HACK!!!


A question:

Private Sub Command1_Click()
Timer1.Interval = 1
End Sub

Private Sub Command2_Click()
Timer1.Interval = 0
End Sub

Private Sub Timer1_Timer()
Call WriteALong("WarRock", &HAddress, value)
End Sub

Is this the right way for an anti kick? (I alrdy got the address) Do I need a value for it? And do I need to set Enabled to False or True?

[wr194t]

Anti Kick is a 6 byte NOP:

WriteAByte("WarRock", &H4FBA15, &H90)
WriteAByte("WarRock", &H4FBA16, &H90)
WriteAByte("WarRock", &H4FBA17, &H90)
WriteAByte("WarRock", &H4FBA18, &H90)
WriteAByte("WarRock", &H4FBA19, &H90)
WriteAByte("WarRock", &H4FBA1A, &H90)

This goes in a button.

[8oo73l2]

Wow, great thanks..