AutoHotkey Community

ret := DllCall("ReadProcessMemory", "Uint", hProc
    , "Uint", pdata, "UintP", hwnd, "Uint", 4, "Uint", 0)

WinGetClass, cl, ahk_id %win%
If ( cl = "Shell_TrayWnd" )
{
    DllCall("ReadProcessMemory", "Uint", hProc
        , "Uint", pdata, "UintP", hwnd, "Uint", 4, "Uint", 0)
}
Else
{
    hWnd := pdata
}

if (cl != "Shell_TrayWnd")

if cl not in Shell_TrayWnd,UltraMonDeskTaskBar

if (cl != "MSTaskSwWClass")

if cl not in MSTaskSwWClass,TaskBand

WinGet, pidTaskbar, PID, ahk_class Shell_TrayWnd

WinGet, pidTaskbar, PID, ahk_id %ctl%

#NoEnv
#Persistent
#SingleInstance, Force
SendMode, Input
SetWorkingDir %A_ScriptDir%
Return

MButton::
{
    If ( ( GetTaskbarHandle(hWindow) != 0 ) And ( hWindow != 0 ) )
    {
        WinClose, ahk_id %hWindow%
    }
    Else
    {
        Click Middle Down
        KeyWait, MButton
        Click Middle Up
    }
    Return
}

GetTaskbarHandle( ByRef hWindow )
{
    hWindow = 0
    Return = 0
    CoordMode, Mouse, Screen
    MouseGetPos, MouseX, MouseY, idWindow, idClass, 2
    WinGetClass, cWindow, ahk_id %idWindow%
    If cWindow Not In Shell_TrayWnd,UltraMonDeskTaskBar
        Return, Return
    WinGetClass, cClass, ahk_id %idClass%
    If ( cClass != "ToolbarWindow32" )
        Return, Return
    hParent := DllCall( "GetParent", "UInt", idClass )
    WinGetClass, cParent, ahk_id %hParent%
    If cParent Not In MSTaskSwWClass,TaskBand
        Return, Return

    WinGet, pidTaskbar, PID, ahk_id %idClass%

    hProcess := DllCall( "OpenProcess", "UInt", (PROCESS_VM_OPERATION:=0x08)+(PROCESS_VM_READ:=0x10)+(PROCESS_VM_WRITE:=0x20), "UInt", 0, "UInt", pidTaskbar)
    pButton := DllCall( "VirtualAllocEx", "UInt", hProcess, "UInt", 0, "UInt", 20, "UInt", (MEM_COMMIT:=0x1000), "UInt", (PAGE_READWRITE:=0x4) )

    VarSetCapacity( Point, 8, 0 )
    NumPut( MouseX, Point, 0, "UInt" )
    NumPut( MouseY, Point, 4, "UInt" )

    DllCall( "ScreenToClient", "UInt", idClass, "UInt", &Point )

    DllCall( "WriteProcessMemory", "UInt", hProcess, "UInt", pButton+0, "UInt", &Point, "UInt", 8, "UInt", 0 )

    SendMessage, (TB_HITTEST:=0x445), 0, pButton,, ahk_id %idClass%
    nButton := ErrorLevel

    If nButton > 0x7FFFFFFF
        nButton := -(~nButton)-1

    If ( nButton > -1 )
    {
        SendMessage, (TB_GETBUTTON:=0x417), nButton, pButton,, ahk_id %idClass%

        VarSetCapacity(Button, 20)
        DllCall( "ReadProcessMemory", "UInt", hProcess, "UInt", pButton, "UInt", &Button, "UInt", 20, "UInt", 0 )

        If ( cWindow = "Shell_TrayWnd" )
        {
            DllCall( "ReadProcessMemory", "UInt", hProcess, "UInt", NumGet( Button, 12, "UInt" ), "UInt*", hWindow, "UInt", 4, "UInt", 0 )
        }
        Else
        {
            hWindow := NumGet( Button, 12, "UInt" )
        }
        Return := nButton+1
    }

    DllCall( "VirtualFreeEx", "UInt", hProcess, "UInt", pButton, "UInt", 0, "UInt", (MEM_RELEASE:=0x8000) )
    DllCall( "CloseHandle", "UInt", hProcess )

    Return, Return
}

