Да. Наверное Вы правы. Видимо искусственный интеллект так просто в AHK не написать.
Спасибо вам за труды. Жаль только комментариев маловато. Сижу теперь и пытаюсь сам разобрать, какая строка за что отвечает. Но это уже ....]]>
1) Основной скрипт, в нем прописываю горячие клавиши на запуск нужных мне скриптов (Запускается при запуске Windows).
Run.ahk
SetWorkingDir %A_ScriptDir%
#SingleInstance force
#NoTrayIcon ; Скрытый режим, чтобы иконка не мозолила глаз :)
F12:: ExitApp
^F12:: Reload
F11:: Run, Таймер\Timer.ahk ; Запуск скрипта "Таймер"
F10::
Sendinput +{F11} ; (Нажимает Shift + F11) Закроет скрипт "Таймер", если запущен.
Run, Запись\Rec.ahk ; Запуск скрипта "Запись"
2) Далее в самих скриптах пишу.
Timer.ahk
SetWorkingDir %A_ScriptDir%
Menu, Tray, Icon, Таймер\timer.ico ; Иконка помогает быстро определить какой скрипт запущен
TrayTip, Таймер, Запущен ; Уведомление тоже не помешает
F11:: ExitApp ; Завершить скрипт
+F11:: ExitApp ; (Shift+F11) Также завершить скрипт. Если необходимо при запуске другого скрипта, завершить этот.
Rec.ahk
SetWorkingDir %A_ScriptDir%
Menu, Tray, Icon, Запись\Rec.ico
TrayTip, Запись, Запущена
F10:: ExitApp
Теперь использование. Нажимаю F11 - запускается скрипт "Таймер", нажимаю еще раз F11 - закрываю скрипт, и т.п с остальными.
P.S. Прошу строго не судить, пишу как могу, на основе полученных знаний и собственных экспериментов.
]]> Тогда, наверное, лучше остановиться на первом варианте, либо останавливать все нужные скрипты по одной горячей клавише.]]>#Persistent
ScriptNames := ["KeySender.ahk", "KeySender2.ahk"] ; имена скриптов, которые нужно завершить
Blocker.Init(ScriptNames)
Return
class Blocker
{
Init(ScriptNames) {
this.ScriptNames := ScriptNames
this.oWMI := ComObjGet("winmgmts:")
this.hHookKeybd := DllCall("SetWindowsHookEx"
, Int, WH_KEYBOARD_LL := 13
, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
, UInt, 0, Ptr)
}
Terminate() {
SetTitleMatchMode, 2
DetectHiddenWindows, On
for k, name in this.ScriptNames
if WinExist(name) && (this.GetLifeTime(name) > 2) ; закрываем процесс скрипта, если он был создан более двух секунд назад
WinClose
}
GetLifeTime(name) {
WinGet, PID, PID, % name
LifeTime -= this.oWMI.Get("Win32_Process.Handle=" PID).CreationDate, s
Return LifeTime
}
}
LowLevelKeyboardProc(nCode, wParam, lParam)
{
static LLKHF_INJECTED := 0x10, INJECTED, msg
, oMsg := {0x100: "WM_KEYDOWN", 0x101: "WM_KEYUP", 0x104: "WM_SYSKEYDOWN", 0x105: "WM_SYSKEYUP"}
msg := wParam
flags := NumGet(lParam + 8, "UInt")
INJECTED := (flags & LLKHF_INJECTED) >> 4
SetTimer, EventHandling, -10
Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
EventHandling:
if InStr(oMsg[msg], "DOWN") && !INJECTED
Blocker.Terminate()
Return
}Здесь скрипт завершается, только если был запущен более двух секунд назад.
]]>]]>#Persistent
ScriptNames := ["KeySender.ahk", "KeySender2.ahk"] ; имена скриптов, которые нужно завершить
Blocker.Init(ScriptNames)
Return
class Blocker
{
Init(ScriptNames) {
this.ScriptNames := ScriptNames
this.hHookKeybd := DllCall("SetWindowsHookEx"
, Int, WH_KEYBOARD_LL := 13
, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
, UInt, 0, Ptr)
}
Terminate() {
SetTitleMatchMode, 2
DetectHiddenWindows, On
for k, v in this.ScriptNames
if WinExist(v)
WinClose
}
}
LowLevelKeyboardProc(nCode, wParam, lParam)
{
static LLKHF_INJECTED := 0x10, INJECTED
flags := NumGet(lParam + 8, "UInt")
INJECTED := (flags & LLKHF_INJECTED) >> 4
SetTimer, EventHandling, -10
Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
EventHandling:
if !INJECTED
Blocker.Terminate()
Return
}Выключить совсем — в смысле, завершить?
Наверное да. В случае чего потом запускать снова. И ещё сразу....
Как можно указать несколько скриптов в обоих вариантах?
^vk50:: ; Ctrl + P
SetTimer, SendKey, % (i := !i) ? "On" : "Off"
Return
SendKey:
if !GetKeyState("Ctrl", "P")
SendInput, {!}
ReturnСкрипт, блокирующий первый скрипт:
#Persistent
ScriptName := "KeySender.ahk" ; имя скрипта, который нужно поставить на паузу
BlockPeriod := 3000 ; время, на которое нужно остановить скрипт
Blocker.Init(ScriptName, BlockPeriod)
Return
class Blocker
{
Init(ScriptName, time) {
this.ScriptName := ScriptName
this.BlockTime := time
this.UnBlock := this.UnBlockTimer.Bind(this)
this.hHookKeybd := DllCall("SetWindowsHookEx"
, Int, WH_KEYBOARD_LL := 13
, Ptr, RegisterCallback("LowLevelKeyboardProc", "Fast")
, Ptr, DllCall("GetModuleHandle", UInt, 0, Ptr)
, UInt, 0, Ptr)
}
Block() {
if !hWnd := this.GetScriptMainWindow()
Return
if !this.Blocked {
this.Blocked := 1
WinMenuSelectItem, % "ahk_id" hWnd,, 1&, 5&
}
timer := this.UnBlock
SetTimer, % timer, % "-" this.BlockTime
}
UnBlockTimer() {
WinMenuSelectItem, % "ahk_id" this.GetScriptMainWindow(),, 1&, 5&
this.Blocked := 0
}
GetScriptMainWindow() {
SetTitleMatchMode, 2
DetectHiddenWindows, On
Return WinExist(this.ScriptName)
}
}
LowLevelKeyboardProc(nCode, wParam, lParam)
{
static LLKHF_INJECTED := 0x10, INJECTED
flags := NumGet(lParam + 8, "UInt")
INJECTED := (flags & LLKHF_INJECTED) >> 4
SetTimer, EventHandling, -10
Return DllCall("CallNextHookEx", Ptr, 0, Int, nCode, Ptr, wParam, Ptr, lParam)
EventHandling:
if !INJECTED
Blocker.Block()
Return
}Сохраняем первый скрипт, как KeySender.ahk. Запускаем его. Потом запускаем второй скрипт. Открываем блокнот, нажимаем Ctrl + P (старт посыла клавиш), и посылающий скрипт через время, указанное во втором скрипте (3000 мс), начинает отправлять в блокнот клавишу {!}. Пробуем что-нибудь напечатать. После каждого физического нажатия клавиш посылающий скрипт должен ставиться на паузу на 3 секунды.
]]>]]>