[решено] Вопрос по TrayItemSetOnEvent: как выйти из скрипта в данной ситуации?

[решено] Вопрос по TrayItemSetOnEvent: как выйти из скрипта в данной ситуации?

evg64

Старожил

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

Добрый день! Для иллюстрации проблемы я сделал маленький скрипт:

Проблема вот в чем: когда щелкаешь на опцию трея "StartLoop", программа перестает реагировать на все остальные команды юзера через меню трея (потому что StartLoop зацикливает там все). А вот HotKeySet работает прекрасно вне зависимости от того, была ли нажата кнопка "StartLoop". Вопрос: как заставить прогу реагировать на команды через меню трея после вызова функции "StartLoop"?

Отправлено: 07:45, 07-10-2009

Creat0R

Must AutoIt

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

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

Цитата evg64:

программа перестает реагировать на все остальные команды юзера через меню трея »

Потому что обработка событии продолжается только после завершения вызванной событием функции - в этом случае лучше всего обрабатывать события в главном цикле:

Код:

$iLoop = False

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
HotKeySet("{esc}", "ExitFunc")

$CurrentTime = TrayCreateItem("StartLoop")
TrayItemSetOnEvent(-1, "StartLoop")
$Exit = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "ExitFunc")

While 1
    Sleep(100)

    If $iLoop Then Loop_Proc()
WEnd

Func StartLoop()
    ;m("StartLoop() starts")

    $iLoop = Not $iLoop

    $sText = "StartLoop"
    If $iLoop Then $sText = "StopLoop"

    TrayItemSetText($CurrentTime, $sText)
EndFunc

Func Loop_Proc()
    While Not $iLoop
        Sleep(100)
    WEnd
EndFunc

Func ExitFunc()
    ;m("ExitFunc() starts")
    Exit
EndFunc