My christmas tree - movable transparent desktop gif

[JackER4565]

Hi I just wanted to share the tree I've made with all of you.

Made it myself with a little help of the forum and google.

This uses an example from @Chimp in this post, then I added the movable part, you exit by pressing 'end'.

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=tree.ico
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****

#include <WinAPISysWin.au3>
#include <GUIConstants.au3>
#include <Misc.au3> ; for _IsPressed (23 END key)

;FileInstall("***\tree.gif", @ScriptDir & "\tree.gif") ;<<<<<<<<<< include ur gif file here
Local $hDLL = DllOpen("user32.dll"), $oIE = ObjCreate("Shell.Explorer.2")
Local $hBackground = GUICreate("", 350, 470, 20, 20, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST)
GUISetBkColor(0xffffff)
Local $AlphaKey = 0xffffff

$hLabel = GUICtrlCreateLabel("", 0, 0, 350, 450, -1, $GUI_WS_EX_PARENTDRAG)

_WinAPI_SetLayeredWindowAttributes($hBackground, $AlphaKey, 0, $LWA_COLORKEY)
GUISetState(@SW_SHOW, $hBackground)
$hIE = GUICtrlCreateObj($oIE, -20, -5, 410, 480) ; <- embedd $oIE in the AutoIt GUI
GUICtrlSetBkColor(-1, 0xffffff)


$oIE.navigate(@ScriptDir & "\tree.gif")


While True
    If _IsPressed("23", $hDLL) Then ExitLoop ; END key was pressed
    Sleep(50)
WEnd
$oIE = ""
$hDLL = ""
GUIDelete($hBackground)

Thanks and happy holidays!

xmas.au3 xmas.exe tree.ico

Edited December 6, 2019 by JackER4565

[TheSaint]

Very nice ... Thanks for sharing.

I had to recompile for 32 bit Win 7, which meant I needed to change #include <WinAPISysWin.au3> to #include <WinAPI.au3>.

[argumentum]

..for some reason, the user "Fabrizio" is not in my PC 

Thanks for sharing Fabrizio  

Spoiler

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=tree.ico
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <WinAPISysWin.au3>
#include <GUIConstants.au3>
#include <Misc.au3>; For _IsPressed(23 END key)
Global $hDLL = DllOpen("user32.dll"), $oIE = ObjCreate("Shell.Explorer.2")
Global $hBackground = GUICreate("", 350, 470, 20, 20, $WS_POPUP, $WS_EX_LAYERED + $WS_EX_TOPMOST)
Global $my_COLOR_WINDOW = _WinAPI_SwitchColor(_WinAPI_GetSysColor(5)) ; <-----  this is important
GUISetBkColor($my_COLOR_WINDOW)
Global $AlphaKey = $my_COLOR_WINDOW
$hLabel = GUICtrlCreateLabel("", 0, 0, 350, 450, -1, $GUI_WS_EX_PARENTDRAG)
_WinAPI_SetLayeredWindowAttributes($hBackground, $AlphaKey, 0, $LWA_COLORKEY)
GUISetState(@SW_SHOW, $hBackground)
$hIE = GUICtrlCreateObj($oIE, -20, -5, 410, 480) ; <- embedd $oIE in the AutoIt GUI
GUICtrlSetBkColor(-1, $my_COLOR_WINDOW)
$oIE.navigate(@ScriptDir & "\tree.gif")
While True
    If _IsPressed("23", $hDLL) Then ExitLoop ; END key was pressed
    Sleep(50)
WEnd
$oIE = ""
$hDLL = ""
GUIDelete($hBackground)

 

 

Edited December 10, 2019 by argumentum
fix bg color code