[решено] Активация Script Paused через HotKeySet

[sashadeg]

В стандартном меню трея имеется всем известная функция Script Paused... А можно её активировать не через трей а через, ну например HotKeySet?



P.S. CreatOR, я искал в справке... Нашел упоминание только про автоматическое отклчение Script Paused при нажати на значек

[Creat0R]

Я не думаю что можно имитировать именно эту функцию, но можно и без неё поставить скрипт на паузу:





Код:

Код: Выделить всё

Global $iPaused = True
HotKeySet("^+p", "_PauseToggle")
HotKeySet("{ESC}", "_Quit")
_PauseToggle()
$iDemo_Count = 0
While 1
    Sleep(1000)
    $iDemo_Count += 1
    ConsoleWrite(", " & $iDemo_Count)
WEnd
Func _PauseToggle()
    $iPaused = Not $iPaused
    If $iPaused Then
        ConsoleWrite(", Ждёмс... ")
    Else
        ConsoleWrite("Поехали... ")
    EndIf
    While $iPaused
        Sleep(10)
    WEnd
EndFunc
Func _Quit()
    Exit
EndFunc

P.S

Имя темы не содержательное, придумывай более подходящее имя.

[sashadeg]

Цитата Creat0R:



Имя темы не содержательное

[решено] Активация Script Paused через HotKeySet

Знаю... просто На этом форуме почемуто нельзя пользователю менять название =(
Цитата Creat0R:



Я не думаю что можно имитировать именно эту функцию, но можно и без неё поставить скрипт на паузу:

[решено] Активация Script Paused через HotKeySet

А можно тогда её удалить из трея(но оставить EXIT)? и оставить только то что ты написал...



P.S. Никак не могу понять, как работает трей(если его сам создаешь) А в справке примеры работают только на 1 нажатие (чисто интерфейс пользователю показать)

[Creat0R]

Цитата sashadeg:



На этом форуме почемуто нельзя пользователю менять название

[решено] Активация Script Paused через HotKeySet

Можно, при полном редактировании темы.




Цитата sashadeg:



можно тогда её удалить из трея(но оставить EXIT)?

[решено] Активация Script Paused через HotKeySet

А в справке про это не написано?



Перед _PauseToggle() добавь это:





Код:

Код: Выделить всё

Opt("TrayMenuMode", 1)
Opt("TrayOnEventMode", 1)
$Exit_TrayItem = TrayCreateItem("Exit")
TrayItemSetOnEvent(-1, "_Quit")
TraySetClick(16)

[sashadeg]

CreatOR, слушай, я написал программу. Скомпилировал, в инсталл забил, но у меня возникла проблема. Не глобальная но ОЧЕНЬ неприятная. Программу эту я написал для мультиплеерной игры SAMP. И я не хотел бы, чтобы все те кто ею пользовались были не очень довольны. Програма написана на заказ. Я проверял её на нескольких компьютерах, везде одно и тоже. Я хотел бы чтобы ты помог мне. потому что я уже не знаю что делать... (Это я не с "потолка" прошу, а действительно уже всё перепробЫвал) Если сможешь, то лучше общаться через icq, а то через форум (в данном случае будет не удобно). Ты в ICQ бываешь часто? А то у тебя всегда статус НЕДОСТУПЕН. Если сможешь - отклкнись.



Если ктонибудь готов помочь, я с радостью приму помощь.