Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Аватара для madmasles

Ветеран


Сообщения: 812
Благодарности: 353

Профиль | Отправить PM | Цитировать


mamont1,
У меня Ad Muncher так закрывается:
Код: Выделить весь код
#include <SysTray_UDF.au3>

$Pid = ProcessExists("AdMunch.exe")
If Not $Pid Then Exit
BlockInput(1)
Local $Old_Mouse_Pos = MouseGetPos()
MouseMove(@DesktopWidth / 2, @DesktopHeight, 0)
Sleep(50)
$Index = _SysTrayIconIndex($Pid)
If @error Then Exit
_SysTrayIconClick($Index, "Right")
MouseMove($Old_Mouse_Pos[0], $Old_Mouse_Pos[1], 0)
BlockInput(0)
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)
EndFunc   ;==>_SysTrayIconClick
SysTray_UDF.au3

А так, ИМХО, проще всего:
Код: Выделить весь код
If ProcessExists("AdMunch.exe") Then ProcessClose("AdMunch.exe")

Последний раз редактировалось madmasles, 10-06-2010 в 22:22.


Отправлено: 21:45, 10-06-2010 | #5