Работает, то что нужно! Спасибо.
]]>Вот так поставит на паузу сам себя через 5 секунд:
Интересно, но данный способ подошел. Благодарю за помощь.
]]>Потому-что я пытаюсь добавить не по горячей клавише, а по таймеру.
Всё равно непонятно, зачем нужна дополнительная функция. По таймеру сразу и вызывайте PauseFunc().
PauseFunc() так же работает некорректно
Ну я уж не знаю, у вас там ещё какие-то функции, которые непонятно что делают.
Вот так поставит на паузу сам себя через 5 секунд:
Menu, Tray, Icon, pla.ico,1,1
OnMessage(0x111, "WM_COMMAND")
SetTimer, TimeIdle
Return
TimeIdle:
if A_TimeIdle > 5000
PauseFunc(true)
Return
sc48:: PauseFunc(true) ; Numpad8
PauseFunc(speak = false) {
static pause
Menu, Tray, Icon, % (pause := !pause) ? "paus.ico" : "pla.ico",1,1
Pause, toggle, 1
if speak {
Voice := ComObjCreate("SAPI.SpVoice")
Voice.Speak(pause ? "pause" : "start")
}
Return true
}
WM_COMMAND(wp) {
if (wp = 65306)
Return PauseFunc()
}В общем, использую данную функцию в скрипте, что-бы ставить его на паузу и продолжать его работы(снять с паузы):
^sc48::
Funck()
{
PauseFunc(true) ; Пауза/Запуск Ctrl + Numpad8
}
return
PauseFunc(speak = false)
{
static pause
Menu, Tray, Icon, % (pause := !pause) ? "paus.ico" Add1() : "pla.ico" Add(),1,1
Pause, toggle, 1
if speak
{
Voice := ComObjCreate("SAPI.SpVoice")
Voice.Speak(pause ? "Пауза" : "Запуск")
addChatMessageEx("FFD700", pause ? "{FFD700}Пауза" : "{FFD700}Запуск")
}
Return true
}
WM_COMMAND(wp) {
if (wp = 65306)
Return PauseFunc()
}
Add()
{
ScriptFileName := "Pause.ahk"
SetTitleMatchMode, 2
DetectHiddenWindows, On
WinClose, % ScriptFileName " ahk_class AutoHotkey"
return
}
Add1()
{
run, *runas D:\Гта\Ахк\Рабочие\Pause.ahk
return
}
Добавил в этот же скрипт ожидание активности пользователя и по истечению определенного времени, возможность использования данной функции постановки скрипта на паузу. Проще говоря, когда забыл отключить и ушел по своим делать, что бы в течении 1 минуты скрипт сам поставил себя на паузу.
Но что-то работает не так когда использую Funck(). Функция начинает просто бушевать и криво работать.
If (A_TimeIdlePhysical > 60 * 1000){
Funck()
return
}
^sc48:: PauseFunc(true) ; Пауза/Запуск Ctrl + Numpad8
PauseFunc(speak = false) {
static pause
Menu, Tray, Icon, % (pause := !pause) ? "paus.ico" Add1() : "pla.ico" Add(),1,1
Pause, toggle, 1
if speak {
Voice := ComObjCreate("SAPI.SpVoice")
Voice.Speak(pause ? "Пауза" : "Запуск")
addChatMessageEx("FFD700", pause ? "{FFD700}Пауза" : "{FFD700}Запуск")
}
Return true
}
WM_COMMAND(wp) {
if (wp = 65306)
Return PauseFunc()
}
Add() {
ScriptFileName := "rty.ahk"
SetTitleMatchMode, 2
DetectHiddenWindows, On
WinClose, % ScriptFileName " ahk_class AutoHotkey"
}
Return
Add1() {
run, *runas D:\Гта\Ахк\Рабочие\Pause.ahk
}
Return
^sc48:: PauseFunc(true) ; Пауза/Запуск Ctrl + Numpad8
PauseFunc(speak = false) {
static pause
Menu, Tray, Icon, % (pause := !pause) ? "paus.ico" : "pla.ico",1,1
Pause, toggle, 1
if speak {
Voice := ComObjCreate("SAPI.SpVoice")
Voice.Speak(pause ? "Пауза" : "Запуск")
addChatMessageEx("FFD700", pause ? "{FFD700}Пауза" : "{FFD700}Запуск")
}
Return true
}
WM_COMMAND(wp) {
if (wp = 65306)
Return PauseFunc()
}
Кто может подсказать что бы при нажатии "паузы" как по клавише так и в трее в ручную когда я ставлю на паузу. У меня запускался скрипт, через данную функцию:
run, *runas D:\Гта\Ахк\Рабочие\Pause.ahk
А при нажатии запуска по клавише или так же через трей у меня просто завершало его процесс это функцией:
ScriptFileName := "Pause.ahk" ; название файла целевого скрипта
SetTitleMatchMode, 2
DetectHiddenWindows, On
WinClose, % ScriptFileName " ahk_class AutoHotkey"
Все это аналогично смене иконки в данном скрипте. Пауза запускает скрипт, запуск завершает его процесс.
Подскажите пожалуйста.
Menu, Tray, Icon, pla.ico,1,1
OnMessage(0x111, "WM_COMMAND")
Return
sc48:: PauseFunc(true) ; Numpad8
PauseFunc(speak = false) {
static pause
Menu, Tray, Icon, % (pause := !pause) ? "paus.ico" : "pla.ico",1,1
Pause, toggle, 1
if speak {
Voice := ComObjCreate("SAPI.SpVoice")
Voice.Speak(pause ? "pause" : "start")
}
Return true
}
WM_COMMAND(wp) {
if (wp = 65306)
Return PauseFunc()
}С русским языком SAPI.SpVoice не работает.
На win8 и выше должен работать.
А на win7 так:
http://forum.script-coding.com/viewtopi … 69#p105469