VarSetCapacity(FLASHWINFO, size := A_PtrSize*2 + 4*4, 0)

VarSetCapacity(FLASHWINFO, size := A_PtrSize*3 + 4*2, 0)

#SingleInstance Force
#Persistent
#NoEnv

text := ""
WinGet, id, list,,, Program Manager
Loop % id
{
	this_id := id%A_Index%
	WinGetClass, this_class, ahk_id %this_id%
	WinGet, pid, PID, ahk_id %this_id%
	text .= this_class "`n" pid "`n" this_id "`n`n"
	FlashTaskBarButton(this_id)
}
msgbox % text
Return

FlashTaskBarButton(hGui, count := 0)  {
   static FLASHW_TRAY := 0x2, FLASHW_TIMERNOFG := 0xC
   VarSetCapacity(FLASHWINFO, size := A_PtrSize*2 + 4*4, 0)
   NumPut(count, NumPut(FLASHW_TRAY|(count ? 0 : FLASHW_TIMERNOFG), NumPut(hGui, NumPut(size, FLASHWINFO)), "UInt"))
   DllCall("FlashWindowEx", Ptr, &FLASHWINFO)
}