Functions to interact with the taskbar

[ioa747]

 

the script uses CUIAutomation2.au3 UDF from  https://www.autoitscript.com/forum/topic/201683-ui-automation-udfs/

Functions to interact with the taskbar.

expandcollapse popup

; https://www.autoitscript.com/forum/topic/212266-functions-to-interact-with-the-taskbar/
;----------------------------------------------------------------------------------------
; Title...........: _TaskBar.au3
; Description.....: Function to interact with the taskbar.
; AutoIt Version..: 3.3.16.1   Author: ioa747  Script Version: 2.0
; Note............: Testet in Win10 22H2
;----------------------------------------------------------------------------------------
#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#NoTrayIcon

#include ".Includes\CUIAutomation2.au3" ; * <- "https://www.autoitscript.com/forum/topic/201683-ui-automation-udfs/"
#include <GUIConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>

Example()

;--------------------------------------------------------------------------------------------------------------------------------
Func Example()
    Local $aTBPos, $sTxt, $a

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = ""     ;Get information from NotifyArea
    $sTxt &= "let's take the Everything program for example" & @CRLF
    $sTxt &= 'first we find the tray icon in NotifyArea' & @CRLF
    $sTxt &= '(NotifyArea = $iAreaId 2 )' & @CRLF & @CRLF
    $sTxt &= ' _TaskBar(2, "something not exist")' & @CRLF & @CRLF
    $sTxt &= '$sSearchString = "something not exist"' & @CRLF
    $sTxt &= 'to show us all the results' & @CRLF & @CRLF
    $sTxt &= 'the console only shows results when it doesn''t match' & @CRLF

    _Msg($sTxt)
    _TaskBar(2, "something not exist")

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = ""     ; Double-click in NotifyArea
    $sTxt &= "now we know that the target icon " & @CRLF
    $sTxt &= "starts with the word 'Everything'" & @CRLF & @CRLF
    $sTxt &= "Now we can send Click, Right-click, or Double-click" & @CRLF & @CRLF
    $sTxt &= "send Double-click to tray icon" & @CRLF
    $sTxt &= "(Double-click = $iActionId 4 )" & @CRLF & @CRLF
    $sTxt &= ' _TaskBar(2, "Everything", 4)' & @CRLF

    _Msg($sTxt)
    $aTBPos = _TaskBar(2, "Everything", 4)
    $a = $aTBPos[0][1]
    ConsoleWrite($aTBPos[0][1] & ", Rect: " & $a[0] & ", " & $a[1] & ", " & $a[2] & ", " & $a[3] & @CRLF)



    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = ""     ; Right-click & send in RunningAppsArea
    $sTxt &= "now that the window has opened it created a new" & @CRLF
    $sTxt &= "icon down in the task bar to RunningApps area" & @CRLF & @CRLF
    $sTxt &= '(RunningAppsArea = $iAreaId 1 )' & @CRLF
    $sTxt &= "(Right-click = $iActionId 3 )" & @CRLF & @CRLF
    $sTxt &= '_TaskBar(1, "Everything", 3, "{UP}{ENTER}")' & @CRLF & @CRLF
    $sTxt &= '$sOption = "{UP}{ENTER}"' & @CRLF
    $sTxt &= 'Right-click and Send' & @CRLF

    _Msg($sTxt)
    _TaskBar(1, "Everything", 3, "{UP}{ENTER}")

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = ""     ; Click&Drag operation
    $sTxt &= "now we move 'Everything' icon from NotifyArea" & @CRLF
    $sTxt &= "to OverflowNotifyArea" & @CRLF & @CRLF
    $sTxt &= '(NotifyArea = $iAreaId 2 )' & @CRLF
    $sTxt &= "(Click&Drag = $iActionId 5 )" & @CRLF
    $sTxt &= '($sOption = "OverflowButton" )' & @CRLF & @CRLF
    $sTxt &= '_TaskBar(2, "Everything", 5, "OverflowButton")' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(2, "Everything", 5, "OverflowButton")

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = ""     ; Click&Drag operation
    $sTxt &= "now we move 'Everything' icon from OverflowNotifyArea" & @CRLF
    $sTxt &= "back to NotifyArea at old position" & @CRLF & @CRLF
    $sTxt &= '(OverflowNotifyArea = $iAreaId 3 )' & @CRLF
    $sTxt &= "(Click&Drag = $iActionId 5 )" & @CRLF
    $sTxt &= '($sOption = "X:" & $a[2] )' & @CRLF & @CRLF
    $sTxt &= '_TaskBar(3, "Everything", 5, "X:" & $a[2])' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(3, "Everything", 5, "X:" & $a[2])

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = "" ; Right-click & send in RunningAppsArea
    $sTxt &= 'Next step open Notepad' & @CRLF
    $sTxt &= 'Right-click on tray icon and Pin to taskbar' & @CRLF & @CRLF
    $sTxt &= 'Right-click and Send 2 UP && ENTER' & @CRLF
    $sTxt &= ' _TaskBar("Notepad -", 1, 3, "{UP 2}{ENTER}")' & @CRLF

    _Msg($sTxt)

    ShellExecute("notepad")
    WinWaitActive("[CLASS:Notepad]", "")

    _TaskBar(1, "Notepad -", 3, "{UP 2}{ENTER}")
    WinClose("[CLASS:Notepad]", "")

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = "" ; Click&Drag operation
    $sTxt &= "now we move 'Notepad' icon 3 positions to the Left" & @CRLF & @CRLF
    $sTxt &= '(RunningAppsArea = $iAreaId 1 )' & @CRLF
    $sTxt &= "(Click&Drag = $iActionId 5 )" & @CRLF
    $sTxt &= '($sOption = -3 )' & @CRLF & @CRLF
    $sTxt &= '_TaskBar(1, "Notepad", 5, -3)' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(1, "Notepad", 5, -3)

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = "" ; Click&Drag operation
    $sTxt &= "now we move 'Notepad' icon 3 positions to the Right" & @CRLF & @CRLF
    $sTxt &= '(RunningAppsArea = $iAreaId 1 )' & @CRLF
    $sTxt &= "(Click&Drag = $iActionId 5 )" & @CRLF
    $sTxt &= '($sOption = 3 )' & @CRLF & @CRLF
    $sTxt &= '_TaskBar(1, "Notepad", 5, 3)' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(1, "Notepad", 5, 3)

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = "" ; Click&Drag operation
    $sTxt &= "now we move 'Notepad' icon at positions 0" & @CRLF & @CRLF
    $sTxt &= '(RunningAppsArea = $iAreaId 1 )' & @CRLF
    $sTxt &= "(Click&Drag = $iActionId 5 )" & @CRLF
    $sTxt &= '($sOption = "index:0" )' & @CRLF & @CRLF
    $sTxt &= '_TaskBar(1, "Notepad", 5, "index:0")' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(1, "Notepad", 5, "index:0")

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = "" ; Click&Drag operation
    $sTxt &= "now we move 'Notepad' icon at last positions" & @CRLF
    $sTxt &= "by using $sOption = X:n" & @CRLF & @CRLF
    $sTxt &= '(RunningAppsArea = $iAreaId 1 )' & @CRLF
    $sTxt &= "(Click&Drag = $iActionId 5 )" & @CRLF
    $sTxt &= '($sOption = "X:" & @DesktopWidth )' & @CRLF & @CRLF
    $sTxt &= '_TaskBar(1, "Notepad", 5, "X:" & @DesktopWidth)' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(1, "Notepad", 5, "X:" & @DesktopWidth)
    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    $sTxt = "" ;Get information from RunningAppsArea
    $sTxt &= "at this step" & @CRLF
    $sTxt &= "we trap the Notepad pin with" & @CRLF
    $sTxt &= "($iActionId 1 = Get the button positions and label.)" & @CRLF & @CRLF
    $sTxt &= "move the mouse over the Notepad pin" & @CRLF

    _Msg($sTxt)
    $aTBPos = _TaskBar(1, "Notepad", 1)

    $a = $aTBPos[0][1]
    Local $iMsgBoxAnswer, $bLoop = True

    While $bLoop
        If IsMouseOverRect($a) Then
            $iMsgBoxAnswer = MsgBox(292, "Rect: " & $a[0] & ", " & $a[1] & ", " & $a[2] & ", " & $a[3], "do you want to get out of the loop?")
            Select
                Case $iMsgBoxAnswer = 6 ;Yes
                    $bLoop = False
            EndSelect
        EndIf
        Sleep(300)
    WEnd

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    $sTxt = "" ; Right-click & send in RunningAppsArea
    $sTxt &= 'Now UnPin Notepad pin' & @CRLF
    $sTxt &= 'Right-click and Send UP & ENTER' & @CRLF
    $sTxt &= 'UnPin from taskbar' & @CRLF & @CRLF
    $sTxt &= ' _TaskBar(1, "Notepad -", 3, "{UP}{ENTER}")' & @CRLF & @CRLF
    $sTxt &= 'here attention if there is notepad++ taskpin, it unpin this' & @CRLF
    $sTxt &= 'because it is more forward and starts with word notepad' & @CRLF

    _Msg($sTxt)
    _TaskBar(1, "Notepad", 3, "{UP}{ENTER}")


    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
    $sTxt = "" ; Right-click & send in OverflowNotifyArea
    $sTxt &= 'Now for (OverflowNotifyArea = $iAreaId 3 ) ' & @CRLF & @CRLF
    $sTxt &= ' Right-click and Send 5 UP on bluetooth' & @CRLF & @CRLF
    $sTxt &= ' _TaskBar(3, "bluetooth", 3, "{UP 5}")' & @CRLF & @CRLF

    _Msg($sTxt)
    _TaskBar(3, "bluetooth", 3, "{UP 5}")

    Sleep(5000)

    ; ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

    $sTxt = "" ;Get information from RunningAppsArea
    $sTxt &= "or you can call only with the $iAreaId parameter," & @CRLF
    $sTxt &= "1 - Get the button positions and labels" & @CRLF
    $sTxt &= "and take the whole table for any use" & @CRLF & @CRLF
    $sTxt &= '$aTBPos = _TaskBar(1)' & @CRLF & @CRLF

    _Msg($sTxt)
    $aTBPos = _TaskBar(1)

    _ArrayDisplay($aTBPos)

    _Msg("Exit")

