; WinTrans by Titan
#NoEnv
#Persistent

transparency = 100 ; set this to the level of transparency you like
title = WinTrans
Menu, Tray, NoStandard
Menu, Tray, Add, About %title%, About
Menu, Tray, Add, Exit, Exit
Menu, Tray, Default, Exit

SetWinDelay, -1
OnExit, Exit
SetTimer, Cycle
Cycle:
If WinActive("A") != xWinActive
	xWinActive := WinT(transparency)
Return

WinT(tr=100) {
	static v, x
	WinGet, l, List
	If !v or tr = "Off" {
		Loop, %l%
			If WinActive("A") != l%A_Index%
				WinSet, Transparent, %tr%, % "ahk_id" . l%A_index%
	} Else {
		WinSet, Transparent, %tr%, % "ahk_id" . x
		WinSet, Transparent, Off, % "ahk_id" . WinActive("A")
	} v := true
	x := WinActive("A")
	Return, x
}

About:
MsgBox, 64, About %title%, %title% by Titan`nVisit file.autohotkey.net/Titan/WinTrans for more info.
Return

Exit:
SetBatchLines, -1
WinT("Off")
ExitApp