Opie Posted December 14, 2011 Posted December 14, 2011 I made a UDF that allows you to play a SWF file in the GUI. Uses size dimensions, you can pause/stop/resume/loop the SWF, choose locally of course. I know there are methods to build it right into your script, but should i release it as a UDF?
Skitty Posted December 15, 2011 Posted December 15, 2011 I made a UDF that allows you to play a SWF file in the GUI. Uses size dimensions, you can pause/stop/resume/loop the SWF, choose locally of course. I know there are methods to build it right into your script, but should i release it as a UDF? no no, horde it my friend! patent it at pto.gov and for anyone who want use udf u maked chargeded them $25 per single license!!1!11 But oh noes!! it seems as if the secrete has already leakeded. #include <GUIConstantsEx.au3> HotKeySet('{ESC}', '_Close') Opt('GUIOnEventMode', 1) Global $hGUI, $FlashCtrl Global $oFlash Global $fError = False $hGUI = GUICreate('Test', 550, 400) $oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash.10") $oAutoItError = ObjEvent("AutoIt.Error", "COMError") $FlashCtrl = GUICtrlCreateObj($oFlash, 0, 0, 550, 400) GUISetOnEvent($GUI_EVENT_CLOSE, '_Close') With $oFlash ; Put the file string here. .Movie = @ScriptDir & 'file.swf' ;#cs Example .Movie = "http://64.191.61.82/albino_games04/curveball(www.albinoblacksheep.com).swf" .Base = "http://www.albinoblacksheep.com/flash/curveball" #ce .wmode = "opaque" .allowScriptAccess = "Always" .Playing = True EndWith GUISetState() While 1 Sleep(10) WEnd Func _Close() $oFlash.Stop() $oFlash = 0 GUIDelete() Exit EndFunc Func COMError() $fError = True EndFunc and and here and and It's really lame when people post questions in an area intended to host actual example code, why not have asked the question in a more relevant category?
Opie Posted December 15, 2011 Author Posted December 15, 2011 no no, horde it my friend! patent it at pto.gov and for anyone who want use udf u maked chargeded them $25 per single license!!1!11 But oh noes!! it seems as if the secrete has already leakeded. #include <GUIConstantsEx.au3> HotKeySet('{ESC}', '_Close') Opt('GUIOnEventMode', 1) Global $hGUI, $FlashCtrl Global $oFlash Global $fError = False $hGUI = GUICreate('Test', 550, 400) $oFlash = ObjCreate("ShockwaveFlash.ShockwaveFlash.10") $oAutoItError = ObjEvent("AutoIt.Error", "COMError") $FlashCtrl = GUICtrlCreateObj($oFlash, 0, 0, 550, 400) GUISetOnEvent($GUI_EVENT_CLOSE, '_Close') With $oFlash ; Put the file string here. .Movie = @ScriptDir & 'file.swf' ;#cs Example .Movie = "http://64.191.61.82/albino_games04/curveball(www.albinoblacksheep.com).swf" .Base = "http://www.albinoblacksheep.com/flash/curveball" #ce .wmode = "opaque" .allowScriptAccess = "Always" .Playing = True EndWith GUISetState() While 1 Sleep(10) WEnd Func _Close() $oFlash.Stop() $oFlash = 0 GUIDelete() Exit EndFunc Func COMError() $fError = True EndFunc and and here and and It's really lame when people post questions in an area intended to host actual example code, why not have asked the question in a more relevant category? i never said it was a big secret dude, chill. And what kind of category for asking the question? o;
Skitty Posted December 15, 2011 Posted December 15, 2011 (edited) i never said it was a big secret dude, chill. And what kind of category for asking the question? o;Ah, c'mon, I'm just messing with you.As for a category for asking, a good one would be "general help and support" or "chat", but the damage has already been done so the info can be for future reference. Edited December 15, 2011 by THAT1ANONYMOUSEDUDE
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