[Solved]ObjCreate error

[Xand3r]

Try this... run if from scite, close it and then run it from windows(double click it) or compile and run it...

GUICreate(":TEST:")
Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.10")
$GUIActiveX    = GUICtrlCreateObj( $oRP, 0, 0 , 50 , 50)
With $oRP
    .bgcolor = "#000000"
    .Movie = @ScriptDir&'\asdf.swf';
    .ScaleMode = 2
    .Loop = False
    .wmode = "transparent"
    .FlashVars = ""
    .allowScriptAccess="Always"
EndWith
GUISetState()
While GUIGetMsg()<>-3
    Sleep(10)
WEnd
$oRP=""

edit: the error code when running it compiled is -2147221164 "Class not registered" (

Edited March 8, 2009 by TheMadman

[BrettF]

I used this script, and no errors when I run it compiled or straight from SciTE.

expandcollapse popup

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")

GUICreate("TEST")
Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
$GUIActiveX = GUICtrlCreateObj($oRP, 0, 0, 800, 600)
GUISetState ()

With $oRP
    .bgcolor = "#000000"
    .Movie = @MyDocumentsDir & "\testaa.swf";
    .ScaleMode = 2
    .Loop = False
    .wmode = "transparent"
    .FlashVars = ""
    .allowScriptAccess = "Always"
EndWith


While GUIGetMsg() <> -3
    Sleep(10)
WEnd
$oRP = ""

Func MyErrFunc()

    MsgBox(0, "AutoItCOM Test", "We intercepted a COM Error !" & @CRLF & @CRLF & _
            "err.description is: " & @TAB & $oMyError.description & @CRLF & _
            "err.windescription:" & @TAB & $oMyError.windescription & @CRLF & _
            "err.number is: " & @TAB & Hex($oMyError.number, 8) & @CRLF & _
            "err.lastdllerror is: " & @TAB & $oMyError.lastdllerror & @CRLF & _
            "err.scriptline is: " & @TAB & $oMyError.scriptline & @CRLF & _
            "err.source is: " & @TAB & $oMyError.source & @CRLF & _
            "err.helpfile is: " & @TAB & $oMyError.helpfile & @CRLF & _
            "err.helpcontext is: " & @TAB & $oMyError.helpcontext _
            )

    Local $err = $oMyError.number
    If $err = 0 Then $err = -1

    $g_eventerror = $err; to check for after this function returns
EndFunc  ;==>MyErrFunc

Using AutoIt V3.3.0.0. I have Macromedia Studio 8 installed too...

How does this one go for you?

[Xand3r]

same thing... when running it from scite it works fine.. but when i run it by double clicking the au3

edit: autoit v3.3.0.0

os:vista ultimate

flash player 10 installed

Edited March 8, 2009 by TheMadman

[Xand3r]

I found the error... when running or compiling for x64 it didn't work

but when i compiled for x86 it worked fine