AQ TRAINER VB.NET BASIC

[ToxLP]

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!
https://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
https://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

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

So in a code it would be

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

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

So in code it would be

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

Now the flash vars part

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

Now the allowScriptAccess


In code:

battleon.AllowScriptAccess = "sameDomain"

The rest will be easy

In 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

       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

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?

[Jhem]

Good job man.
But i think you forgot something.