mesale0077 14 Posted August 23, 2010 (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 WEndexpandcollapse popup#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 () Exithello 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 August 23, 2010 by mesale0077 Share this post Link to post Share on other sites
doudou 5 Posted August 23, 2010 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 interfacesTypeLibInspector- OleView was yesterdayCoder's last words before final release: WE APOLOGIZE FOR INCONVENIENCEĀ Share this post Link to post Share on other sites