AutoHotkey Community

TaskButtons(sExeName = "")
{
   WinGet,   pidTaskbar, PID, ahk_class Shell_TrayWnd
   hProc:=   DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar)
   pProc:=   DllCall("VirtualAllocEx", "Uint", hProc, "Uint", 0, "Uint", 32, "Uint", 0x1000, "Uint", 0x4)
   idxTB:=   GetTaskSwBar()
      SendMessage, 0x418, 0, 0, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd   ; TB_BUTTONCOUNT
       
        i := 1
   Loop,   %ErrorLevel%
   {
      SendMessage, 0x417, A_Index-1, pProc, ToolbarWindow32%idxTB%, ahk_class Shell_TrayWnd   ; TB_GETBUTTON
      VarSetCapacity(btn,32,0)
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", pProc, "Uint", &btn, "Uint", 32, "Uint", 0)
         iBitmap   := NumGet(btn, 0)
         idn   := NumGet(btn, 4)
         Statyle := NumGet(btn, 8)
      If   dwData   := NumGet(btn,12)
         iString   := NumGet(btn,16)
      Else   dwData   := NumGet(btn,16,"int64"), iString:=NumGet(btn,24,"int64")
      DllCall("ReadProcessMemory", "Uint", hProc, "Uint", dwData, "int64P", hWnd:=0, "Uint", NumGet(btn,12) ? 4:8, "Uint", 0)
      If Not   hWnd
         Continue
       
        buttons%i% := hWnd
        i++
   }
   DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pProc, "Uint", 0, "Uint", 0x8000)
   DllCall("CloseHandle", "Uint", hProc)
   ; Return   sTaskButtons
    Return   buttons
}

GetTaskSwBar()
{
   ControlGet, hParent, hWnd,, MSTaskSwWClass1 , ahk_class Shell_TrayWnd
   ControlGet, hChild , hWnd,, ToolbarWindow321, ahk_id %hParent%
   Loop
   {
      ControlGet, hWnd, hWnd,, ToolbarWindow32%A_Index%, ahk_class Shell_TrayWnd
      If  Not   hWnd
         Break
      Else If   hWnd = %hChild%
      {
         idxTB := A_Index
         Break
      }
   }
   Return   idxTB
}

#1::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons1%
        WinMinimize, ahk_id %buttons1%
    else
        WinActivate, ahk_id %buttons1%
return

#2::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons2%
        WinMinimize, ahk_id %buttons2%
    else
        WinActivate, ahk_id %buttons2%
return

#3::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons3%
        WinMinimize, ahk_id %buttons3%
    else
        WinActivate, ahk_id %buttons3%
return

#4::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons4%
        WinMinimize, ahk_id %buttons4%
    else
        WinActivate, ahk_id %buttons4%
return

#5::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons5%
        WinMinimize, ahk_id %buttons5%
    else
        WinActivate, ahk_id %buttons5%
return

#6::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons6%
        WinMinimize, ahk_id %buttons6%
    else
        WinActivate, ahk_id %buttons6%
return

#7::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons7%
        WinMinimize, ahk_id %buttons7%
    else
        WinActivate, ahk_id %buttons7%
return

#8::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons8%
        WinMinimize, ahk_id %buttons8%
    else
        WinActivate, ahk_id %buttons8%
return

#9::
    buttons := TaskButtons()
    IfWinActive, ahk_id %buttons9%
        WinMinimize, ahk_id %buttons9%
    else
        WinActivate, ahk_id %buttons9%
return

TaskButtons(sExeName = "")
{
; ...
}

GetTaskSwBar()
{
; ...
}

#1::
#2::
#3::
#4::
#5::
#6::
#7::
#8::
#9::
  Buttons := TaskButtons() , Number := SubStr(A_ThisHotkey,2)
  IfWinActive, % "ahk_id " Buttons%Number%
    WinMinimize, % "ahk_id " Buttons%Number%
  Else
    WinActivate, % "ahk_id " Buttons%Number%
Return