VB6 Hacking Knowledge

 
How To...

1. Make a Message Box
2. Make a Menu
3. Force Loading
4. Freeze Variables
5. Freeze Variables With On / Off
6. Make your Project into EXE file
7. Load another Form in your trainer
8. Decorate your button
9. Make a Text Box pop up when trainer is opened
10. Set Variables with a Input Box
11. Change Form Start up Location
12. Set Variables with a Combo Box


=========================================================================================================




1. How to Make a Message Box
If you want to make a message box, the code is very easy and simple you could type these code in a button or a menu bar

Code: Select all

MsgBox "Message Here", vbOkOnly, "Title"

2. How to make a Menu
To make one, right-click a blank spot on your form, and then go to 'Menu Editor'.


Or you can make a sub menu by clicking "--->" right arrow






3. Force Loading
To make a force load button its really easy all you got to do is double click on the button and put in these code!

Code: Select all

ShockwaveFlash1.Playing = True

This tells the shockwave flash component to play the .swf when the form is loaded.




4. How to Freeze Variables
Freezing a variable can be useful when you want to freeze the variable for health, money, etc... This way, the value will never change, so in the game we usually call it infinite.

First you need to Set up a button and a timer. The timer should look like this:


Now on the right, click the properties window, and change the interval of the timer from 0 to 1. And make sure to change Enabled to False


Now double click the timer
And enter this code:

Code: Select all

Call ShockwaveFlash1.Setvariable("variable", value)

OR

Code: Select all

Call ShockwaveFlash1.SetVariable("variable", Text1.Text)

Now double click on your command button and put in these code:

Code: Select all

Timer1.Enabled = True

This turns the timer on when pressed.




5. How to Freeze Variables With On / Off
Firstly, set up your button and timer the same as above, and enter your timer code, but for your button, use this instead:

Code: Select all

If Timer1.Enabled = False Then
    Timer1.Enabled = True
Else
    Timer1.Enabled = False
End If

If you want to change your button name(caption) to on or off when pressed all you got to do is add 2 more line:

Code: Select all

If Timer1.Enabled = False Then
    Timer1.Enabled = True
    Command1.Caption = "[Name of the caption]: On"
Else
    Timer1.Enabled = False
    Command1.Caption = "[Name of the caption]: Off"
End If

Replace the [Name of the caption] to the name off your caption
E.G:
Infinite health: On
Infinite health: Off





6. How to make your Project into EXE file
This is very simple but some of the people had just start to make trainers or other program or new to Visual Basic 6 so maybe they don't know how to make a Project they made into EXE file...

Just go to
File> Make Project1.exe





7. How to load anorther Form in your trainer
This will be useful when you want to load a "Hack Menu", Load a "Information Box", "Built Cheat Codes" and so on...

First add a Form by right click on the Right hand site "Project 1" propertie window > Add > Form.

The new Form name will be Form2
Go back to Form1 and set a Command Button double click on it and enter these codes

Code: Select all

Form2.Show

If you want to make Button to change the variable of the game on Form2, set up a Command Button as usual but for the codes use these instead

Code: Select all

Call Form1.ShockwaveFlash1.SetVariable("_root.variable", value)

Or

Code: Select all

Call Form1.ShockwaveFlash1.SetVariable("_root.variable", Text1.Text)

8. How to decorate your button
Download the file below (Which is in attachment), Extract it with WinRAR

While on a Form, press "Ctrl+D", open up the "Styler Buttons" folder from the window that pops up and double click the stuff in the styler buttons folder. Repeat opening the stuff until you manage opened all of them.

Now on the Left side you should see there is a New looking icon its called "Styler Button"


Set up one and you should see the theme is different.
You can change up to 9 different theme.
To change on the theme, click on the button, on the left "Propertie" window, scroll down until you find "Theme" change to the one you like.

To change the button colour, click on the button, on the left "Propertie" window, scroll down until you find "Fore Colour" change to the one you like.






9. How to make a Text Box pop up when trainer is opened
First double click on your "Form"
Now enter these codes

Code: Select all

MsgBox "Your Text", vbInformation

For Example

Code: Select all

MsgBox "Arcadetrainer.com", vbInformation

10. How to Set Variables with a Input Box
An input box is a message with a textbox that pops up that you can set value. You can use this in Menu Bar as a "Set" function. When you click "Set Money" a box will pop up.

Just enter these codes:

Code: Select all

Call ShockwaveFlash1.SetVariable("Variable", InputBox("Your Message", "Your Title"))

Replace the variable, message and title with whatever you want.
Example

Code: Select all

Call ShockwaveFlash1.SetVariable("_root.Money", InputBox("Set Money here", "Set Money"))

11. How to change Form Startup Location
Startup Location is where your Project pops up when it opens.
You can change it by going to the bottom right which is called "Form Layout"
Drag your Form and move it around.





12. How to Set Variables with a Combo Box
If you want to use a Combo Box to set groups of variables such as stat hacks, then firstly make a combo box, add a button. If you want the user can set value, you should add a text box.


Ok there is two ways of adding stuff into Combo Box

First Way
Click on your Combo Box once and go to Properties, find "List" add your stuff on each line


Now go to your button and add these code:

Code: Select all

If Combo1.Text = "what ever you want" Then
   Call ShockwaveFlash1.SetVariable("Hack1_Variable", Hack1_Value)
End If

OR

Code: Select all

If Combo1.Text = "what ever you want" Then
   Call ShockwaveFlash1.SetVariable("Hack1_Variable", Text1.Text)
End If

For example if the text of combo1 is Strength, then set the variable for that hack, set the value.

Code: Select all

If Combo1.Text = "Strength" Then
   Call ShockwaveFlash1.SetVariable("_root.player.strength", 99999)
End If

OR

Code: Select all

If Combo1.Text = "Strength" Then
   Call ShockwaveFlash1.SetVariable("_root.player.strength", Text1.Text)
End If

Second Way
Double click on your Form, then enter these codes:

Code: Select all

With Combo1
.AddItem "what ever you want"

You can continue add more list...

Code: Select all

With Combo1
.AddItem "what ever you want"
.AddItem "what ever you want"
.AddItem "what ever you want"
.AddItem "what ever you want"
.AddItem "what ever you want"

If you want to set the variables just do what it tells you in the First Way, cause its the samething...