Cheat Engine

[Pepsiguy]

Vb6:

I need help, say dragonfable was http://dragonfable.battleon.com/game/gamefiles/core.swf?strFileName=game6_08.swf
and it updated to game6_10.swf, i want the shockwaveflash component to update with all users with the trainer

[Blader]

Just make an input box so people can put their own version in if it's updated

[NINTENDO]

I'm also interested in this.
How can i make an auto updater?.
Can't u just get the swf url from the website or something?
u could use inet to get the source right?

[i__h4x]

Dim source As String = ""
wb.Navigate("http://dragonfable.battleon.com/game/")
MsgBox(wb.IsBusy)
source = wb.DocumentText
Dim startpos As Integer = InStr(source, "FLASHVARS=" & ControlChars.Quote & "strFileName") + 22
If startpos = 0 Or source = "" Then Exit Sub
source = source.Remove(0, startpos)
Dim endpos As Integer = InStr(source, "bgcolor=" & ControlChars.Quote & "#530000") - 3
source = source.Remove(endpos, source.Length - endpos)
MsgBox("http://dragonfable.battleon.com/game/gamefiles/core.swf?strFileName=" & source)


Done in .net, but shouldnt be hard to change.
You just need a web browser control in order to view the source, then this chops out the relevant bit. Its not well coded, i was in a rush, but there you go, it should do the trick

[NINTENDO]

[Pepsiguy]

[i__h4x]

What is the dll for the web browser control?

[Pepsiguy]

microsoft internet controls 6.0 (its an .ocx)

[i__h4x]

Private Sub CommandButton1_Click()
Dim source As String
source = Inet1.OpenURL("http://dragonfable.battleon.com/game/")
Dim startpos As Long
startpos = InStr(source, "FLASHVARS=" & Chr(34) & "strFileName") + 23
Dim endpos As Integer
endpos = InStr(source, "bgcolor=" & Chr(34) & "#530000") - 3
source = Mid(source, startpos, endpos - startpos + 1)
MsgBox (source)
End Sub

Microsoft Internet Transfer Control
MSINET.OCX