Sign in to follow this  
Followers 0
mesale0077

swf don't wotk

2 posts in this topic

#1 ·  Posted (edited)

#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



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  
Followers 0