Game Trainers | Hackpacks | Cheats | Hacks

Flash Trainer Code Snippets for VB6 [Tutorial]

noreply@blogger.com (Pineapple) — Thu, 10 Sep 2009 16:32:00 +0000

COLLAB
Requirements;
-Eyes (To Read).
-It will probably help if you have basic knowledge of VB6.
-A heart of Gold.
________________________________________________________________
1. How To Set Variables?
2. How Do i use a Textbox to Set a Variable Value?
3. How do i Set a Variable with User Definable Variable and Value?
4. How do i get the value of a Variable?
5. How do i use an Input Box to Set a Variable?
6. How do i make a Drop Down Menu?
7. How do i make a Sub Drop Down Menu?
8. How do i make a Message Box?
9. How do i Force Load?
10. How do i set a Custom Swf?
11. How do i load a Swf from a file where my trainer is?
12. How do i Clean one SWF layer?
13. How do i clear all SWF layers?
14. How do i save my project as an .EXE
15. How do i make another Form?
16. How do i put a password on a Program? (Stupid)
17. How do i Freeze a Variables Value using a CheckBox?
18. How do i unload multiple Forms when i quit Form 1?
19. How can i have different Buttons from the Defult ones?
20. Is there a different way to have Customized Buttons?
21. How can i freeze a Variable Value using a timer?
22. How do i make my Form a circle?
23. How do i make my form See Through? (Transparent)
24. How do i use Hot-Keys to Set a Variable or Enable a Timer?
25. How can i shorten certain Commands?

1. How do i set a Variable?
-Put a button or whatever.
-In the buttons coding put
Code:
Call ShockwaveFlash1.SetVariable("variable here",value)

2. How Do i put a use a Textbox to set a Variable Value?
-Make a Textbox.
-Make a button.
-Double click the button.
-Put this in your buttons code.
Code:
Call ShockwaveFlash1.SetVariable("variable here", Textbox1.Text)

3. How do i set a variable with user definable Variable and Value?
-make 2 textboxes.
-Make a button.
-Put this code in the button
Code:
Call ShockwaveFlash1.SetVariable(Text1.Text,Text2.Text)

4. How do i Get the value of a Variable? (Textbox)
-Make 2 Textboxs and a Button.
-Double click the button and put in its coding
Code:
On Error Resume Next
Text1.Text = ShockwaveFlash1.GetVariable(Text2.Text)

If you want it to show the value in a Label put
Code:
Label1.Caption = ShockwaveFlash1.GetVariable(Text2.Text)

5. How Do i use a Input Box to Set a Variable?
-Make a Button
-Double Click the Button
-Put in this code. (Using Money as a Example)
Code:
Dim Money As String
Money = InputBox("How Much Money You Want?", "Set Money")
Call Flash.SetVariable("_root.TotalMoney", Money)

This Would show up as this.

