Pacho
Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору 11:37 24-03-2010 По первому вопросу сделал так: Код: #NoTrayIcon #include <Constants.au3> Opt("TrayAutoPause", 0) Opt("TrayIconDebug", 1) Opt("TrayMenuMode", 1+2) Global Const $Title = "Title" Dim $ConnectItem = TrayCreateItem("Подключить") TrayCreateItem("") Dim $ExitItem = TrayCreateItem("Выход") TraySetState() Global $Connection = False While True Switch TrayGetMsg() Case 0 ContinueLoop Case $ConnectItem If BitAND(TrayItemGetState($ConnectItem), $TRAY_CHECKED) <> $TRAY_CHECKED Then Connect() Else Disconnect() EndIf Case $ExitItem Terminate() Case $TRAY_EVENT_PRIMARYDOWN If IsConnected() == True Then MsgBox(64, $Title, "Соединение есть") Else MsgBox(64, $Title, "Соединения нет") EndIf EndSwitch WEnd Func Connect() TrayItemSetState($ConnectItem, $TRAY_CHECKED) $Connection = True MsgBox(64, $Title, "Соединение установлено") EndFunc Func Disconnect() TrayItemSetState($ConnectItem, $TRAY_UNCHECKED) $Connection = False MsgBox(64, $Title, "Соединение разорвано") EndFunc Func IsConnected() Return $Connection EndFunc Func Terminate() Exit EndFunc | А вот как теперь сделать, чтобы скрипт делал опрос на предмет наличия соединения по клику на иконке и при его отсутсвии снимал галку с меню "Подключить"? ViSiToR Это, я так понимаю, от отладки осталось? Код: ConsoleWrite(TrayItemGetState($ConnectItem) & @LF) | ynbIpb Цитата: Декомпилировал декомпилером | Это значит любой скрипт можно декомпилить в исходный код? | Всего записей: 263 | Зарегистр. 02-04-2005 | Отправлено: 14:13 24-03-2010 | Исправлено: Pacho, 14:27 24-03-2010 |
|