AQ TRAINER VB.NET BASIC

Alright so i see some of you liked my OS Trainer Tutorial so why not make a AQ Trainer - Adventure Quest NOT AQWORLDS!

So lets start

Requirements:
Visual Studio - ANY VERSION DOESN'T MATTER
basic knowledge of vb.net

1:CREATE A NEW VB.NET PROJECT

2:SELECT VISUAL BASIC>WINDOWS FORM APPLICATION

3:ADD SHOCKWAVE FLASH OBJECT YOU MIGHT NOT HAVE IT CHECK THE PIC

Click on toolbox

Right click on ALL WINDOWS FORM>choose items

This should open up then goto COM COMPONETS CHECK THE REST OF THE IMAGE!
http://i.imgur.com/lyvMeap.png

Then scroll down in the toolbox you should see it in there should be the last

DRAG AND DROP IT IN THERE RESIZE

Add 2 Buttons drag and drop

Change the text of button 1 and 2 like this

Click on the Shockwave object change the name to battleon or what ever you will remember

So all that is set now for the browser part to get AQ Codes to load the game

Goto
http://aq.battleon.com/Build30/game....nchtype=medium

Right click view source

So now go back to Visual studio
double click on the form not the shockwave
click on any empty part

So now the game url will be

Code:

http://aq.battleon.com/Build30/game.asp?launchtype=medium = base

So in a code it would be

Code:

shockwavename.base = "http://aq.battleon.com/Build30/game.asp?launchtype=medium"

Now the movie part
http://aq.battleon.com/Build30/engine/Lore380.swf

So in code it would be

Code:

battleon.Movie = "http://aq.battleon.com/Build30/engine/Lore380.swf"

Now the flash vars part

Code:

battleon.FlashVars = "strGUI=medium&strServer=aq61&strLanguage=&strAutoAd=yes"

Now the allowScriptAccess

In code:

Code:

battleon.AllowScriptAccess = "sameDomain"

The rest will be easy

In Code:

Code:

battleon.Loop = False battleon.Menu = False battleon.CtlScale = "exactFit" battleon.BGColor = "333333"

Now test see if the game loads click on start

Make sure you can login:

Now for the hacks add 1 TIMER! drag drop from the toolbox

Should be like this once dragged and dropped

Next:
Douable click on button1 and add these codes

That code is just to switch the timer on and off k?
Simple!

Next GOD MODE:
Double click on Timer1 the one you added
add these codes

Code:

Dim baseHP As Integer baseHP = battleon.GetVariable("_root.player.intBaseHP") If baseHP > 0 Then Call battleon.SetVariable("_root.player.intHP", baseHP) Else Call battleon.SetVariable("_root.player.intHP", 100) End If

Simple?

k

Next INSTANT KILL:
Double click on button2

Add this code

Code:

Call battleon.SetVariable("_root.monster.intHP", 0)

What it does?

It will call the monster HP and set it to 0
Simple!

THATS ALL ENJOY!

EASY HUH?

AQ TRAINER VB.NET BASIC

Post a Reply

Similar Threads

Tags for this Thread