Shockwave Flash Object

#include <GUIConstants.au3>


$width = 600
$height = 450


GUICreate("Shockwave Flash Object", $width, $height, (@DesktopWidth/2)-200, (@DesktopHeight/2)-200)
$flash = ObjCreate("ShockwaveFlash.ShockwaveFlash.1")
GUICtrlCreateObj($flash, 0, 0, $width, $height)
With $flash
    .Movie = @ScriptDir & "\Kopfball.swf"
    .ScaleMode = 2;0 showall, 1 noborder, 2 exactFit, 3 noscale
    .bgcolor = "#000000"
    .Loop = True
    .wmode = "Opaque"
EndWith
GUISetState()
While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd