Jump to content

SWF Flash UDF; Should i release?


Opie
 Share

Recommended Posts

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?

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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 Posted Image


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;
Link to comment
Share on other sites

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 by THAT1ANONYMOUSEDUDE
Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...