Universal Trainer help

So basically I'm trying to make it where I can have a universal trainer and the users using my program and input their own .swf files links or files into the program and run them, and then the hack hotkeys will work on the game.
Im not worried right now about the hacks not working with the code, I just need to know how the user can use their on .swf in the program's Shockwaveflashobject.
----------
If you guys need anymore information don't hesitate to ask.

I'm not 100% sure, but here are a few thoughts.

FlashPlayer.LoadMovie ( ) takes a local file, which means if you want to be able to play any .swf on the internet, your code will have to download it first and save it to a file.

FlashPlayer.LoadMovie(1, filePath) // 1 = layer, I'm not sure...as long as you only have 1 game per flash object, you only need 1 layer (?) don't worry for now?

So, you have a button to "Load new flash game"

If [the user wants] == local file
FlashPlayer.LoadMovie(1,OpenFileDialog.FilePath) // or is it filename? some property of the FileDialog
Else
fileurl = InputBox("Please enter the http:// address of the game")
SomeFuncToDownloadAndSaveSWF(fileurl)
End If

Private Sub SomeFuncToDownloadAndSaveSWF(Byval fileUrl as string)
...that code...
FlashObject.LoadFile(1,.swf from 'that code')
End Sub

^^that's a really rough outline. no error checking at all, or implementation details. Do you have a specific question?

Basically what ^ he said.
Using the shockwaveflashplayer used in visual studio, you can load local .swf files and placed them, by layers, onto the flash player. Meaning, you can overlay .swf's on the flash player.

To do this, you can
Load by using a openfiledialog
Example:

Code:

 Private Sub LoadMovie(ByVal Path As String, ByVal Layer As Integer)
        AxShockwaveFlash1.LoadMovie(Layer, Path)
    End Sub


    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim dlg As New OpenFileDialog
        With dlg
            .Title = "Open .SWF"
            .InitialDirectory = Environment.SpecialFolder.Desktop
            .Filter = "Shock Wave Flash Files(*.swf)|*.swf"
        End With
        If dlg.ShowDialog = Windows.Forms.DialogResult.OK Then
            LoadMovie(dlg.FileName, 1)
        End If
    End Sub

Load by using a filepath from your computer
Example:

Code:

Private Sub LoadMovie(ByVal Path As String, ByVal Layer As Integer)
        AxShockwaveFlash1.LoadMovie(Layer, Path)
    End Sub
LoadMovie("C:\", 1)

and so many more ways to do this. You should get the point by now

hmm..what would happen if you loaded 2 games at once? Game1 at layer...what 0 or 1? Game2 at +1 of that.
(probably some type of overlay / transparency effect)

That probably isn't the desired effect, maybe.

Thanks for your help!
Ill compile this now..
Keep posting tho

---------- Post added at 08:00 PM ---------- Previous post was at 07:48 PM ----------

Originally Posted by xBear Grylls

Thanks for your help!
Ill compile this now..
Keep posting tho

@DawgiiStylz
------
When I go to load the .swf it doesn't load into the movie?

.swf not exists.
aka filePath is wrong. Is it relative or absolute? w/ .swf extension? etc. Are you using the OpenFileDialog code doggy posted?)

-do any file load: is there 1 specific that won't load, or, none load?

Originally Posted by xBear Grylls

Thanks for your help!
Ill compile this now..
Keep posting tho

---------- Post added at 08:00 PM ---------- Previous post was at 07:48 PM ----------

@DawgiiStylz
------
When I go to load the .swf it doesn't load into the movie?

Okay, I assume you want the user of the program to be able to load games by putting a link or loading the file onto the program right?

(Put down the Shockwave Flash Object in form1)

So, first of we will let the user load .SWF files onto the program so they play games they downloaded. So drag 2 buttons and a list box down. Rename button 1 to Open and button 2 to Use. Put the listbox in the middle of the two. Double click on open and put
Dim open As New OpenFileDialog

open = New OpenFileDialog

open.Filter = "SWF Files(*.swf)|*.swf"

If (open.ShowDialog() = DialogResult.OK) Then

ListBox1.Items.Add(open.FileName)

Next click on use and put Me.AxShockwaveFlash1.LoadMovie(1, ListBox1.SelectedItem)

Now the user will be able to open up the desired .SWF file and load it onto form1. Now just for looks I would right click on your project name and add another form, then drag a button down on form1 and double click on it and type Form2.Show()

Next drag a button and 2 textboxes and 2 labels down, rename the button to load and rename label 1 to SWF and put it next to textbox1 and rename label2 to base and put it next to textbox2, double click on load and put
Me.AxShockwaveFlash1.Movie = TextBox1.Text
Me.AxShockwaveFlash1.Base = TextBox2.Text
Me.AxShockwaveFlash1.Play()

If you need anymore help add me on skype: AqworldThunder

I'll guarantee this will work, I've made 12 trainers/updates so I know what I'm doing.

To play .swf files, you also have to have the flash player playing something already.
The 2 properties of the flash player, Movie and Base are whats required.
The base is usually where the game is hosted. Such as, adventure quest plays on adventureques*****m/game (example)
The movie is the game .swf. You can find this by looking it up via page source. Google could help you out as well.
(Find anything that end with ".swf" and see if it works)

After you having a game playing on the flash player, then you can load these .swf's to overlay on the game.

--DawgiiStylz

Originally Posted by Xzevos

Hey, what happened to your original forum account?

Originally Posted by AqworldThunder

Hey, what happened to your original forum account?

I got banned... again. I'm always getting into trouble. I'm demoted this time most likely

Universal Trainer help

Post a Reply

Similar Threads

Tags for this Thread