[madmasles]

alexey_a,
Попробуйте так. Вместо "AdMunch.exe" поставьте нужную Вам Программу. Если раскомментировать последние строки в функции, то у меня закрывает Ad Muncher.

Код:

#NoTrayIcon
#include <SysTray_UDF.au3>

$Pid = ProcessExists("AdMunch.exe")

If Not $Pid Then
    Exit
EndIf
Local $Old_Mouse_Pos = MouseGetPos()
MouseMove(@DesktopWidth / 2, @DesktopHeight, 0)
$Index = _SysTrayIconIndex($Pid)
If @error Then
    Exit
EndIf

_SysTrayIconClick($Index, "Right")

Func _SysTrayIconClick($iIndex, $sButton = "Main")
    Local $TrayIcon_Pos = _SysTrayIconPos($iIndex)
    If Not IsArray($TrayIcon_Pos) Then Return SetError(1, 0, 0)
    MouseClick($sButton, $TrayIcon_Pos[0], $TrayIcon_Pos[1], 1, 0)
    ;MouseClick("left", $TrayIcon_Pos[0] - 15, $TrayIcon_Pos[1] - 15, 1, 0)
    ;MouseMove($Old_Mouse_Pos[0], $Old_Mouse_Pos[1], 0)
EndFunc   ;==>_SysTrayIconClick

SysTray_UDF