#NoEnv
#Persistent
#SingleInstance, Force
SendMode, Input
SetWorkingDir %A_ScriptDir%
Return

MButton::
{
    Return := GetTaskbarHandle(hWindow)
    MsgBox, %Return%
    Return
}

GetTaskbarHandle( ByRef hWindow )
{
    hWindow = 0
    Return = 0
    CoordMode, Mouse, Screen
    MouseGetPos, MouseX, MouseY, idWindow, idClass, 2
    WinGetClass, cWindow, ahk_id %idWindow%
    If cWindow Not In Shell_TrayWnd,UltraMonDeskTaskBar
        Return, "hWindow = |" . hWindow . "| cWindow = |" . cWindow . "|"
    WinGetClass, cClass, ahk_id %idClass%
    If ( cClass != "ToolbarWindow32" )
        Return, "hWindow = |" . hWindow . "| cWindow = |" . cWindow . "| cClass = |" . cClass . "|"
    hParent := DllCall( "GetParent", "UInt", idClass )
    WinGetClass, cParent, ahk_id %hParent%
    If cParent Not In MSTaskSwWClass,TaskBand
        Return, "hWindow = |" . hWindow . "| cWindow = |" . cWindow . "| cClass = |" . cClass . "| cParent = |" . cParent . "|"

    WinGet, pidTaskbar, PID, ahk_id %idClass%

    hProcess := DllCall( "OpenProcess", "UInt", (PROCESS_VM_OPERATION:=0x08)+(PROCESS_VM_READ:=0x10)+(PROCESS_VM_WRITE:=0x20), "UInt", 0, "UInt", pidTaskbar)
    pButton := DllCall( "VirtualAllocEx", "UInt", hProcess, "UInt", 0, "UInt", 20, "UInt", (MEM_COMMIT:=0x1000), "UInt", (PAGE_READWRITE:=0x4) )

    VarSetCapacity( Point, 8, 0 )
    NumPut( MouseX, Point, 0, "UInt" )
    NumPut( MouseY, Point, 4, "UInt" )

    DllCall( "ScreenToClient", "UInt", idClass, "UInt", &Point )

    DllCall( "WriteProcessMemory", "UInt", hProcess, "UInt", pButton+0, "UInt", &Point, "UInt", 8, "UInt", 0 )

    SendMessage, (TB_HITTEST:=0x445), 0, pButton,, ahk_id %idClass%
    nButton := ErrorLevel

    If nButton > 0x7FFFFFFF
        nButton := -(~nButton)-1

    If ( nButton > -1 )
    {
        SendMessage, (TB_GETBUTTON:=0x417), nButton, pButton,, ahk_id %idClass%

        VarSetCapacity(Button, 20)
        DllCall( "ReadProcessMemory", "UInt", hProcess, "UInt", pButton, "UInt", &Button, "UInt", 20, "UInt", 0 )

        If ( cWindow = "Shell_TrayWnd" )
        {
            DllCall( "ReadProcessMemory", "UInt", hProcess, "UInt", NumGet( Button, 12, "UInt" ), "UInt*", hWindow, "UInt", 4, "UInt", 0 )
        }
        Else
        {
            hWindow := NumGet( Button, 12, "UInt" )
        }
        Return := nButton+1
    }

    DllCall( "VirtualFreeEx", "UInt", hProcess, "UInt", pButton, "UInt", 0, "UInt", (MEM_RELEASE:=0x8000) )
    DllCall( "CloseHandle", "UInt", hProcess )

    Return, "hWindow = |" . hWindow . "| cWindow = |" . cWindow . "| cClass = |" . cClass . "| cParent = |" . cParent . "| nButton = |" . nButton . "|"
}