This defines money as a string. If you dont know what this means use the mthod below.
The simple way
-Double click a Button.
-Put this in the coding
Code:
Call ShockwaveFlash1.SetVariable("Variable Here", InputBox("Your Message", "InputBox Title")

6. How do i make a Drop Down Menu?
-Click CTRL + E.
-Type in Caption what you want the Tab to say.
-Type in the Name what you want the Tab to show up as in the code.

7. How do i make a Sub Drop Down Menu?
-Click CTRL + E.
-Click the down arrow in the interface. You should be below the origional Drop Down Menu caption.
-Click the Arrow going right.
-Type in the Caption and Name.
It should look like this when you click on the Main Tab.

8. How do i make a Message Box?
-Make a button.
-Double Click it.
-In the code put
Code:
MsgBox "Put Your Text Here"

This will look like.

9. How do i Force Load?
-Double Click a button or your form.
-in the code put
Code:
ShockwaveFlash1.Playing = True

10. How do i set a custom SWF?
-Make a Textbox.
-Make a Button.
In the Buttons coding put
Code:
ShockwaveFlash1.LoadMovie 1, Text1.Text

11. How do i load a SWF from inside a folder where my trainer is?
Code:
ShockwaveFlash1.LoadMovie 1, App.Path & "\SWF.swf"

12. How do i Clear one SWF layer?
Code:
ShockWaveFlash1.LoadMovie 1, ""

13. How do i Clear all SWF layers?
-Example up to 100 layers
Code:
Dim layeri As Integer
layeri = 1 'if you put 0 it will clear main swf'
Do Until layeri = 100 'loop to 100'
ShockWaveFlash1.LoadMovie layeri, ""
layeri = layeri + 1 'prepare for next loop'
Loop

14. How Do i Save My Project as a .EXE?
-Click FILE.
-Then click Make Project1.Exe

15. How do i make another form?
-Go to Project.
-Click New Form.

16. How do i put a Password on a program i made?
-Make 2 Forms.
-Make a Textbox and Button on Form1.
-Double click the button and put
Code:
If Text1.Text = password here Then
Form2.Visible = True
Form1.Hide
End If

17. How do i freeze a variable using a checkbox?
-Make a checkbox
-make a timer double click it and put
Code:
Call ShockwaveFlash1.SetVariable("variable",value)

-Set the timers interval to 1
-double click the checkbox and put
Code:
If Check1.Value=1 Then
Timer1.Enabled=True
End If
If Check1.Value=0 Then
Timer1.Enabled=False
End If

18. How do i unload multiple forms when i click exit on form1?
-Double click Form1.
-Change the funtion so it says
Code:
Private Sub Form_Unload()

-Put below it
Code:
Call Unload (Form2)
Unload Me

You can use this on any form. So it could go up to Unload Form13 and beyond.

19. How can i have a different button from the normal ones?
-Download this
http://uploaded.to/?id=brn858
-Go to VB6
-Click CRTL + D
-Select all the contents of the Styler Buttons folder.
-Click the icon thats now in your tool bar.

20. Is there a different way to have customized buttons?
-You can make your own.
-Go to Paint, Gimp, Photoshop etc.
-Make a button.
-Go to VB.
-Click the picture button.
-Put in your code.

21. How can i freeze a Variable Value using a timer?
- Make a timer.
- Put in Set variable (value and everything else)
-Set the timers interval to 5.
-Put the timer.Enabled to false.
-Make a button that has Timer1.Enabled=True in it.
-Done.

22. How do i make my form a Circle?
Code:
Declarations
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long

Inside the form
Private Sub Form_Load()
Dim lngRegion As Long
Dim lngReturn As Long
Dim lngFormWidth As Long
Dim lngFormHeight As Long

lngFormWidth = Me.Width / Screen.TwipsPerPixelX
lngFormHeight = Me.Height / Screen.TwipsPerPixelY
lngRegion = CreateEllipticRgn(0, 0, lngFormWidth, lngFormHeight)
lngReturn = SetWindowRgn(Me.hWnd, lngRegion, True)
End Sub

23. How do i make my form See-Through? (Transparent)
Code:
Declarations
Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _
SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2

Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Inside the form
SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME

24. How do i use Hot-Keys to Set a Variable or Enable a Timer?
Put this in your Declarations.
Code:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Then put this in to set a variable
Code:
Private Sub GetAsyncKeyState(vbKeyT)
Call Shockwaveflash1.SetVariable("var", Value)
End Sub

For a timer put in the timers sub.
Code:
If GetAsyncKeyState(vbKeyT) Then
Timer1.Enabled = True
End Sub

25. How can i shorten certain Commands?
Say you had 5 lines of code saying.
Code:
Call ShockwaveFlash1.SetVariable("_root.gun.1", 1)
Call ShockwaveFlash1.SetVariable("_root.gun.2", 1)
Call ShockwaveFlash1.SetVariable("_root.gun.3", 1)
Call ShockwaveFlash1.SetVariable("_root.gun.4", 1)
Call ShockwaveFlash1.SetVariable("_root.gun.5", 1)

You could shorten this by doing this.
Code:
dim num as byte
num = 0
do until num = 5
Call ShockwaveFlash1.SetVariable("gun." & num, 1)
num = num + 1
loop

An alternative method,
Code:
for x = 0 to 5
Call ShockwaveFlash1.SetVariable("gun." & x, 1)
next x

Credits;
SnowFox- Alternative code.
MatthewThe2- For a couple of commands
Someone Else Who Ive Forgotten- Ditto
Epic Cat Garfield- For reminding me of shortening command code.
-And a snippet of his code.

New Header

noreply@blogger.com (Pineapple) — Thu, 10 Sep 2009 16:27:00 +0000

You will have probably noticed the new site header. This is just a crap one being put there for the time being while i work on a decent one.

If you have any suggestions or ideas for the new header leave a comment.

~Pineapple!

New Poster :D

noreply@blogger.com (zєχяσ) — Tue, 08 Sep 2009 19:05:00 +0000

Hi I Am The New Trainer Poster at www.gametrainers4u.blogspot.com.

I Will Post My New Stick Arena Ballistic Trainers (New Sab Trainer coming soon) and Some Other Flash Trainers By Me.

Bye, ~ZeXro

Pineapple: Also see this post.

Using R4ZCHEAT (Hacking Flash Games)

noreply@blogger.com (Pineapple) — Wed, 02 Sep 2009 17:11:00 +0000

Today I'm going to tell you about a program called R4ZCHEAT.

Click Here for larger images.
R4ZCHEAT was made by a person called r4z13ll. It was made to help people be able to cheat on flash games and gain variables. (if you don't know what a variable is don't worry)
You can use the program to edit Gold or Ammo for example.

But before you can edit anything you need to find the SWF. A SWF is where the Game is loading from onto the current page.

How to get a games SWF.
Watch THIS video or follow the steps below.
Go to the Flash Game you want to cheat on.
2. Right click on the background and click "View Source".
3. Click "Ctrl" and "F" on your keyboard, a box should appear.
4. Type ".swf" into the box and click find.
5. There should be a link. As an example http://www.crazymonkeygames.com/jkf6Tr/eternalred.swf
6. The SWF usually the first you come to, but sometimes it isn't, look for the name of the game in the SWF, if the name isn't there, experiment. Go to the link and see if its right. Trail and error.

Using R4ZCHEAT
1. Now you have the SWF input it into R4ZCHEAT where it says "Movie URL".
2. Once its loaded and your in game. (Playing it). Click "Show Variables/Refresh".
3. Lots of stuff shoul dhave appeared in the Two columns. These are the variables under "_root"

To Find out what a Variable is Click Here

4. In a simple game you should be able to find the word "Gold" or "Ammo" etc in the column. For more advanced games, they may be Child Variables. Use the dropdown menu where "_root" is displayed and change it to another, then continue looking for "Gold" or "Ammo" etc.
5. Type the value you want to change your "Gold" or "Ammo" to, then click "Change".
6. The amount of "Gold" or "Ammo" you have should now have changed.

Other things you can do with R4ZCHEAT
1. Edit the framerate or which the Game is playing. Just move the slider up and down.
2. Instead of just showing variables you can show Functions, Objects and Nodes.
3. You can load Flash games you have downloaded by putting "C:\Documents and Settings\YOUR NAME\My Documents\GAME NAME HERE.swf".

DOWNLOAD

Turbo Cyborg Ninja X Trainer

noreply@blogger.com (Pineapple) — Fri, 24 Jul 2009 13:25:00 +0000

Screenshot

Click image for a bigger size.

Features
-Unlimeted Arrows
-0 Time hack
-0 Deaths Hack
-Force Load
-Resizeable form and game.

Virus Scan Results
Download

Ultimate Defense 2 Trainer

noreply@blogger.com (Pineapple) — Fri, 10 Jul 2009 17:08:00 +0000

When looking through some of my old trainers i found a few that i hadnt published. This is one of them.

Screenshot

Click here for a bigger picture.
Features
-Force Load
-Infinate Health
-Infinate Mana
-Infinate Gold
-Free Soldiers
-Free Spells
-Unlimeted Spin Slot

Download
Other Download link

p.s: i will be sorting out the header later.

REQUEST FLASH TRAINERS

noreply@blogger.com (Pineapple) — Fri, 10 Jul 2009 16:48:00 +0000

Leave a comment requesting a trainer this is strictly for flash AS2 only.
Leave a Comment with the link of the game.

New layout and header coming soon...

WarpForce Hacks and Trainer

noreply@blogger.com (Pineapple) — Sat, 04 Jul 2009 18:04:00 +0000

You may of seen the new game "Warpforce" which AQW members can login. Its just come out of beta testing, so here are some hacks.
Copy and paste these codes into your browser bar for hacks.

Monster HP 0:
javascript:document.embeds[0].SetVariable("_root.monster.intHP", 0)
Your HP 100:
javascript:document.embeds[0].SetVariable("_root.player.intHP", 100)
Your MP 100:
javascript:document.embeds[0].SetVariable("_root.player.intMP", 100)
Your SP 100:
javascript:document.embeds[0].SetVariable("_root.player.intSP", 100)

The bit at the end ",100" you can edit to make it whatever value you want.

All credit goes to Untouchable.

You can also download a trainer for WarpForce Here.

General Information - BlogTopList

noreply@blogger.com (Pineapple) — Wed, 01 Jul 2009 20:08:00 +0000

You may of seen these in my sidebar.

Basically, the first one shows the rank my website is in the top list of blog for a selected catogory. The catagory being Video Games (it was the only decent one).

By clicking the "Vote for Me" banner you help me get higher ranked in the list of websites. So you help me get more viewers. More viewers = more trainers and hacks.
Everyone is happy! :D
Just thought i would share this for viewers who didnt know what it was.
Also, you can get your own site put in the BlogTopList. Just register at BlogTopList.com and have your blog/site added to thier directory.

Amazing And Helpful GFX Forum

noreply@blogger.com (Pineapple) — Mon, 29 Jun 2009 16:02:00 +0000

EvocoFX Forums
The forums are brilliant for people just starting out with artistical programs on thier computers. The community is helpful, friendly and willing to help you no matter what artistic level your at. You can showcase recently made art and get critism, compare pieces, and more.
I would strongly reccommend you to join.

~Pineapple!

Visible Trainer

noreply@blogger.com (Pineapple) — Sat, 27 Jun 2009 22:28:00 +0000

Screen-Shot

Click to enlarge image

______________________

Features

-Short Fat Player

-Unlimeted Invisibility

-Delete All Mines

-Delete All Spikes

-Set Player Speed

-Set Player Jump Height

-Set Amount Of Deaths

-Suicide

-Force Load

________

DOWNLOAD

__________________

Dont forget to go to my new chat.

CLICK HERE

New Chatbox.

noreply@blogger.com (Pineapple) — Sat, 27 Jun 2009 15:28:00 +0000

Heres the new GameTrainer chatbox.
CLICK HERE

Or put this link in your browser.
http://xat.com/gametrainersdiscussionbox

The chatbox is also at the bottom of the website.
~Pineapple

Storm Race Trainer

noreply@blogger.com (Pineapple) — Fri, 26 Jun 2009 18:00:00 +0000

Screen-Shot- Click the image.

CLICK TO SEE THE IMAGE

Features

-Teleport

-Refill HP Bar

-Set Lap

-Set Played Time

-Set Score

-Set Speed

-Set Level

DOWNLOAD

Endless Zombie Rampage 2 Trainer

noreply@blogger.com (Pineapple) — Fri, 26 Jun 2009 17:14:00 +0000

Screen-Shot

Click the picture.

Features
-Set Gun
-Set Exp
-Set Kills
-Infinate Health
-Unlock all Perks
-Get a Car
-Force Load
Extra Features
-Load Custom SWF
-Information
-Set Custom Variable

DOWNLOAD

-Might take a while to load.

Under Construction

noreply@blogger.com (Pineapple) — Wed, 24 Jun 2009 20:35:00 +0000

This site in under construction.
I will be updating it with trainer, hacks and more.

Keep checking back.
~Pineapple