AHK: переключение окон скроллом над таскбаром, закрытие через мидлклик

CoordMode, Mouse
VarSetCapacity(IID, 16)
NumPut(0x11CF3C3D618736E0, IID, 0, "Int64")
NumPut(0x719B3800AA000C81, IID, 8, "Int64")
DllCall("kernel32\LoadLibrary","Str","Oleacc")
ControlGet, hWnd, Hwnd,, MSTaskListWClass1, ahk_class Shell_TrayWnd
ControlGet, hWnd2, Hwnd,,, ahk_class Button
TaskList:=COM_AccessibleObjectFromWindow(hWnd)
#If MouseIsOver()

MButton::
   If % WinID=hWnd2
      PostMessage, 0x10,,,, ahk_class Progman ; WM_CLOSE
   Else
      WinClose, % "ahk_id"GetTaskInfo()
   Return
*WheelUp::
*WheelDown::
   If % WinID=hWnd2
   {
      Send, % "{"SubStr(A_ThisHotkey, 2)"}"
      Return
   }
   Hotkey, % A_ThisHotkey, OffKeys, On
   ControlSend, % WinControl
              , % A_ThisHotkey="*WheelUp"?"{Up}":"{Down}"
              , % "ahk_class"WinClass
   Sleep, 150 ; чувствительность прокрутки
   Hotkey, % A_ThisHotkey, % A_ThisHotkey, On
   SetTimer, UpKeys, -500 ; время подтверждения выбора
   Return

