[Tutorial] Adding Pointers in your VB5/6 Trainer

[mains3rv3r]

Due to SEVERAL private messages on this, here it is. Adding pointers in Visual Basic 5/6. Be sure to read all of it to make sure your brain understands how it works. From there you could even think of more things! Amazing really.

This tutorial is for swim in VB6. This tutorial is to teach you the basics of adding a pointer in VB6. I am assuming that you followed TheRedEye's tutorial on Creating a trainer in VB5/6 and added the API statement he got off of a website to attach the VB program to a running process. If you have not, read his tutorial first. I'm going to throw out the entire code at first. Take a look over it to see what I'll be explaining and how simple it can be broken down into. I explain more about it below the entire code.

Dim Swim As Long
Dim Swim1 As Long
Call ReadALong("Warrock", &H894E28, Swim)
Swim1 = Swim + &H54
Call WriteALong("Warrock", Swim1, 4)

Dim 'VARIABLE' As Long

^___ Sets a value. You can name 'VARIABLE' whatever you'd like. It is basically like setting a variable in C/C++. (of course no quotes around the variable) In this case, you'll need 2 variables set to make the pointer. Make sure they are not named the same thing as you will need two differently named variables later.

Call ReadALong("PROGRAM NAME", ADDRESS, VARIABLE1)

Program name is obvious. This finds the exe file in the process list to edit (this was all decleared in that API statement/module you added). Address is the address of whatever you are beginning with. Don't add the pointer yet. That is next. VARIABLE1 is the first variable you set the address to. This is for the pointer being added to it later. If you don't understand how this quite works, continue reading on. There's a chance you could make the connection.

VARIABLE2 = VARIABLE1 + POINTER

This is setting the second variable to be set as the first variable (basically the address for swim in this case) plus the pointer you are pointing to.

Call WriteALong("PROGRAM NAME", VARIABLE2, ValueSetting)

Program name is explained above. Variable2 is set to Variable1 + pointer (just like cheat engine). Valuesetting is what you want to change the value of the address + pointer to (in this case, the address + pointer is variable 2).

You can make separate buttons for this. One to turn the swim on (ValueSetting set to 4) and one to turn swim off (ValueSetting set to 0). ( 0 is also standing upright position. So basically back to normal. )

Don't forget to add the '&H' before the address/pointer you declare. This kind of a big deal. lol.

+Rep me if this helps you in any way. Thanks.

Tutorial by mains3rv3r of MPGH.

[lolhackerlol]

Omg Thanks Here Comes A New Public Hack!!!!!!!!!! :d

*EDIT*

Carn't get it to work i'll find a way though

[Trixiez]

This is nice. I understood this before - But didn't fully undestand what some things meant. Just knew how to do it.

4 is the value of swim found using this method below:

Dim Value1 As Long
Call ReadALong("WarRock", &H894E28, Value1)
Text1.Text = Value1

If thats right, then cool. I have then figured out my problem. This is a really nice tutorial with pretty colors

~TriX~

[EDIT] I have tried Super Jump - I dont know what I have done wrong though. I know I can set an input value for XXXX - But that will come later aswell as a keybind.

Private Sub Command1_Click()
Dim value As Long
Dim Value1 As Long
Call ReadALong("Warrock", &H894E28, value)
Value1 = value + &H180
Call WriteALong("Warrock", Value1, XXXX)
End Sub

[mains3rv3r]

Ahh yes. I have also had problems with adding superjump into the program. It is very buggy from map to map. I have yet to figure out the problem with superjump.

[Trixiez]

oK mate. If I figure it out I will let you know. Do you find the values out the same way as I do?

~TriX~

[mains3rv3r]

oK mate. If I figure it out I will let you know. Do you find the values out the same way as I do?

~TriX~

Yes. I don't see why it wouldn't work. It's very questionable if you ask me... lol

[webtijn]

This is nice. I understood this before - But didn't fully undestand what some things meant. Just knew how to do it.

4 is the value of swim found using this method below:

Dim Value1 As Long
Call ReadALong("WarRock", &H894E28, Value1)
Text1.Text = Value1

If thats right, then cool. I have then figured out my problem. This is a really nice tutorial with pretty colors

~TriX~

[EDIT] I have tried Super Jump - I dont know what I have done wrong though. I know I can set an input value for XXXX - But that will come later aswell as a keybind.

Private Sub Command1_Click()
Dim value As Long
Dim Value1 As Long
Call ReadALong("Warrock", &H894E28, value)
Value1 = value + &H180
Call WriteALong("Warrock", Value1, XXXX)
End Sub

Don't know anything about VB, but don't you need to freeze the address as well? Try set the value of XXXX to something like 2000 and see if you die because of falling from too heigh. If that works, then you only need to freeze the value. If it doesn't work, you're doing something really wrong

[~claw~]

wow it works thxs

[mains3rv3r]

Don't know anything about VB, but don't you need to freeze the address as well? Try set the value of XXXX to something like 2000 and see if you die because of falling from too heigh. If that works, then you only need to freeze the value. If it doesn't work, you're doing something really wrong

Well you see, no matter what value you set the address + pointer to in VB, you'll always go the same height. In some maps you go below, and others you jump up high. If you were to freeze the address then either you'd be stuck under the floor or it'd be similar to sky walker (except WAAAY more buggy). Again, very questionable... all other pointers work fine. But freezeing it does not help. I believe my coding is right...

[nikryj]

i get something like syntax compilation error when i try this.

[purenoob134]

GREAT GUIDE, SO EASY TO UNDERSTAND!!! ill add to your rep and thank you
thanks man, great guide

[mains3rv3r]

i get something like syntax compilation error when i try this.

We solved this problem. Simple mistake. Stuff like that happens.

[Kung Fu Penguin31]

nice tutorial , good contribution keep it up !!

i may start making trainers soon !!

[nbr1dan]

Very good information. thanks!

[dezer]

I know how to get Super jump to work i just dont know how to make it in VB. so here it goes: super jump value type has to be set to float to make it work (for 4bytes its underground hack, not super jump) in CE its easy u just change the type when adding address, but any help in VB? ;p