make a gui that loads a local swf file?

[nowayhome2]

im trying to make a gui that loads a single swf into it kinda putting an ie shell into your form except just make it a swf?

[Authenticity]

expandcollapse popup

#include <GUIConstantsEx.au3>

HotKeySet('{ESC}', '_Close')
Opt('GUIOnEventMode', 1)

Global $hGUI, $FlashCtrl
Global $oFlash
Global $fError = False

$hGUI = GUICreate('Test', 550, 400)

$oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash.10")
$oAutoItError = ObjEvent("AutoIt.Error", "COMError")

$FlashCtrl = GUICtrlCreateObj($oFlash, 0, 0, 550, 400)
GUISetOnEvent($GUI_EVENT_CLOSE, '_Close')

With $oFlash
    ; Put the file string here.
    .Movie = @ScriptDir & '\file.swf'
    #cs Example
        .Movie = "http://64.191.61.82/albino_games04/curveball(www.albinoblacksheep.com).swf"
        .Base = "http://www.albinoblacksheep.com/flash/curveball"
    #ce
    .wmode = "opaque"
    .allowScriptAccess = "Always"
    .Playing = True
EndWith

GUISetState()

While 1
    Sleep(10)
WEnd

Func _Close()
    $oFlash.Stop()
    $oFlash = 0
    GUIDelete()
    Exit
EndFunc

Func COMError()
    $fError = True
EndFunc

[electrico]

Thank you very much and Happy New year!!!

[Annonyreeder]

This code seems to work for me when i press F5 in the script, however when i compile it and run the code i get an error

"Line 6725 (File C:UsersReederaDesktopProjectsPandasPandaV1.42.exe"):
Error:Only Object-type variables allowed in a "With" statement,

Any ideas why this is happening? cheers

Ant

[Nessie]

With necroposting an old topic? Please open a new one

Hi!