Sign in to follow this  
Followers 0
iamtheky

How To Play a Flash Video over your Install

2 posts in this topic

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.

#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

,-. .--. ________ .-. .-. ,---. ,-. .-. .-. .-.
|(| / /\ \ |\ /| |__ __||| | | || .-' | |/ / \ \_/ )/
(_) / /__\ \ |(\ / | )| | | `-' | | `-. | | / __ \ (_)
| | | __ | (_)\/ | (_) | | .-. | | .-' | | \ |__| ) (
| | | | |)| | \ / | | | | | |)| | `--. | |) \ | |
`-' |_| (_) | |\/| | `-' /( (_)/( __.' |((_)-' /(_|
'-' '-' (__) (__) (_) (__)

Share this post


Link to post
Share on other sites



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


Try to face everything troubles you.nothing is impossible!

Share this post


Link to post
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
Sign in to follow this  
Followers 0