SkellySoul Posted May 16, 2012 Share Posted May 16, 2012 (edited) Hi My girlfriends b-day is coming up in just a few days and decided to make a unique card for her.So I have the card almost exactly how I wanted it however, I ran into one problem...I have a membership on americangreetings.com and decided to add one of their videos to my card to finish it off.Adding the swf video is no problem but the problem with the video is that it changes its size of the flash video.What happens is when I add the video I set the size of 550 x 400 and it resizes to 1000 x 1000 or so after awhile into the video and I am having a hard time adjusting the window I made to change with it.Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, Default, Default, $WS_POPUP) $ActiveX = GUICtrlCreateObj($Obj, 0, 0, 550, 400) With $obj ; .bgcolor = "#222211" .Movie = @ScriptDir & "ResourcesVideo.swf"; it should be loaded here, directly from compiled exe - no temporary files .scalemode = 0 .allowScriptAccess = "Always" ;.Quality = 1 ;.ScaleMode = 1 ;.Loop = True ; .wmode = "transparent" EndWith ;GUISetState(@SW_SHOW, $GUI) GUISetState (@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $obj = 0 GUIDelete() Exit EndIf WEnd EndFuncLittle example, dont mind the messy code please...4 AM lolThis is the actual link to the videohttp://www.americangreetings.com/ecards/...e-music-by-taylor-swift-ecard/ (You'll see what happens if you watch long enough...)[Edited]I thought that .allowScriptAccess = "Always" would help but nothing Edited May 16, 2012 by SkellySoul Link to comment Share on other sites More sharing options...
SkellySoul Posted May 16, 2012 Author Share Posted May 16, 2012 Bump...Thanks Link to comment Share on other sites More sharing options...
searchresult Posted May 16, 2012 Share Posted May 16, 2012 width: 1050px; height: 1025px; is the actual size of the video when it starts to play. 550 x 400 is just still image before it starts to play... Link to comment Share on other sites More sharing options...
SkellySoul Posted May 16, 2012 Author Share Posted May 16, 2012 width: 1050px; height: 1025px; is the actual size of the video when it starts to play. 550 x 400 is just still image before it starts to play...Oh okay, but the thing is I even tried that Width and Height because I know that it increases to that Width and Height but I still am not able to see everything in the video. Link to comment Share on other sites More sharing options...
JohnOne Posted May 16, 2012 Share Posted May 16, 2012 Can't you do something like With $obj .Width = 500;(whatever) .Height = 400;(.) AutoIt Absolute Beginners Require a serial Pause Script Video Tutorials by Morthawt ipify Monkey's are, like, natures humans. Link to comment Share on other sites More sharing options...
SkellySoul Posted May 17, 2012 Author Share Posted May 17, 2012 Can't you do something like With $obj .Width = 500;(whatever) .Height = 400;(.) I actually tried that but for some reason I get an error. .Width = 550 .Width = 550 ^ ERROR Link to comment Share on other sites More sharing options...
searchresult Posted May 17, 2012 Share Posted May 17, 2012 Did you try this? $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) $ActiveX = GUICtrlCreateObj($Obj, 0, 0, 1050, 1025) Link to comment Share on other sites More sharing options...
SkellySoul Posted May 17, 2012 Author Share Posted May 17, 2012 Did you try this? $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) $ActiveX = GUICtrlCreateObj($Obj, 0, 0, 1050, 1025) Yep I tried that, I even tried @Desktop Width + Height For some reason it just doesnt want to show everything in the video...I can get it working in a program called "Sothink SWF Decompiler" I didnt plan on uploading it but here is the actual video http://www.mediafire.com/?7r10j61daa2o14h Link to comment Share on other sites More sharing options...
searchresult Posted May 18, 2012 Share Posted May 18, 2012 (edited) Try this... I have small monitor at work so can't see width well... I know height is good... expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> _Video() Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $vHeight = 1050 $vWidth = 1025 $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) GUISetBkColor(0xFFFFFF) $ActiveX = GUICtrlCreateObj($Obj, $Width / 2 - $vWidth / 2, $Height / 2 - $vHeight / 2, $vWidth, $vHeight) With $Obj .Movie = @ScriptDir & "Video.swf"; it should be loaded here, directly from compiled exe - no temporary files .Movie.stage.stageWidth = 1050 .Movie.stage.stageHeight = 1025 .allowScriptAccess = "always" .scalemode = False .wmode = "transparent" .flashvars = "bframe=1&ihost=http://ak.imgag.com/imgag&brandldrPath=/swf/loaders/&cardNum=/product/full/ap/3286601/graphic1&ahost=http://www.americangreetings.com&phost=http://www.americangreetings.com&asv=3&brandldr=wsag_as3&mode=init&mtype=0&productNumber=3286601&shellWebPath=/swf&fps=fps24&controlbar=/swf/control_bars/controlBar_nutshell&pdType=WS&flvWidth=550&flvHeight=400&largeX=550&laregY=400&showControlBar=1&postroll=/swf/dynamic_plugins/AGJoinOverlayPlugin&overlaywait=2000&NameFirstFrom=sender&NameFirstTo=recipient&" EndWith GUISetState(@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $Obj = 0 GUIDelete() Exit EndIf WEnd EndFunc ;==>_Video Func _Exit() Exit EndFunc ;==>_Exit Edited May 18, 2012 by searchresult Link to comment Share on other sites More sharing options...
SkellySoul Posted May 18, 2012 Author Share Posted May 18, 2012 (edited) Try this... I have small monitor at work so can't see width well... I know height is good... expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> _Video() Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $vHeight = 1050 $vWidth = 1025 $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) GUISetBkColor(0xFFFFFF) $ActiveX = GUICtrlCreateObj($Obj, $Width / 2 - $vWidth / 2, $Height / 2 - $vHeight / 2, $vWidth, $vHeight) With $Obj .Movie = @ScriptDir & "Video.swf"; it should be loaded here, directly from compiled exe - no temporary files .Movie.stage.stageWidth = 1050 .Movie.stage.stageHeight = 1025 .allowScriptAccess = "always" .scalemode = False .wmode = "transparent" .flashvars = "bframe=1&ihost=http://ak.imgag.com/imgag&brandldrPath=/swf/loaders/&cardNum=/product/full/ap/3286601/graphic1&ahost=http://www.americangreetings.com&phost=http://www.americangreetings.com&asv=3&brandldr=wsag_as3&mode=init&mtype=0&productNumber=3286601&shellWebPath=/swf&fps=fps24&controlbar=/swf/control_bars/controlBar_nutshell&pdType=WS&flvWidth=550&flvHeight=400&largeX=550&laregY=400&showControlBar=1&postroll=/swf/dynamic_plugins/AGJoinOverlayPlugin&overlaywait=2000&NameFirstFrom=sender&NameFirstTo=recipient&" EndWith GUISetState(@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $Obj = 0 GUIDelete() Exit EndIf WEnd EndFunc ;==>_Video Func _Exit() Exit EndFunc ;==>_Exit Thanks for continuing to help me, I really appreciate it...unfortunately the width doesnt want to work when the video resizes....the height seems fine. I was also wondering what .flashvar does. Edited May 18, 2012 by SkellySoul Link to comment Share on other sites More sharing options...
searchresult Posted May 18, 2012 Share Posted May 18, 2012 Problem is that the overlay is set to 2000px width. there should be solution to this but... well if i find something out, will post it... Link to comment Share on other sites More sharing options...
searchresult Posted May 18, 2012 Share Posted May 18, 2012 (edited) Now it is working as you wanted... expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> _Video() Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $vHeight = 1025 $vWidth = 1200 $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) GUISetBkColor(0xFFFFFF) GUICtrlCreateObj($Obj, $Width / 2 - $vWidth / 2, $Height / 2 - $vHeight / 2, $vWidth, $vHeight) With $Obj .Movie = @ScriptDir & "Video.swf"; it should be loaded here, directly from compiled exe - no temporary files .scale = "noscale" EndWith GUISetState(@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $Obj = 0 GUIDelete() Exit EndIf WEnd EndFunc ;==>_Video Func _Exit() Exit EndFunc ;==>_Exit You can center as you wish but don't touch dimension ($vHeight and $vWidth) Edited May 18, 2012 by searchresult Link to comment Share on other sites More sharing options...
SkellySoul Posted May 19, 2012 Author Share Posted May 19, 2012 Now it is working as you wanted... expandcollapse popup#include <GUIConstantsEx.au3> #include <WindowsConstants.au3> _Video() Func _Video() HotKeySet("{ESC}", "_Exit") $Width = @DesktopWidth $Height = @DesktopHeight $vHeight = 1025 $vWidth = 1200 $Obj = ObjCreate("ShockwaveFlash.ShockwaveFlash") $GUI2 = GUICreate("", $Width, $Height, 0, 0, $WS_POPUP) GUISetBkColor(0xFFFFFF) GUICtrlCreateObj($Obj, $Width / 2 - $vWidth / 2, $Height / 2 - $vHeight / 2, $vWidth, $vHeight) With $Obj .Movie = @ScriptDir & "Video.swf"; it should be loaded here, directly from compiled exe - no temporary files .scale = "noscale" EndWith GUISetState(@SW_SHOW, $GUI2) While 1 If GUIGetMsg() = -3 Then $Obj = 0 GUIDelete() Exit EndIf WEnd EndFunc ;==>_Video Func _Exit() Exit EndFunc ;==>_Exit You can center as you wish but don't touch dimension ($vHeight and $vWidth) That is exactly what I was looking for excellent...you have no idea how happy I am now that it is working...made my day Thank you...may be if you don't mind can you explain what was causing the problem. Link to comment Share on other sites More sharing options...
guinness Posted May 19, 2012 Share Posted May 19, 2012 See above. UDF List: _AdapterConnections() • _AlwaysRun() • _AppMon() • _AppMonEx() • _ArrayFilter/_ArrayReduce • _BinaryBin() • _CheckMsgBox() • _CmdLineRaw() • _ContextMenu() • _ConvertLHWebColor()/_ConvertSHWebColor() • _DesktopDimensions() • _DisplayPassword() • _DotNet_Load()/_DotNet_Unload() • _Fibonacci() • _FileCompare() • _FileCompareContents() • _FileNameByHandle() • _FilePrefix/SRE() • _FindInFile() • _GetBackgroundColor()/_SetBackgroundColor() • _GetConrolID() • _GetCtrlClass() • _GetDirectoryFormat() • _GetDriveMediaType() • _GetFilename()/_GetFilenameExt() • _GetHardwareID() • _GetIP() • _GetIP_Country() • _GetOSLanguage() • _GetSavedSource() • _GetStringSize() • _GetSystemPaths() • _GetURLImage() • _GIFImage() • _GoogleWeather() • _GUICtrlCreateGroup() • _GUICtrlListBox_CreateArray() • _GUICtrlListView_CreateArray() • _GUICtrlListView_SaveCSV() • _GUICtrlListView_SaveHTML() • _GUICtrlListView_SaveTxt() • _GUICtrlListView_SaveXML() • _GUICtrlMenu_Recent() • _GUICtrlMenu_SetItemImage() • _GUICtrlTreeView_CreateArray() • _GUIDisable() • _GUIImageList_SetIconFromHandle() • _GUIRegisterMsg() • _GUISetIcon() • _Icon_Clear()/_Icon_Set() • _IdleTime() • _InetGet() • _InetGetGUI() • _InetGetProgress() • _IPDetails() • _IsFileOlder() • _IsGUID() • _IsHex() • _IsPalindrome() • _IsRegKey() • _IsStringRegExp() • _IsSystemDrive() • _IsUPX() • _IsValidType() • _IsWebColor() • _Language() • _Log() • _MicrosoftInternetConnectivity() • _MSDNDataType() • _PathFull/GetRelative/Split() • _PathSplitEx() • _PrintFromArray() • _ProgressSetMarquee() • _ReDim() • _RockPaperScissors()/_RockPaperScissorsLizardSpock() • _ScrollingCredits • _SelfDelete() • _SelfRename() • _SelfUpdate() • _SendTo() • _ShellAll() • _ShellFile() • _ShellFolder() • _SingletonHWID() • _SingletonPID() • _Startup() • _StringCompact() • _StringIsValid() • _StringRegExpMetaCharacters() • _StringReplaceWholeWord() • _StringStripChars() • _Temperature() • _TrialPeriod() • _UKToUSDate()/_USToUKDate() • _WinAPI_Create_CTL_CODE() • _WinAPI_CreateGUID() • _WMIDateStringToDate()/_DateToWMIDateString() • Au3 script parsing • AutoIt Search • AutoIt3 Portable • AutoIt3WrapperToPragma • AutoItWinGetTitle()/AutoItWinSetTitle() • Coding • DirToHTML5 • FileInstallr • FileReadLastChars() • GeoIP database • GUI - Only Close Button • GUI Examples • GUICtrlDeleteImage() • GUICtrlGetBkColor() • GUICtrlGetStyle() • GUIEvents • GUIGetBkColor() • Int_Parse() & Int_TryParse() • IsISBN() • LockFile() • Mapping CtrlIDs • OOP in AutoIt • ParseHeadersToSciTE() • PasswordValid • PasteBin • Posts Per Day • PreExpand • Protect Globals • Queue() • Resource Update • ResourcesEx • SciTE Jump • Settings INI • SHELLHOOK • Shunting-Yard • Signature Creator • Stack() • Stopwatch() • StringAddLF()/StringStripLF() • StringEOLToCRLF() • VSCROLL • WM_COPYDATA • More Examples... Updated: 22/04/2018 Link to comment Share on other sites More sharing options...
SkellySoul Posted May 19, 2012 Author Share Posted May 19, 2012 See above.I don't know what exactly an overlay means...it could mean many different things. Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now