Серый форум — AHK: Не прерывается SetTimer

Re: AHK: Не прерывается SetTimer

null@example.com (teadrinker) — Thu, 07 Apr 2016 20:18:07 +0000

Morty Mels, исправьтесь скорее.

Re: AHK: Не прерывается SetTimer

null@example.com (Morty Mels) — Thu, 07 Apr 2016 20:13:43 +0000

SendKey(Key, Pause, Script, TogleChat, Out) {
	WinGet, WindowPid, pid, WARFRAME
	WinGet, ActivePid, pid, A
	if (((ActivePid != WindowPid) or !GetKeyState("CapsLock", "T") or (TogleChat="true")) and (Out="true")) {
		SetCapsLockState, off
		SetTimer, %Script%, off
		Exit 
	}
	Send, %Key%
	Sleep Pause
}

Mirage4:
	Name:="Mirage4"
	SendKey("{vk34 2}", 2500, Name, TogleChat, "true")
	SendKey("{vk34}",625, Name, TogleChat, "true")
	SendKey("{vk53 down}", 625, Name, TogleChat, "true")
	SendKey("{vk53 up}",625,  Name, TogleChat, "false")
	SendKey("{vk57 down}",625, Name, TogleChat, "true")
	SendKey("{vk57 up}",625, Name, TogleChat, "false")
	SetTimer, %Name%, 0
Exit

~*vk14::
	TogleChat:="false"
	Send, {vk54}{vk08}{vk1B}
	SetTimer, Mirage4, 0
return

~*vk54::
	TogleChat:="true"

Я решил проблему примерно так + прикрутил лишнюю функцию

без нее выглядит так

SendKey(Key, Pause, Script, Out) {
	WinGet, WindowPid, pid, WARFRAME
	WinGet, ActivePid, pid, A
	if (((ActivePid != WindowPid) or !GetKeyState("CapsLock", "T")) and (Out="true")) {
		SetCapsLockState, off
		SetTimer, %Script%, off
		Exit 
	}
	Send, %Key%
	Sleep Pause
}

Mirage4:
	Name:="Mirage4"
	SendKey("{vk34 2}", 2500, Name, "true")
	SendKey("{vk34}",625, Name, "true")
	SendKey("{vk53 down}", 625, Name, "true")
	SendKey("{vk53 up}",625,  Name, "false")
	SendKey("{vk57 down}",625, Name, "true")
	SendKey("{vk57 up}",625, Name, "false")
	SetTimer, %Name%, 0
Exit

~*vk14::
	SetTimer, Mirage4, 0
return

Re: AHK: Не прерывается SetTimer

null@example.com (Alectric) — Thu, 07 Apr 2016 14:06:50 +0000

Редакция первого варианта с кривым форматированием:


SendKey(Key, Pause) {
tooltip,% "Проверка: " Key "`n" Pause
;	ControlSend, , %Key%, WARFRAME
	Sleep Pause
}

OutPoint(Script) {
	WinGet, WindowPid, pid, WARFRAME
	WinGet, ActivepPid, pid, A
	if (ActivepPid != WindowPid or !GetKeyState("CapsLock", "T")) {
		SetTimer, %Script%, off
                return 1
	}
}

~*vk14::	;Запускаем скрипт Mirage4 если CapsLock включен и ВЫКЛЮЧАЕМ, если выключен.
	Name:="Mirage4"
        if !OutPoint(Name)
	  SetTimer, %Name%,0
return

Mirage4: ; Сам скрипт
tooltip,% "Проверка таймера: " a_tickcount,0,,2
	Name:="Mirage4"
if !OutPoint(Name)
	SendKey("{vk53 down}",625)
if !OutPoint(Name)
	SendKey("{vk53 up}",625)
if !OutPoint(Name)
	SendKey("{vk57 down}",625)
if !OutPoint(Name)
	SendKey("{vk57 up}",625)
if !OutPoint(Name)
	SendKey("{vk34 2}",2500)
if !OutPoint(Name)
	SendKey("{vk34}",625)
if OutPoint(Name)
  sleep,100
return

И зачем отправлять виртуальный и скан код одновременно, мне кто-нибудь ответит?

Re: AHK: Не прерывается SetTimer

null@example.com (stealzy) — Thu, 07 Apr 2016 07:29:36 +0000

Return внутри функции/метки не прерывает потока.
Насколько я понимаю прервать поток извне невозможно.
Можно вынести секцию Mirage4 в отдельный процесс и запускать/прибивать его (Run Mirage4.ahk,, m4pid; Process, close, % m4pid).
Либо костыль - добавить проверку в каждую операцию Mirage4:

