AutoHotkey Community

WinSet, Transparent, 200, Untitled - Notepad
; Make the window a little bit transparent.

Gui Color, 0,0                     ; Black
Gui -Caption +ToolWindow +E0x20    ; No title bar, No taskbar button, Transparent for clicks
Gui Show, X0 Y0 W%A_ScreenWidth% H%A_ScreenHeight% ; Create a semi-transparent cover window
WinGet ID, ID, A                   ; ...with HWND/handle ID

Winset AlwaysOnTop,ON,ahk_id %ID%  ; Keep it always on the top
WinSet Transparent,99,ahk_id %ID%

Gui 2:Color, 0,0                   ; Black
Gui 2:-Caption +ToolWindow +E0x20  ; No title bar, No taskbar button, Transparent for clicks
Gui 2:Show, X0 Y0 W%A_ScreenWidth% H%A_ScreenHeight% ; Create a semi-transparent cover window
WinGet ID, ID, A                   ; ...with HWND/handle ID

Winset AlwaysOnTop,ON,ahk_id %ID%  ; Keep it always on the top
WinSet Transparent,99,ahk_id %ID%

WinGet hw_tray, ID, ahk_class Shell_TrayWnd
DllCall("SetParent", UInt,ID, UInt,hw_tray) ; dock cover window to the taskbar

Gui Color, 0,0                     ; Black
Gui -Caption +ToolWindow +E0x20    ; No title bar, No taskbar button, Transparent for clicks
Gui Show, X0 Y0 W%A_ScreenWidth% H%A_ScreenHeight% ; Create a semi-transparent cover window
WinGet ID, ID, A                   ; ...with HWND/handle ID
SetTimer OnTop, 1

OnTop:
Winset AlwaysOnTop,ON,ahk_id %ID%  ; Keep it always on the top
WinSet Transparent,99,ahk_id %ID%

WinGet hw_tray, ID, ahk_class Shell_TrayWnd

dimmerLevel=100

SysGet, nMon, MonitorCount
hwndlist=
msg=
Loop, %nMon% {
    SysGet pos, Monitor, %A_Index%

    guiNum := A_Index ; + 1
    Gui %guiNum%:Default
    Gui Color, 0,0                     ; Black
    Gui -Caption +ToolWindow +AlwaysOnTop +E0x20 +E0x20000000  ; No title bar, No taskbar button, Transparent for clicks

    width := posRight - posLeft
    height := posBottom - posTop
   
    Gui Show, X%posLeft% Y%posTop% W%width% H%height% ; Create a semi-transparent cover window
    WinGet ID, ID, A                   ; ...with HWND/handle ID
    hwndlist%guiNum%= %ID%
   
;     Winset AlwaysOnTop, ON, ahk_id %ID%  ; Keep it always on the top
    WinSet Transparent, %dimmerLevel%, ahk_id %ID%

;     tmp=%A_Index%: X%posLeft% Y%posTop% W%width% H%height%
;     msg .= tmp "`n"
}

; MsgBox, , Monitor Listing, %msg%

; Event response to keep windows on top.
;     Gui +LastFound
;     hWnd := WinExist()

DllCall( "RegisterShellHookWindow", UInt, ID )
MsgNum := DllCall( "RegisterWindowMessage", Str, "SHELLHOOK")
OnMessage( MsgNum, "WinActivated_Handler")

DllCall("CoInitialize", Uint, 0)
HookProcAdr := RegisterCallback( "WinEventHookProc", "F" )
hookWinEvent := DllCall("SetWinEventHook"
              , Uint, 0x6, Uint, 0x9
              , Uint,0, Uint,HookProcAdr
              , Uint,0, Uint,0, Uint, 0)

; SetTimer OnTop, 50
return
;----------------------------------

OnTop:
        Loop, %nMon% {
     ID := hwndlist%A_Index%
      Winset AlwaysOnTop, ON, ahk_id %ID%  ; Keep it always on the top

    Winset AlwaysOnTop,ON,ahk_id %ID%  ; Keep it always on the top
    WinSet Transparent,%dimmerLevel%,ahk_id %ID%
         }
    return

WinActivated_Handler( lParam, wParam ) {
;     TrayTip, , % "WinAct: " lParam ", " wParam, 2

    if (lParam = 4) {
        ReTop(wParam)
    }
}

WinEventHookProc( hWinEventHook, Event, hWnd, idObject, idChild, dwEventThread, dwmsEventTime )
{
;    TrayTip, , % "WinEvt: " hWnd ", " Event, 2

   ReTop(hWnd)   
}

ReTop(hWnd) {
    global hw_tray, hwndlist, dimmerLevel, nMon

    if (hWnd = 0)
        hWnd := hw_tray

;     TrayTip, , %hWnd%, 2

    Loop, %nMon% {
        ID := hwndlist%A_Index%
   
        Winset AlwaysOnTop,ON,ahk_id %ID%  ; Keep it always on the top
        WinSet Transparent,%dimmerLevel%,ahk_id %ID%
     }

}