ProgressOn("Выполнение операции", "Обработка процессов", "0 процентов")
ProgressSet( 1, "1" & " процентов")
sleep(700)
#NoTrayIcon
#include <SysTray_UDF.au3>
$Pid = ProcessExists("everest.exe")
If Not $Pid Then
MsgBox(16, "Ошибка", "Этот процесс не существует")
Exit
EndIf
ProgressSet( 25, "25" & " проентов")
$Index = _SysTrayIconIndex($Pid)
If @error Then
MsgBox(16, "Ошибка", "Этот процесс не имеет иконки в трее")
Exit
EndIf
ProgressSet( 50, "50" & " процентов")
_SysTrayIconClick($Index, "Right")
If @error Then
MsgBox(16, "Ошибка", "Невозможно нажать на иконку")
Exit
EndIf
ProgressSet( 75, "75" & " percent")
Func _SysTrayIconClick($iIndex, $sButton="Main")
Local $TrayIcon_Pos = _SysTrayIconPos($iIndex)
If Not IsArray($TrayIcon_Pos) Then Return SetError(1, 0, 0)
Local $Old_Mouse_Pos = MouseGetPos()
MouseClick($sButton, $TrayIcon_Pos[0], $TrayIcon_Pos[1], 1, 0)
MouseMove($Old_Mouse_Pos[0], $Old_Mouse_Pos[1], 0)
EndFunc
ProgressSet(100 , "Завершено", "Обработка")
sleep(500)
ProgressOff()