Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
pause
Loop {
Send {w}
Sleep 25
Send {d}
Sleep 25
Send {s}
Sleep 25
Send {a}
}
Numpad2::Pause
==================
pause
Loop {
Send {a}
Sleep 25
Send {s}
Sleep 25
Send {d}
Sleep 25
Send {w}
}
Numpad1::PauseНужно сделать этих два скрипта в один.
pause
Label1:
Loop {
Send {w}
Sleep 25
Send {d}
Sleep 25
Send {s}
Sleep 25
Send {a}
}
Return
Label2:
Loop {
Send {a}
Sleep 25
Send {s}
Sleep 25
Send {d}
Sleep 25
Send {w}
}
Return
Numpad1::GoSub, Label1
Numpad2::GoSub, Label2
Numpad0::ExitAppТак пойдёт?
Так не будет работать.
А почему у меня работает? Может не так, как задумано автором, но работает.
Если он хочет их включать по очереди в идеально подходящий момент, то пусть напишет.
У меня оба включаются и выход срабатывает, пусть иногда с задержкой.
Поменяйте символы из первого цикла на "а", из второго на "b", попереключайте несколько раз.
Я менял последние на "U" и "O", перед тем как ответить. Работает. Во время выполнения "Sleep" идёт перехват и прекрасно работает.
Наверно придётся выкинуть два моих компьютера, на которых я попробовал, на помойку.
Foma
АХК не может выполнять две и более задачи одновременно таким кодом - цикл прерывается новым.
Не первый год уже программируете всё еще не запомнили?
__Михаил__, я думаю, задача не в том, чтобы выполнять оба цикла одновременно, а в том, чтобы переключать с одного на другой по горячей клавише. Проблема кода, который выложил коллега Foma в том, что переключиться он может только один раз. Можете проверить сами, замените символы, как я советовал выше. Только не на заглавные.
e::
Loop
{
Send {a}
Sleep, 100
}
r::
Loop
{
Send {b}
Sleep, 100
}
q::ReloadЧтобы с "b" переключиться на "a", нужно нажать "q", "e". Как костыль на время поиска более изящного решения...
Если уж использовать перезагрузку, то можно обойтись без нажатия лишней клавиши:
#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Но я уверен, что форумчане способны придумать красивые решения без перезагрузки.
isxodnik
Перезапуск скрипта, ну да - отличный костыль. На таймеры обиделись?
Проблема кода, который выложил коллега Foma в том, что переключиться он может только один раз
Проверил. Вы правы.
Значит оба компа teadrinker может не выкидывать.
Ура! А то я уже упаковал. 
Почему в один цикл нельзя?
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
Хорошая идея, только меток лишних много, сделали из простого алгоритма квест.
Всё-таки можно и без таймера:
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 ; Приостановить / Возобновить работу скрипта.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