SendKeyAndCheck(Key, Pause) {
	if (!WinActive("WARFRAME") Or  !GetKeyState("CapsLock", "T"))
		 Exit
	ControlSend, , %Key%, WARFRAME
	Sleep Pause
}

~*vk14sc03A::SetTimer, Mirage4, % GetKeyState("CapsLock", "T") ? 0 : "off"

Mirage4:
	SendKeyAndCheck("{vk53sc01F down}",625)
	SendKeyAndCheck("{vk53sc01F up}",625)
	SendKeyAndCheck("{vk57sc011 down}",625)
	SendKeyAndCheck("{vk57sc011 up}",625)
	SendKeyAndCheck("{vk34sc005 2}",2500)
	SendKeyAndCheck("{vk34sc005}",625)
return

Re: AHK: Не прерывается SetTimer

null@example.com (Alectric) — Thu, 07 Apr 2016 03:23:24 +0000

Для прерывания потока, вроде, return нужно использовать... или я отстал от жизни?

Re: AHK: Не прерывается SetTimer

null@example.com (teadrinker) — Tue, 05 Apr 2016 10:01:50 +0000

Morty Mels, ознакомьтесь с этой темой, отредактируйте заголовок.

Re: AHK: Не прерывается SetTimer

null@example.com (mafckz) — Tue, 05 Apr 2016 08:28:02 +0000

В функции OutPoint() ошибка в именах перемнных (ActivepPid и ActivePid)

Прерывание выполняющегося потока из функции можно осуществить командой Exit.

Условие на активный капслок - (GetKeyState("CapsLock", "T")

Из следующей функции будет прерываться поток, если капслок деактивирован:

OutPoint(Script) { ;Скрипт для проверки активности ключевого окна и остановки скрипта, если активно побочное.
	WinGet, WindowPid, pid, WARFRAME
	WinGet, ActivePid, pid, A
	if ( (ActivePid != WindowPid) or !(GetKeyState("CapsLock", "T")) ) {
		SetTimer, %Script%, off ; Не прерывает Mirage4 <<>>
		Exit
	}
}

AHK: Не прерывается SetTimer

null@example.com (Morty Mels) — Tue, 05 Apr 2016 07:18:52 +0000

Написал простенький скрипт, но в силу моей необразованности в данном языке, не могу прервать выполнение команд. Буду очень рад, если поможете оптимизировать его!

В идеале скрипт должен отправлять нажатие клавиш в ключевое окно, но так как отправка клавиш работает не так как мне нужно, то он печатает только в том случае, если ключевое окно и включен CapsLock. Проблема заключается в том, что скрипт доходит до конца и не прерывается на середине, если CapsLock выключен.

;Моменты основных ошибок буду помечать знаком <<>>

SendKey(Key, Pause) { ;Скрипт на отправление нажатия клавиши в необходимое окно. Работает коряво, тат как печатает в ключевое окно скрипт лишь в том случае, если оно активно, но хоть так... Будет круто, если поможете и с этой проблемой, но это не самое главное.
	ControlSend, , %Key%, WARFRAME
	Sleep Pause
}

OutPoint(Script) { ;Скрипт для проверки активности ключевого окна и остановки скрипта, если активно побочное.
	WinGet, WindowPid, pid, WARFRAME
	WinGet, ActivepPid, pid, A
	if !(ActivePid = WindowPid) {
		SetTimer, %Script%, off ; Не прерывает Mirage4 <<>>
	}
}

~*vk14sc03A::	;Запускаем скрипт Mirage4 если CapsLock включен и ВЫКЛЮЧАЕМ, если выключен. 
	SetTimer, Mirage4, % GetKeyState("CapsLock", "T") ? 0 : "off"; Не прерывает Mirage4 <<>>
return

Mirage4: ; Сам скрипт
	Name:="Mirage4"
	SendKey("{vk53sc01F down}",625)
	SendKey("{vk53sc01F up}",625)
	OutPoint(Name)
	SendKey("{vk57sc011 down}",625)
	SendKey("{vk57sc011 up}",625)
	OutPoint(Name)
	SendKey("{vk34sc005 2}",2500)
	OutPoint(Name)
	SendKey("{vk34sc005}",625)
	SetTimer, %Name%, % GetKeyState("CapsLock", "T") ? 0 : "off"; Не прерывает Mirage4 <<>>	
Exit