Jump to content

Transparent Flash Control in autoit


Recommended Posts

background Transparent flash animation on desktop

like it ,mail.ru

#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <StaticConstants.au3>
#include <WinAPI.au3>
#include <GUIConstantsEx.au3>
#include <EditConstants.au3>

$GUI = GUICreate("Transparent flash animation on desktop ", 670, 470,  -1, -1, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST))

$oGame = ObjCreate("ShockwaveFlash.ShockwaveFlash")
$oGameGUI = GUICtrlCreateObj($oGame, 10, 10, 650, 450)
GUISetBkColor(345)
_WinAPI_SetLayeredWindowAttributes($GUI , 345, 255)
With $oGame
  
    .Movie = @ScriptDir & "test.swf"
    .Loop = True
    .ScaleMode = 2
    .wmode = "transparent"
EndWith
GUISetState()
While 1
    $nMsg = GUIGetMsg()
    Select
    Case $nMsg = -3
        Exit
    EndSelect
WEnd
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...