How To Play a Flash Video over your Install

[iamtheky]

I had trouble hunting down a way to get a flash video to behave as SplashImageOn, hopefully this assists others.

Currently Checks if you can hit youtube if so plays the video, if not it splashes a full screen image.

If video it will hide your tray so that it does not come to the foreground at any point.

As always, any suggestions or recommendations are appreciated.

expandcollapse popup

#include <AviConstants.au3>
#include <WindowsConstants.au3>


$P = Ping("www.youtube.com", 1000)
If $P > 0 Then    ; Plays a Video if Youtube can be accessed

    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_HIDE)

    Global $oRP = ObjCreate("ShockwaveFlash.ShockwaveFlash.10")
    Global $flash = GUICreate("Videos", @DesktopWidth, @DesktopHeight, 0, 0, BitOR($WS_POPUPWINDOW, $WS_EX_TOPMOST, $DS_SETFOREGROUND))
    WinSetOnTop("Videos", "", 1)
    Global $vid = GUICtrlCreateObj($oRP, -1, -1, @DesktopWidth + 10, @DesktopHeight + 30)

    With $oRP
        .bgcolor = "#ffffff"
        .Movie = 'http://www.youtube.com/v/QxFe9Vaxq0A?fs=1&amp;hl=en_US&autoplay=1'  ; The Video that will be played
        .ScaleMode = 3
        .Loop = "True"
        .wmode = "transparent"
        .FlashVars = ""
        .Play()
    EndWith

GUISetState()

Else
    FileInstall("PICTURE", "c:\temp1\", 1) ;installs the image if Ping Returns a Failure
    SplashImageOn("", "c:\temp1\PICTURE", @DesktopWidth, @DesktopHeight, "", "", 1)
EndIf



;;;;;;;;;;START OF INSTALL ACTIONS----------------------------------------------------------------------
ToolTip("Performing First Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Second Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Third Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Fourth Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Fifth Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Sixth Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Seventh Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Eigth Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Ninth Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
ToolTip("Performing Tenth Install Action", "", "", "Install Action", 1, 4)
sleep (7000)
;;;;;;;;;;;END OF INSTALL ACTIONS----------------------------------------------------------------------

_Exit()

Func _Exit()
    SplashOff()
     GUIDelete()
    WinSetState("[CLASS:Shell_TrayWnd]", "", @SW_SHOW)
    Exit
EndFunc   ;==>_Exit

[chong]

I'm sorry to say that I'm one of those who can't hit the YOUtube.thanks for sharing!