[решено] как сделать клик на иконке в tray

Creat0R · Конфигурация компьютера

Можно по PID:

Код:

#NoTrayIcon
#include <SysTray_UDF.au3>
;

$Pid = ProcessExists("Opera.exe")

If Not $Pid Then
    MsgBox(16, "Error", "This process not exists")
    Exit
EndIf

$Index = _SysTrayIconIndex($Pid)

If @error Then
    MsgBox(16, "Error", "This process not have tray icon")
    Exit
EndIf

_SysTrayIconClick($Index, "Right")

If @error Then
    MsgBox(16, "Error", "There was an error to click on the icon")
    Exit
EndIf

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

Рабочий SysTray_UDF.au3 (для последней версиии аутоита) прикрепил к сообщению.

kuzyaka · Отправлено: **13:36, 13-03-2010** | #3

А как при этом выбрать пункт из контекстного меню?

Creat0R, с помощью вашей программы контекстное меню Диспетчера очереди печати (spoolsv.exe) выскакивает, мне теперь нужно выбрать в нем пункт "Обновить ...".

Мне это требуется после программной очистки очереди печати, чтобы иконка не маячила в трее.

Если выбрать в контекстном меню Диспетчера очереди печати (spoolsv.exe) пункт "Обновить ...", иконка при этом, если очередь печати пустая, исчезает.

Может ее убрать можно как то и иначе, не знаю, пока нашел только способ с "Обновить ..." - в общем надо как то её убрать из трея.

pashkovka · Отправлено: **18:02, 01-03-2011** | #4

Я новичок в данной программе, она мне требуется лишь для того, чтоб сделать три клика в трее, т.е. запустить программу. При загрузке компьютера.

как это возможно сделать?
Подскажите какие значения надо изменить, просто нет времени вникать во всю программу.

суровый · Отправлено: **15:44, 18-07-2012** | #5

код работает но если появляется новая иконка,кликает мимо.

хотелось бы чтоб работало корректнее

AZJIO · Отправлено: **16:52, 18-07-2012** | #6

суровый, а если вызвать _SysTrayIconIndex перед SysTrayIconClick?

суровый · Отправлено: **18:57, 18-07-2012** | #7

в коде так и есть
вообще странно конечно нафиг тогда проверка присутствия приложения в трее если он всё время кликает самую левую иконку

вот один в один только имя файла моё

Код:

#NoTrayIcon
#include <SysTray_UDF.au3>
;

$Pid = ProcessExists("advor.exe")

If Not $Pid Then
    MsgBox(16, "Error", "This process not exist")
    Exit
EndIf

$Index = _SysTrayIconIndex($Pid)

If @error Then
    MsgBox(16, "Error", "This process not have tray icon")
    Exit
EndIf

;_SysTrayIconIndex($Pid) // эта строчке  никак не влияет

_SysTrayIconClick($Index, "Right")

If @error Then
    MsgBox(16, "Error", "There was an error to click on the icon")
    Exit
EndIf

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

А почему у меня синтаксис не подсвечивается ?