UpKeys:
   ControlSend, % WinControl, {Click}{`n}, % "ahk_class"WinClass
OffKeys:
   Return

MouseIsOver()
{
   global
   MouseGetPos, XPosAbs, YPosAbs, WinID, WinControl
   WinGetClass, WinClass, % "ahk_id"WinID
   If % WinClass="Shell_TrayWnd" And WinControl="MSTaskListWClass1"
   Or WinID=hWnd2
      Return, True
   Else
      Return, False
}

GetTaskInfo()
{
   global
   TWinID:=
   Loop, % TaskList.accChildCount
   {
      TWinTitle:=TaskList.accName(A_Index)
      TaskList.accLocation(ComObjParameter(0x4003, &L:=0)
                         , ComObjParameter(0x4003, &T:=0)
                         , ComObjParameter(0x4003, &W:=0)
                         , ComObjParameter(0x4003, &H:=0)
                         , A_Index)
      TWinID:=
      WinGet, TWinID, ID, % TWinTitle
      WinGetPos, TWinX, TWinY, TWinW, TWinH, % "ahk_id"TWinID
      TIconLEFTAbs:=NumGet(L), TIconTOPAbs:=NumGet(T)
      TIconWidth:=NumGet(W), TIconHeight:=NumGet(H)
      If (RContains(TIconLEFTAbs, TIconTOPAbs
                  , TIconWidth, TIconHeight
                  , XPosAbs, YPosAbs))
         Break
      Else
         TWinID:=
   }
   Return, TWinID
}

COM_AccessibleObjectFromWindow(Hwnd)
{
   global
   DllCall("Oleacc\AccessibleObjectFromWindow", "Ptr", Hwnd
                                              , "UInt", -4
                                              , "Ptr", &IID
                                              , "Ptr*", ppvObject)
   Return, ComObjEnwrap(ppvObject)
}

RContains(X, Y, W, H, CX, CY)
{
   Return, ((((X<=CX) And (CX<(X+W))) And (Y<=CY)) AND (CY<(Y+H)))
}

WinGet, id, list,,, Program Manager
Loop, %id%
{
    this_id := id%A_Index%
    WinActivate, ahk_id %this_id%
    WinGetClass, this_class, ahk_id %this_id%
    WinGetTitle, this_title, ahk_id %this_id%
    MsgBox, 4, , Visiting All Windows`n%a_index% of %id%`nahk_id %this_id%`nahk_class %this_class%`n%this_title%`n`nContinue?
    IfMsgBox, NO, break
}

#NoTrayIcon
VarSetCapacity(IID, 16)
NumPut(0x11CF3C3D618736E0, IID, 0, "Int64")
NumPut(0x719B3800AA000C81, IID, 8, "Int64")
DllCall("kernel32\LoadLibrary", "Str", "Oleacc")
ControlGet, hWnd, Hwnd,, MSTaskListWClass1, ahk_class Shell_TrayWnd
taskList:=COM_AccessibleObjectFromWindow(hWnd)
Hotkey, Space, RedrawList
Gui, +AlwaysOnTop +ToolWindow
Gui, Add, ListView, r14 w450, Index|Title
RedrawList:
LV_Delete()
Loop, % taskList.accChildCount
  LV_Add("", A_Index, taskList.accName(A_Index))
Gui, Show,, % (!taskList.accChildCount ? "Nothing was found!"
: ("Found: "taskList.accChildCount " window"
. (taskList.accChildCount>1 ? "s":"  ")))"                     "
. "                        Space: refresh, F5: reload, Esc: exit"
Return

COM_AccessibleObjectFromWindow(Hwnd)
{
   global
   DllCall("Oleacc\AccessibleObjectFromWindow", "Ptr", Hwnd
                                              , "UInt", -4
                                              , "Ptr", &IID
                                              , "Ptr*", ppvObject)
   Return, ComObjEnwrap(ppvObject)
}

F5::Reload
Esc::
GuiClose:
   ExitApp

;DetectHiddenWindows, On
#NoTrayIcon
Gui, +AlwaysOnTop -MinimizeBox +ToolWindow HwndGUIhWnd
Gui, Add, ListView, w450 h259, Index|Handle        |Title
ArrayID:=[]
WinGet, ListID, List,,, Running Applications
Loop, % ListID
{
   IDs:=ListID%A_Index%
   WinGetTitle, WinTitle, % "ahk_id"IDs
   If !WinTitle
   {
      Counter++
      Continue
   }
   ArrayID.Insert(IDs)
}
Gui, Show,, % (!ListID ? "Nothing was found!"
: ("Found all: "ListID " window"(ListID>1 ? "s":"  ")))
. ", with title: "ListID-Counter "                "
. "                           F5: reload, Esc: exit"
For Key, Value In ArrayID
{
   WinGetTitle, WinTitle, % "ahk_id"Value
   LV_Add("", Key, Value, WinTitle)
}
Return

F5::Reload
Esc::
GuiClose:
   ExitApp

#SingleInstance, Force
CoordMode, Mouse
VarSetCapacity(IID, 16)
NumPut(0x11CF3C3D618736E0, IID, 0, "Int64")
NumPut(0x719B3800AA000C81, IID, 8, "Int64")
DllCall("kernel32\LoadLibrary","Str","oleacc")
ControlGet, hWnd, Hwnd,, MSTaskListWClass1, ahk_class Shell_TrayWnd
ControlGet, hWnd2, Hwnd,,, ahk_class Button
ppTaskList:=COM_AccessibleObjectFromWindow(hWnd)
TaskList:=ComObjEnwrap(ppTaskList)
TCount:=GetSelection()
#If MouseIsOver()

MButton::
   If % WinID=hWnd2
      PostMessage, 0x10,,,, ahk_class Progman
   Else
      WinClose, % "ahk_id"GetTaskInfo()
   Return
WheelUp::SelectStuff(1)
WheelDown::SelectStuff(0)

GetSelection()
{
   global
   Loop, % TaskList.accChildCount
   {
      TaskList.accLocation(ComObjParameter(0x4003, &L:=0)
                         , ComObjParameter(0x4003, &T:=0)
                         , ComObjParameter(0x4003, &W:=0)
                         , ComObjParameter(0x4003, &H:=0)
                         , A_Index)
      If L=0 And T=0 And W=0 And H=0
         Continue
      If TaskList.accState(A_Index)=0x40000000
         Continue
      If TaskList.accState(A_Index)&8
         Return, A_Index
   }
}

MouseIsOver()
{
   global
   MouseGetPos, XPos, YPos, WinID, WinControl
   WinGetClass, WinClass, % "ahk_id"WinID
   Return, % WinClass="Shell_TrayWnd"
         And WinControl="MSTaskListWClass1"
          Or WinID=hWnd2 ? True:False
}

GetTaskInfo()
{
   global
   TWinID:=
   Loop, % TaskList.accChildCount
   {
      TWinTitle:=TaskList.accName(A_Index)
      TaskList.accLocation(ComObjParameter(0x4003, &L:=0)
                         , ComObjParameter(0x4003, &T:=0)
                         , ComObjParameter(0x4003, &W:=0)
                         , ComObjParameter(0x4003, &H:=0)
                         , A_Index)
      If L=0 And T=0 And W=0 And H=0
         Continue
      TWinID:=
      WinGet, TWinID, ID, % TWinTitle
      WinGetPos, TWinX, TWinY, TWinW, TWinH, % "ahk_id"TWinID
      TIconLEFTAbs:=NumGet(L), TIconTOPAbs:=NumGet(T)
      TIconWidth:=NumGet(W), TIconHeight:=NumGet(H)
      If RContains(TIconLEFTAbs, TIconTOPAbs
                  , TIconWidth, TIconHeight
                  , XPos, YPos)
         Break
      Else
         TWinID:=
   }
   Return, TWinID
}

SelectStuff(Dir)
{
   global
   If (TCount=2 And Dir=1)
   Or (TCount=TaskList.accChildCount And Dir=0)
   {
      TrayTip,, % "достигнут "
   . (Dir=1 ? "верхний":"нижний")
           . " край списка икон"
      Return
   }
   Sleep, 300
   If Dir=0
      TCount++
   Else
      TCount--
   If TCount>TaskList.accChildCount
      TCount:=TaskList.accChildCount
   If TCount<2
      TCount:=2
   State:=TaskList.accState(TCount)
   TaskList.accLocation(ComObjParameter(0x4003, &L:=0)
                      , ComObjParameter(0x4003, &T:=0)
                      , ComObjParameter(0x4003, &W:=0)
                      , ComObjParameter(0x4003, &H:=0)
                      , TCount)
   If !L And !T And !W And !H
   {
      If Dir=0
         TCount++
      Else
         TCount--
      If TCount>TaskList.accChildCount
         TCount:=TaskList.accChildCount
      Else If TCount<2
         TCount:=2
   }
   acc_Select(ppTaskList, TCount, 3)
   TaskList.accDoDefaultAction(TCount)
}

COM_AccessibleObjectFromWindow(Hwnd)
{
   global
   DllCall("oleacc\AccessibleObjectFromWindow", "Ptr", Hwnd
                                              , "UInt", -4
                                              , "Ptr", &IID
                                              , "Ptr*", ppValueObject)
   Return, ppValueObject
}

acc_Select(pacc, idChild=0, nFlags=3)
{
   Return, DllCall(NumGet(NumGet(1*pacc)+84), "UInt", pacc
                                            , "Int", nFlags
                                            , "Int64", 3
                                            , "Int64", idChild)
}

RContains(X, Y, W, H, CX, CY)
{
   Return, ((((X<=CX) And (CX<(X+W))) And (Y<=CY)) AND (CY<(Y+H)))
}

IsClassUnderMouse(class) {
   MouseGetPos, , , id
   WinGetClass, this_class, ahk_id %id%
   return this_class=class
}

#IF IsClassUnderMouse("Shell_TrayWnd")

WheelUp::
   WinGetPos,,, W, H, ahk_class Shell_TrayWnd
if W>H
{
ControlSend MSTaskListWClass1, {Up}, ahk_class Shell_TrayWnd
SetTimer, Check, 50
return
}
else
{
ControlSend MSTaskListWClass1, {Right}, ahk_class Shell_TrayWnd
SetTimer, Check, 50
return
}

WheelDown::
   WinGetPos,,, W, H, ahk_class Shell_TrayWnd
if W>H
{
ControlSend MSTaskListWClass1, {Down}, ahk_class Shell_TrayWnd
SetTimer, Check, 50
return
}
else
{
ControlSend MSTaskListWClass1, {Left}, ahk_class Shell_TrayWnd
SetTimer, Check, 50
return
}

#IF

Check:
If !IsClassUnderMouse("Shell_TrayWnd") {
ControlSend MSTaskListWClass1, {LButton}{enter}, ahk_class Shell_TrayWnd
SetTimer, Check, Off
} return