EndFunc   ;==>Example
;--------------------------------------------------------------------------------------------------------------------------------
Func _Msg($sMsg)
    Local $hGui = GUICreate("Msg", 395, 237, @DesktopWidth * 0.1, @DesktopHeight * 0.5, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
    GUISetFont(11, 400, 0, "DejaVu Sans Condensed")
    GUICtrlCreateLabel($sMsg, 5, 10, 376, 181)
    Local $Button_OK = GUICtrlCreateButton("OK", 160, 200, 75, 25)
    GUISetState(@SW_SHOW)
    While 1
        Switch GUIGetMsg()
            Case $GUI_EVENT_CLOSE
                Exit
            Case $Button_OK
                ExitLoop
        EndSwitch
    WEnd
    GUIDelete($hGui)
EndFunc   ;==>_Msg

; #FUNCTION# --------------------------------------------------------------------------------------------------------------------
; Name...........: _TaskBar
; Description....: Function to interact with the taskbar.
; Syntax.........: _TaskBar ( $iAreaId = 1, $sSearchString = "@All", $iActionId = 1, $sOption = "", $sUserToolBarPar = "index:1" )
; Parameters.....: $iAreaId       - The ID of Area to interact with. Can be one of the following values:
;                                   1 - RunningAppsArea    - Running applications. (Default)
;                                   2 - NotifyArea         - Notification area.
;                                   3 - OverflowNotifyArea - Overflow Notification Area.
;                  $sSearchString - The string to search for in the button labels. Matches partial string from the start. (Default = "@All")
;                  $iActionId       - The action to perform. Can be one of the following values:
;                                   1 - Get the button positions and labels. (Default)
;                                   2 - Click on a button with the specified label.
;                                   3 - Right-click on a button with the specified label.
;                                   4 - Double-click on a button with the specified label.
;                                   5 - Click&Drag a button with the specified label to specify X axis place
;                  $sOption       - [optional] Additional parameter required by some commands. (Default = "")
;                                   if $iActionId = 2, $sOption = "SendKeys" -  Extra string to send after click.
;                                      "{UP 2}{ENTER}"  send 2 UP and ENTER to elect the specify menu
;                                   if $iActionId = 3, $sOption = "SendKeys" -  Extra string to send after click.
;                                      "o"  send o to select the open menu
;                                   if $iActionId = 5, $sOption = "NumberToMove" -  number of place to move, posive = Right, negative = Left
;                                      "3" move button, 3 positions to the Right
;                                      "-3" move button, 3 positions to the Left
;                                      "index:3" move button, to positions 3
;                                      "X:300" move button, to X coordinate
;                                      "OverflowButton" move button from NotifyArea, to OverflowNotifyArea and vice versa
; Return values..: Success    - An 2D Array containing the rect positions of the button that match the search string.
;                                   $a[i][0]=Label, $a[i][1]=$aRect Array | $aRect[0]=Left, $aRect[1]=Top, $aRect[2]=Right, $aRect[3]=Bottom.
;                             - if $sSearchString does not match, it returns 2D Array of all items.
;                  Failure    - return error message if there is an error.
; Author.........: ioa747
; Modified.......:
; Related .......: This function uses the CUIAutomation2.au3 "https://www.autoitscript.com/forum/topic/201683-ui-automation-udfs/"
; Link ..........:
;--------------------------------------------------------------------------------------------------------------------------------
Func _TaskBar($iAreaId = 1, $sSearchString = "@All", $iActionId = 1, $sOption = "")

    Local $hWndTray = WinGetHandle("[CLASS:Shell_TrayWnd]")  ; Taskbar
    Local $hOverflowButton = ControlGetHandle($hWndTray, "", "Button2")
    Local $hToolbar

    Switch $iAreaId
        Case 1 ;RunningAppsArea
            Local $hRebar = ControlGetHandle($hWndTray, "", "[CLASS:ReBarWindow32]")
            Local $hMSTaskSwWClass = ControlGetHandle($hRebar, "", "[CLASS:MSTaskSwWClass]")
            $hToolbar = ControlGetHandle($hMSTaskSwWClass, "", "[CLASS:MSTaskListWClass]")
        Case 2 ;NotifyArea
            Local $hTrayNotify = ControlGetHandle($hWndTray, "", "[CLASS:TrayNotifyWnd]")
            Local $hSysPager = ControlGetHandle($hTrayNotify, "", "[CLASS:SysPager]")
            $hToolbar = ControlGetHandle($hSysPager, "", "ToolbarWindow321")
        Case 3 ;OverflowNotifyArea
            Local $hWndOverflow = WinGetHandle("[CLASS:NotifyIconOverflowWindow]")
            $hToolbar = ControlGetHandle($hWndOverflow, "", "ToolbarWindow321")

        Case Else
            Return _EW("wrong $iAreaId")
    EndSwitch

    ; https://www.autoitscript.com/forum/topic/133222-manipulate-system-tray-program-right-click-choose-option/page/2/#comment-1499538
    ; Create UI Automation object
    Local $oUIAutomation = ObjCreateInterface($sCLSID_CUIAutomation, $sIID_IUIAutomation, $dtagIUIAutomation)
    If Not IsObj($oUIAutomation) Then Return _EW("$oUIAutomation ERR")
    ;ConsoleWrite("$oUIAutomation OK" & @CRLF)

    ; Get Desktop element
    Local $pDesktop, $oDesktop
    $oUIAutomation.GetRootElement($pDesktop)
    $oDesktop = ObjCreateInterface($pDesktop, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
    If Not IsObj($oDesktop) Then Return _EW("$oDesktop ERR")
    ;ConsoleWrite("$oDesktop OK" & @CRLF)

    ; Get element by handle
    Local $pElement, $oElement
    $oUIAutomation.ElementFromHandle($hToolbar, $pElement)
    $oElement = ObjCreateInterface($pElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
    If Not IsObj($oElement) Then Return _EW("$oElement ERR")
    ;ConsoleWrite("$oElement OK" & @CRLF)

    ; Get condition (ControlType = Button)
    Local $pCondition, $oCondition
    $oUIAutomation.CreatePropertyCondition($UIA_ControlTypePropertyId, $UIA_ButtonControlTypeId, $pCondition)
    $oCondition = ObjCreateInterface($pCondition, $sIID_IUIAutomationPropertyCondition, $dtagIUIAutomationPropertyCondition)
    If Not IsObj($oCondition) Then Return _EW("$oCondition ERR")
    ;ConsoleWrite("$oCondition OK" & @CRLF)

    ; Find all buttons
    Local $pElementArray, $oElementArray, $iElements
    $oElement.FindAll($TreeScope_Children, $oCondition, $pElementArray)
    $oElementArray = ObjCreateInterface($pElementArray, $sIID_IUIAutomationElementArray, $dtagIUIAutomationElementArray)
    $oElementArray.Length($iElements)
    If Not IsObj($oElementArray) Then Return _EW("$oElementArray ERR")

    ; Get array of buttons
    Local $aElements[$iElements]
    For $i = 0 To $iElements - 1
        $oElementArray.GetElement($i, $pElement)
        $aElements[$i] = ObjCreateInterface($pElement, $sIID_IUIAutomationElement, $dtagIUIAutomationElement)
    Next

    ; Get name and position for each button  $UIA_LegacyIAccessibleNamePropertyId
    Local $sValue, $aPos[4], $aBtnArray[$iElements][2]
    Local $tRect = DllStructCreate("long Left;long Top;long Right;long Bottom")

    Local $iChrCnt = StringLen($sSearchString)
    Local $sHelpTxt, $bMatch = False
    Local $aExtract, $aResult

    For $i = 0 To UBound($aElements) - 1
        $aElements[$i].GetCurrentPropertyValue($UIA_NamePropertyId, $sValue)
        $aElements[$i].CurrentBoundingRectangle($tRect)
        $aPos[0] = $tRect.Left
        $aPos[1] = $tRect.Top
        $aPos[2] = $tRect.Right
        $aPos[3] = $tRect.Bottom
        $aBtnArray[$i][0] = $sValue
        $aBtnArray[$i][1] = $aPos
        $sHelpTxt &= $i & ") " & $aBtnArray[$i][0] & @CRLF
        If StringLeft($aBtnArray[$i][0], $iChrCnt) = $sSearchString Then
            $aExtract = _ArrayExtract($aBtnArray, $i, $i)
            $bMatch = True
            $sHelpTxt = ""
            ExitLoop
        EndIf
    Next

    $aResult = ($bMatch ? $aExtract : $aBtnArray)

    ; only if $sSearchString not match and <> "@No@"
    If $sSearchString <> "@No@" Then ConsoleWrite($sHelpTxt)

    Local $aMpos, $iAdjust

    Switch $iActionId
        Case 1 ;Get
            Return $aResult

        Case 2, 3, 4 ; 2=$MOUSE_CLICK_LEFT ; 3=$MOUSE_CLICK_RIGHT ; 4=$MOUSE_DBL_CLICK_LEFT
            ; only if $sSearchString match
            If UBound($aResult) = 1 Then
                Local $iClick = ($iActionId = 4 ? 2 : 1)
                Local $iButton = ($iActionId = 3 ? $MOUSE_CLICK_RIGHT : $MOUSE_CLICK_LEFT)
                $aPos = $aResult[0][1]
                ;ConsoleWrite("$aPos =" & $aPos[0] & ", " & $aPos[1] & ", " & $aPos[2] & ", " & $aPos[3] & @CRLF)
                $iAdjust = ($aPos[2] - $aPos[0]) / 2
                $aMpos = MouseGetPos() ;Bakup mouse position
                If $iAreaId = 3 Then ControlClick($hWndTray, "", $hOverflowButton) ;fist click the Overflow Button
                MouseClick($iButton, $aPos[0] + $iAdjust, $aPos[1] + $iAdjust, $iClick, 1)
                If $sOption Then
                    WinActivate($hWndTray)
                    Opt("SendKeyDownDelay", 50) ;you may need to raise
                    Opt("SendKeyDelay", 50) ;you may need to raise
                    Send($sOption)
                    Opt("SendKeyDelay", 5) ;5 milliseconds - Default
                    Opt("SendKeyDownDelay", 5) ;5 milliseconds - Default
                    Send("{ESC}")
                EndIf
                MouseMove($aMpos[0], $aMpos[1], 1) ;restore mouse position
                Return $aResult
            EndIf

        Case 5 ; 5=Click&Drag
            ; only if $sSearchString match
            If UBound($aResult) = 1 Then
                $aPos = $aResult[0][1]
                ;ConsoleWrite("$aPos =" & $aPos[0] & ", " & $aPos[1] & ", " & $aPos[2] & ", " & $aPos[3] & @CRLF)
                $iAdjust = ($aPos[2] - $aPos[0]) / 2
                Local $iBtnWidth = $aPos[2] - $aPos[0]
                Local $iX2
                Local $aOption = StringSplit($sOption, ":")
                If $aOption[0] = 2 Then

                    If $aOption[1] = "X" Then
                        $iX2 = Int($aOption[2])
                        ConsoleWrite("$iX2=" & $iX2 & @CRLF)
                    ElseIf $aOption[1] = "Index" Then
                        Local $aIdx = $iAreaId = 1 ? _TaskBar(1, "@No@") : _TaskBar(2, "@No@")
                        $aOption[2] = Int($aOption[2])
                        If $aOption[2] > UBound($aIdx) - 1 Then Return _EW("wrong Click&Drag $sOption Index:ERR")
                        Local $a = $aIdx[$aOption[2]][1]
                        $iX2 = $a[0]
                    Else
                        Return _EW("wrong Click&Drag $sOption")
                    EndIf

                Else
                    $sOption = Int($sOption)
                    $iX2 = $aPos[0] + $iAdjust + $iBtnWidth * $sOption
                EndIf

                If $sOption = "OverflowButton" Then
                    ; RunningAppsArea not suporting
                    If $iAreaId = 1 Then Return _EW("wrong Click&Drag $sOption, RunningAppsArea not suporting OverflowButton")
                    Local $aCtrlPos = ControlGetPos($hWndTray, "", $hOverflowButton)
                    ;Drag Position = OverflowButton
                    $iX2 = $aCtrlPos[0] + $aCtrlPos[2] / 2
                EndIf

                $aMpos = MouseGetPos() ;Bakup mouse position

                ; if OverflowNotifyArea fist click the Overflow Button
                If $iAreaId = 3 Then ControlClick($hWndTray, "", $hOverflowButton)

                MouseClickDrag($MOUSE_CLICK_LEFT, $aPos[0] + $iAdjust, $aPos[1] + $iAdjust, $iX2, @DesktopHeight - $iAdjust, 1)

                WinActivate($hWndTray)
                Send("{ESC}")

                MouseMove($aMpos[0], $aMpos[1], 1) ;restore mouse position
                Return $aResult
            EndIf

        Case Else
            Return _EW("wrong $iActionId")

    EndSwitch

    ;_ArrayDisplay($aBtnArray)

EndFunc   ;==>_TaskBar
;--------------------------------------------------------------------------------------------------------------------------------
Func IsMouseOverRect($aRect)

    If Not IsArray($aRect) Then Return _EW("Not array found")

    Local $Width = $aRect[2] - $aRect[0]
    Local $Height = $aRect[3] - $aRect[1]
    $aRect[2] = $Width
    $aRect[3] = $Height
    ;$aRect[0]=X ;$aRect[1]=Y ;$aRect[2]=Width ;$aRect[3]=Height
    Local $aMpos = MouseGetPos()
    If $aMpos[0] > $aRect[0] And $aMpos[1] > $aRect[1] And $aMpos[0] < $aRect[0] + $aRect[2] And $aMpos[1] < $aRect[1] + $aRect[3] Then
        Return True
    EndIf
    Return False
EndFunc   ;==>IsMouseOverRect
;--------------------------------------------------------------------------------------------------------------------------------
Func _EW($sString, $iLine = @ScriptLineNumber)
    ConsoleWrite("! (" & $iLine & ") " & $sString & @CRLF)
EndFunc   ;==>_EW
;--------------------------------------------------------------------------------------------------------------------------------

 

And while we're on the subject of TaskBar, here's another related one

;----------------------------------------------------------------------------------------
; Title...........: ShellTrayRefresh.au3
; Description.....: Refreshes ShellTray to remove leftover zombie icons
; AutoIt Version..: 3.3.16.1   Author: ioa747
; Note............: Testet in Win10 22H2
; https://www.autoitscript.com/forum/topic/139260-autoit-snippets/page/25/#comment-1529091
;----------------------------------------------------------------------------------------
Func ShellTrayRefresh()
    Local $aStartPos = MouseGetPos()
    Local $hTrayWnd = WinGetHandle("[CLASS:Shell_TrayWnd]")
    Local $hTlb = ControlGetHandle($hTrayWnd, "", "ToolbarWindow323")
    Local $hBtn = ControlGetHandle($hTrayWnd, "", "Button2")
    Local $aPos = ControlGetPos($hTrayWnd, "", $hBtn)
    Local $aTPos = ControlGetPos($hTrayWnd, "", $hTlb)
    For $i = ($aPos[0] - 1) + ($aPos[2] / 2) To $aPos[0] + $aPos[2] + $aTPos[2] Step $aPos[2]
        MouseMove($i, @DesktopHeight - 3, 1)
;~      ConsoleWrite("$i=" & $i & @CRLF)
;~      Sleep(10)
    Next
    MouseMove($aStartPos[0], $aStartPos[1], 1)
EndFunc   ;==>ShellTrayRefresh

 

as well as the link ITaskbarList4 interface

 

Please, every comment is appreciated!
leave your comments and experiences here!
Thank you very much 

Edited September 17 by ioa747
Update to Version: 2.0

[ioa747]

Update to Version: 2.0

I added Mouse Click & Drag operation, to rearrange icons positions