Серый форум — AHK: Как объединить два скрипта в один?

Re: AHK: Как объединить два скрипта в один?

null@example.com (__Михаил__) — Fri, 20 May 2022 18:46:09 +0000

Всё-таки можно и без таймера:

M := 0		; Режим отправки: 0:Обычный, 1:Реверс.
Keys := "wdsasdw"	; Клавиши для отправки.
I := 0		; Индекс текущей клавиши.
R := 0		; Флаг: 1:Нужно начать заново отправку клавиш.
Wait := 25	; Задержка между посылом клавиши.
Pause

Loop{
 I := (R ? 1 : (I > 3 ? 1 : I+1), R=0)
 MM := SubStr(Keys, I+(M*3),1)
 Send, {%MM%}
 Sleep, % Wait
}
Return

F2:: M := !M, R := 1	; Переключить режим: 0:Обычный, 1:Реверс.
F3:: Pause		; Приостановить / Возобновить работу скрипта.

Re: AHK: Как объединить два скрипта в один?

null@example.com (teadrinker) — Fri, 20 May 2022 16:31:42 +0000

Хорошая идея, только меток лишних много, сделали из простого алгоритма квест.

Re: AHK: Как объединить два скрипта в один?

null@example.com (Vsevolod) — Fri, 20 May 2022 16:19:04 +0000

Почему в один цикл нельзя?


mode = 0
loop {
	if (mode = 1)
		GoSub lb1
	if (mode = 2)
		GoSub lb2
}

Label1:
mode = 1
Return

Label2:
mode = 2
Return

Numpad1::GoSub, Label1
Numpad2::GoSub, Label2

lb1:
Send {a}
Sleep 100
return

lb2:
Send {b}
Sleep 100
return


Numpad0::ExitApp

Re: AHK: Как объединить два скрипта в один?

null@example.com (teadrinker) — Wed, 18 May 2022 18:35:55 +0000

Ура! А то я уже упаковал.

Re: AHK: Как объединить два скрипта в один?

null@example.com (__Михаил__) — Wed, 18 May 2022 17:26:28 +0000

Значит оба компа teadrinker может не выкидывать.

Re: AHK: Как объединить два скрипта в один?

null@example.com (Foma) — Wed, 18 May 2022 17:07:50 +0000

teadrinker пишет:

Проблема кода, который выложил коллега Foma в том, что переключиться он может только один раз

Проверил. Вы правы.

Re: AHK: Как объединить два скрипта в один?

null@example.com (__Михаил__) — Wed, 18 May 2022 15:55:20 +0000

isxodnik
Перезапуск скрипта, ну да - отличный костыль. На таймеры обиделись?

Re: AHK: Как объединить два скрипта в один?

null@example.com (teadrinker) — Wed, 18 May 2022 13:49:29 +0000

Если уж использовать перезагрузку, то можно обойтись без нажатия лишней клавиши:

#SingleInstance, Force 

if (A_Args[1] = 0) {
   Loop
   {
      ToolTip a
      Sleep, 100
   }
}
if A_Args[1] {
   Loop
   {
      ToolTip b
      Sleep, 100
   }
}
NumPad1:: Run, % A_ScriptFullPath . " " . 0
NumPad2:: Run, % A_ScriptFullPath . " " . 1

Но я уверен, что форумчане способны придумать красивые решения без перезагрузки.

Re: AHK: Как объединить два скрипта в один?

null@example.com (isxodnik) — Wed, 18 May 2022 01:55:52 +0000

e::

Loop
	{
	Send {a}
	Sleep, 100
	}

r::

Loop
	{
	Send {b}
	Sleep, 100
	}

q::Reload

Чтобы с "b" переключиться на "a", нужно нажать "q", "e". Как костыль на время поиска более изящного решения...

Re: AHK: Как объединить два скрипта в один?

null@example.com (teadrinker) — Tue, 17 May 2022 18:45:57 +0000

__Михаил__, я думаю, задача не в том, чтобы выполнять оба цикла одновременно, а в том, чтобы переключать с одного на другой по горячей клавише. Проблема кода, который выложил коллега Foma в том, что переключиться он может только один раз. Можете проверить сами, замените символы, как я советовал выше. Только не на заглавные.

Re: AHK: Как объединить два скрипта в один?

null@example.com (__Михаил__) — Tue, 17 May 2022 18:40:52 +0000

Foma
АХК не может выполнять две и более задачи одновременно таким кодом - цикл прерывается новым.
Не первый год уже программируете всё еще не запомнили?

Re: AHK: Как объединить два скрипта в один?

null@example.com (teadrinker) — Tue, 17 May 2022 17:44:16 +0000

Наверно придётся выкинуть два моих компьютера, на которых я попробовал, на помойку.

Re: AHK: Как объединить два скрипта в один?

null@example.com (Foma) — Tue, 17 May 2022 17:38:58 +0000

Я менял последние на "U" и "O", перед тем как ответить. Работает. Во время выполнения "Sleep" идёт перехват и прекрасно работает.

Re: AHK: Как объединить два скрипта в один?

null@example.com (teadrinker) — Tue, 17 May 2022 16:22:38 +0000

Поменяйте символы из первого цикла на "а", из второго на "b", попереключайте несколько раз.

Re: AHK: Как объединить два скрипта в один?

null@example.com (Foma) — Tue, 17 May 2022 15:19:48 +0000

А почему у меня работает? Может не так, как задумано автором, но работает.
Если он хочет их включать по очереди в идеально подходящий момент, то пусть напишет.
У меня оба включаются и выход срабатывает, пусть иногда с задержкой.