mButton:: ; Close windows from taskbar except Google Calendar
          if GetMouseTaskButton(hwnd) && hwnd
               {
               WinGetTitle,  wintitle, ahk_id %hwnd%
               IfInString, wintitle, Google Calendar - Mozilla Firefox
               WinHide,  ahk_id %hwnd%
               else
              WinClose, ahk_id %hwnd%
              }
          else {
              Click M Down
              KeyWait, MButton
              Click M Up
          }
      return
            
         ; Gets the index+1 of the taskbar button which the mouse is hovering over.
         ; Returns an empty string if the mouse is not over the taskbar's task toolbar.
         ;
         ; Some code and inspiration from Sean's TaskButton.ahk
         GetMouseTaskButton(ByRef hwnd)
         {
             CoordMode, Mouse, Screen
             MouseGetPos, x, y, win, ctl, 2
             ; Check if hovering over taskbar.
             WinGetClass, cl, ahk_id %win%
             if (cl != "Shell_TrayWnd")
                 return
             ; Check if hovering over a Toolbar.
             WinGetClass, cl, ahk_id %ctl%
             if (cl != "ToolbarWindow32")
                 return
             ; Check if hovering over task-switching buttons (specific toolbar).
             hParent := DllCall("GetParent", "Uint", ctl)
             WinGetClass, cl, ahk_id %hParent%
             if (cl != "MSTaskSwWClass")
                 return
         
            
             WinGet, pidTaskbar, PID, ahk_class Shell_TrayWnd
         
             hProc := DllCall("OpenProcess", "Uint", 0x38, "int", 0, "Uint", pidTaskbar)
             pRB := DllCall("VirtualAllocEx", "Uint", hProc
                 , "Uint", 0, "Uint", 20, "Uint", 0x1000, "Uint", 0x4)
         
             VarSetCapacity(pt, 8, 0)
             NumPut(x, pt, 0, "int")
             NumPut(y, pt, 4, "int")
            
             ; Convert screen coords to toolbar-client-area coords.
             DllCall("ScreenToClient", "uint", ctl, "uint", &pt)
            
             ; Write POINT into explorer.exe.
             DllCall("WriteProcessMemory", "uint", hProc, "uint", pRB+0, "uint", &pt, "uint", 8, "uint", 0)
         
         ;     SendMessage, 0x447,,,, ahk_id %ctl%  ; TB_GETHOTITEM
             SendMessage, 0x445, 0, pRB,, ahk_id %ctl%  ; TB_HITTEST
             btn_index := ErrorLevel
             ; Convert btn_index to a signed int, since result may be -1 if no 'hot' item.
             if btn_index > 0x7FFFFFFF
                 btn_index := -(~btn_index) - 1
            
            
             if (btn_index > -1)
             {
                 ; Get button info.
                 SendMessage, 0x417, btn_index, pRB,, ahk_id %ctl%   ; TB_GETBUTTON
            
                 VarSetCapacity(btn, 20)
                 DllCall("ReadProcessMemory", "Uint", hProc
                     , "Uint", pRB, "Uint", &btn, "Uint", 20, "Uint", 0)
            
                 state := NumGet(btn, 8, "UChar")  ; fsState
                 pdata := NumGet(btn, 12, "UInt")  ; dwData
                
                 ret := DllCall("ReadProcessMemory", "Uint", hProc
                     , "Uint", pdata, "UintP", hwnd, "Uint", 4, "Uint", 0)
             } else
                 hwnd = 0
         
                
             DllCall("VirtualFreeEx", "Uint", hProc, "Uint", pRB, "Uint", 0, "Uint", 0x8000)
             DllCall("CloseHandle", "Uint", hProc)
         
         
             ; Negative values indicate seperator items. (abs(btn_index) is the index)
             return btn_index > -1 ? btn_index+1 : 0
         }