Jump to content
Sign in to follow this  
mesale0077

swf don't wotk

Recommended Posts

mesale0077

#AutoIt3Wrapper_Res_File_Add=test_1.htm, rt_html, TEST_HTML_1
#AutoIt3Wrapper_Res_File_Add=test_1.gif, rt_html, TEST_GIF_1

$oIE = ObjCreate("Shell.Explorer.2")
$gui = GUICreate("HTML from resources example",500,400)
$ie_ctrl = GUICtrlCreateObj ($oIE, 0, 0 , 500, 400)
GUISetState(@SW_SHOW)

; image from resource (all HTML supported types)
$oIE.navigate("res://" & @AutoItExe & "/test_gif_1")
Sleep(3000)
; html from resource (with embeded image from resources)
$oIE.navigate("res://" & @AutoItExe & "/test_html_1")

While 1
    If GUIGetMsg() = -3 Then Exit
WEnd
#Region
#AutoIt3Wrapper_icon=D:\programlar\iconlar\alim.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_UseUpx=n
;#AutoIt3Wrapper_Res_File_Add=C:\slide.swf, rt_rcdata, TEST_BIN_1
#AutoIt3Wrapper_Res_File_Add=C:\test_1.dat, rt_rcdata, TEST_BIN_1
;#AutoIt3Wrapper_run_after=ResHacker.exe -add %out%, %out%, C:\slide.swf, rcdata, TEST_BIN_1, 0
#AutoIt3Wrapper_Run_After=upx.exe --best --compress-resources=0 "%out%"

#include <GUIConstants.au3>
Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
GUICreate ("Flash", 820, 600, -1, -1)
$GUIActiveX    = GUICtrlCreateObj( $oRP, 10, 10 , 800 , 580)

With $oRP
    .bgcolor = "#000000"
    ;.Movie = 'C:\slide.dat';
     .Movie = "res://" & @AutoItExe & "/test_bin_1"
    .ScaleMode = 2
    .Loop = True
    .wmode = "Opaque"
    .FlashVars = ""
EndWith

GUISetState ()

While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
    EndSelect
WEnd

$oRP = 0
GUIDelete ()
Exit
hello

file read in @AutoItExe

dont install

res://" & @AutoItExe & "/test_bin_1 <===

dont work

dont read swf file

why

thank you help me now

this like it code

Edited by mesale0077

Share this post


Link to post
Share on other sites
doudou

res: protocol is IE specific and Flash obviously doesn't support it. Use FileInstall to extract your movie at runtime:

FileInstall("C:\slide.swf", @ScriptDir & "\slide.swf", 1)
If @compiled Then
    $oRP.Movie = @ScriptDir & "\slide.swf"
Else
    $oRP.Movie = "C:\slide.swf"
EndIf

UDFS & Apps:


DDEML.au3 - DDE Client + Server[*]
Localization.au3- localize your scripts[*]
TLI.au3 - type information on COM objects (TLBINF emulation)[*]
TLBAutoEnum.au3 - auto-import of COM constants (enums)[*]
AU3Automation - export AU3 scripts via COM interfaces
TypeLibInspector

- OleView was yesterday

Coder's last words before final release: WE APOLOGIZE FOR INCONVENIENCEĀ 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×