Серый форум — AHK: Пауза скрипта со сменой иконки в области уведомлений

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Sat, 29 Apr 2017 12:53:42 +0000

teadrinker пишет:

Вот так поставит на паузу сам себя через 5 секунд:

Интересно, но данный способ подошел. Благодарю за помощь.

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (teadrinker) — Fri, 28 Apr 2017 16:39:01 +0000

slavafedora пишет:

Потому-что я пытаюсь добавить не по горячей клавише, а по таймеру.

Всё равно непонятно, зачем нужна дополнительная функция. По таймеру сразу и вызывайте PauseFunc().

slavafedora пишет:

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()
}

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Fri, 28 Apr 2017 16:22:29 +0000

teadrinker
Потому-что я пытаюсь добавить не по горячей клавише, а по таймеру. Где будет переход на метку, но он там не работает. Поэтому сделал через функцию.
PauseFunc() так же работает некорректно, иконка в области с оповещениями начинает перемешиваться и выдавать разный результат. Я так и не понял в чем проблема.

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (teadrinker) — Fri, 28 Apr 2017 16:14:55 +0000

А зачем вообще нужна эта функция Funck()? Почему по горячей клавише нельзя сразу вызвать PauseFunc()?

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Fri, 28 Apr 2017 16:07:42 +0000

Может просто возможно добавить данный счетчик прямо в функцию паузы.

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Fri, 28 Apr 2017 13:30:00 +0000

И снова подниму данный вопрос, так как появился новый вопрос.
Уже обдумал всё что можно, не могу найти правильное решение, прошу Вашей помощи.

В общем, использую данную функцию в скрипте, что-бы ставить его на паузу и продолжать его работы(снять с паузы):


^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
	}

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Sun, 12 Feb 2017 13:57:19 +0000

svoboden
Работает, то что нужно! Спасибо.

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (svoboden) — Sun, 12 Feb 2017 13:44:46 +0000

Так работает?:

^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

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Sun, 12 Feb 2017 13:39:46 +0000

ypppu
Исправил. Буду знать что и после смайлов тоже нужны.

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (svoboden) — Sun, 12 Feb 2017 13:29:15 +0000

Думаю, так: "пишешь свои функции и добавляешь их сюда, Menu, Tray, Icon, % (pause := !pause) ? "paus.ico" Add() : "pla.ico",1,1 Add1()".

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (ypppu) — Sun, 12 Feb 2017 13:21:10 +0000

slavafedora, добавьте недостающие точки в конце предложений.
http://forum.script-coding.com/viewtopi … 49#p108049
http://forum.script-coding.com/viewtopi … 01#p110801
http://forum.script-coding.com/viewtopi … 98#p111298
http://forum.script-coding.com/viewtopi … 21#p112021
http://forum.script-coding.com/viewtopi … 59#p112259
http://forum.script-coding.com/viewtopi … 62#p112262

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Sun, 12 Feb 2017 13:07:53 +0000

Имея данный скрипт:


^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"

Все это аналогично смене иконки в данном скрипте. Пауза запускает скрипт, запуск завершает его процесс.
Подскажите пожалуйста.

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (teadrinker) — Sun, 22 Jan 2017 12:37:34 +0000

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()
}

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (slavafedora) — Sun, 22 Jan 2017 05:11:08 +0000

teadrinker
Еще раз огромное спасибо! Взял второй вариант.
У меня Windows 8.1, с русским языком воспроизводит.
Но есть еще один не большой вопрос, как можно сделать тут исключение на то, когда включаешь паузу скрипта в ручную через трей, что-бы данный звук не воспроизводился. А только при нажатии sc48 (Num8)?

Re: AHK: Пауза скрипта со сменой иконки в области уведомлений

null@example.com (Malcev) — Sun, 22 Jan 2017 00:06:18 +0000

С русским языком SAPI.SpVoice не работает.

На win8 и выше должен работать.
А на win7 так:
http://forum.script-coding.com/viewtopi … 69#p105469