AutoHotkey Community

Code: Select all

WM_MOUSEMOVE := 0x200
ControlGetPos, xTray,, wTray,, ToolbarWindow321, ahk_class Shell_TrayWnd
endX := xTray + wTray
x := 5
y := 12
Loop
{
	if (x > endX)
		break
	point1 := (y << 16) + x	
	point2 := (x << 16) + y		      ; If the notification area has two rows
	point3 := (x << 16) + 5*y/2	      ; If the notification area has three rows
	PostMessage, %WM_MOUSEMOVE%, 0, %point1%, ToolbarWindow321, ahk_class Shell_TrayWnd
	PostMessage, %WM_MOUSEMOVE%, 0, %point2%, ToolbarWindow321, ahk_class Shell_TrayWnd
	PostMessage, %WM_MOUSEMOVE%, 0, %point3%, ToolbarWindow321, ahk_class Shell_TrayWnd
		x += 18
}

Code: Select all

Process, Close, LErt.exe

Sleep 10000

WM_MOUSEMOVE := 0x200
ControlGetPos, xTray,, wTray,, ToolbarWindow321, ahk_class Shell_TrayWnd
endX := xTray + wTray
x := 5
y := 12
Loop
{
	if (x > endX)
		break
	point1 := (y << 16) + x	
	point2 := (x << 16) + y		      ; If the notification area has two rows
	point3 := (x << 16) + 5*y/2	      ; If the notification area has three rows
	PostMessage, %WM_MOUSEMOVE%, 0, %point1%, ToolbarWindow321, ahk_class Shell_TrayWnd
	PostMessage, %WM_MOUSEMOVE%, 0, %point2%, ToolbarWindow321, ahk_class Shell_TrayWnd
	PostMessage, %WM_MOUSEMOVE%, 0, %point3%, ToolbarWindow321, ahk_class Shell_TrayWnd
		x += 18
}
 

Code: Select all

Tray_Refresh()
{
	WM_MOUSEMOVE := 0x200
	HiddenWindows := A_DetectHiddenWindows
	DetectHiddenWindows, On
	TrayTitle := "AHK_class Shell_TrayWnd"
	ControlNN := "ToolbarWindow322"
	IcSz := 24
	Loop, 2
	{
		ControlGetPos, xTray,yTray,wdTray,htTray, %ControlNN%, %TrayTitle%
		y := htTray - 10
		While (y > 0)
		{
			x := wdTray - IcSz/2
			While (x > 0)
			{
				point := (y << 16) + x
				PostMessage, %WM_MOUSEMOVE%, 0, %point%, %ControlNN%, %TrayTitle%
				x -= IcSz/2
			}
			y -= IcSz/2
		}
		TrayTitle := "AHK_class NotifyIconOverflowWindow"
		ControlNN := "ToolbarWindow321"
		IcSz := 32
	}
	DetectHiddenWindows, %HiddenWindows%
	Return
}

Code: Select all

Tray_Refresh()

Tray_Refresh() {
/*		Remove any dead icon from the tray menu
 *		Should work both for W7 & W10
 */
	WM_MOUSEMOVE := 0x200
	detectHiddenWin := A_DetectHiddenWindows
	DetectHiddenWindows, On

	allTitles := ["ahk_class Shell_TrayWnd"
			, "ahk_class NotifyIconOverflowWindow"]
	allControls := ["ToolbarWindow321"
				,"ToolbarWindow322"
				,"ToolbarWindow323"
				,"ToolbarWindow324"]
	allIconSizes := [24,32]

	for id, title in allTitles {
		for id, controlName in allControls
		{
			for id, iconSize in allIconSizes
			{
				ControlGetPos, xTray,yTray,wdTray,htTray,% controlName,% title
				y := htTray - 10
				While (y > 0)
				{
					x := wdTray - iconSize/2
					While (x > 0)
					{
						point := (y << 16) + x
						PostMessage,% WM_MOUSEMOVE, 0,% point,% controlName,% title
						x -= iconSize/2
					}
					y -= iconSize/2
				}
			}
		}
	}

	DetectHiddenWindows, %detectHiddenWin%
}

Code: Select all

#SingleInstance, Off
#Persistent

Loop, %0% { ; Command-Line Parameters
	param := %A_Index%
	if (param="/Secondary")
		isSecondary := true
}

if !(isSecondary) {
	AHK_PIDS := {}
	Progress, , ,Running multiple process of the script,Tray_Refresh
	Loop 5 { ; Running instances
		Progress,% (100/5) * A_Index
		
		Run,% A_ScriptFullPath " /Secondary", , ,scriptPID
		AHK_PIDS.Push(scriptPID)
		Sleep 10
	}
	Progress, Off
	for id, pid in AHK_PIDS { ; Closing instances
		Process, Close,% pid
	}
	Sleep 100
	MsgBox, 4096,Tray_Refresh,% "Close this box to remove all dead icons from the tray."
	Tray_Refresh()
	ExitApp
}
Return

Tray_Refresh() {
/*		Remove any dead icon from the tray menu
 *		Should work both for W7 & W10
 */
	WM_MOUSEMOVE := 0x200
	detectHiddenWin := A_DetectHiddenWindows
	DetectHiddenWindows, On

	allTitles := ["ahk_class Shell_TrayWnd"
			, "ahk_class NotifyIconOverflowWindow"]
	allControls := ["ToolbarWindow321"
				,"ToolbarWindow322"
				,"ToolbarWindow323"
				,"ToolbarWindow324"]
	allIconSizes := [24,32]

	for id, title in allTitles {
		for id, controlName in allControls
		{
			for id, iconSize in allIconSizes
			{
				ControlGetPos, xTray,yTray,wdTray,htTray,% controlName,% title
				y := htTray - 10
				While (y > 0)
				{
					x := wdTray - iconSize/2
					While (x > 0)
					{
						point := (y << 16) + x
						PostMessage,% WM_MOUSEMOVE, 0,% point,% controlName,% title
						x -= iconSize/2
					}
					y -= iconSize/2
				}
			}
		}
	}

	DetectHiddenWindows, %detectHiddenWin%
}

Code: Select all

	allControls := ["ToolbarWindow321"
				,"ToolbarWindow322"
				,"ToolbarWindow323"
				,"ToolbarWindow324"]

Code: Select all

	allControls := ["ToolbarWindow321"
				,"ToolbarWindow322"
				,"ToolbarWindow323"
				,"ToolbarWindow324"
				,"ToolbarWindow325"
				,"ToolbarWindow326"				
				]