AutoIt Français

Code : Tout sélectionner

Func _RefreshSystemTray()
        For $i = 0 To 5
        ; Save Opt settings
        Local $oldMatchMode = Opt("WinTitleMatchMode", 4)
        Local $oldChildMode = Opt("WinSearchChildren", 1)
        Local $error = 0
        Do 
            Local $hWnd = WinGetHandle("classname=TrayNotifyWnd")
            If @error Then
                $error = 1
                ExitLoop
            EndIf

            Local $hControl = ControlGetHandle($hWnd, "", "Button1")
            
        ; We're on XP and the Hide Inactive Icons button is there, so expand it
            If $hControl <> "" And ControlCommand($hWnd, "", $hControl, "IsVisible") Then 
                ControlClick($hWnd, "", $hControl)
                Sleep(100)
            EndIf
            
            Local $posStart = MouseGetPos()
            Local $posWin = WinGetPos($hWnd)    
            
            Local $y = $posWin[1]
            While $y < $posWin[3] + $posWin[1]
                Local $x = $posWin[0] 
                While $x < $posWin[2] + $posWin[0]
                    DllCall("user32.dll", "int", "SetCursorPos", "int", $x, "int", $y)
                    If @error Then
                        $error = 2
                        ExitLoop 3; Jump out of While/While/Do
                    EndIf
                    $x = $x + 8
                WEnd
                $y = $y + 8
            WEnd
            DllCall("user32.dll", "int", "SetCursorPos", "int", $posStart[0], "int", $posStart[1])
        ; We're on XP so we need to hide the inactive icons again.
            If $hControl <> "" And ControlCommand($hWnd, "", $hControl, "IsVisible") Then 
                ControlClick($hWnd, "", $hControl)
            EndIf
        Until 1
        
    ; Restore Opt settings
        Opt("WinTitleMatchMode", $oldMatchMode)
        Opt("WinSearchChildren", $oldChildMode)
        SetError($error)
    Next
EndFunc  ; _RefreshSystemTray()