задача допилить свою не верную идею.
Такой задачи нет, просто один из вариантов ... 
задача допилить свою не верную идею.
Такой задачи нет, просто один из вариантов ...
Тогда можно записывать в реестр команды в виде
Run: "calc.exe"и заменить строки кода
if InStr(A_LoopField, "Run: """)или просто заменить строки кода
if InStr(A_LoopField, "Run """)шансы получить неверный ответ сводятся к 0 ....
]]>согласитесь, мало шансов встретить екзешник с таким экзотическим названием
Не обязательно так целиком. А вообще в строке есть ***сlose***, или если в Run есть ***Send*** то до Run дело не дойдёт. Так что...
]]>По поводу запуска
Run "Close.exe"согласитесь, мало шансов встретить екзешник с таким экзотическим названием. Ну а двойные кавычки - это, как вариант. Конечно можно использовать и другие разделители. Например разделитель = будет более уместен ...
Благодарю за ответ!
]]>Run "Close.exe"будет выполнено:
Process, Close, Close.exeТут нас должен интересовать только первый пробел, ну или другой разделитель, например "=".
RegRead, Command, HKLM, SYSTEM\CurrentControlSet\Services\Test\Commands, Test
{
Loop, parse, Command, `n
{
com := SubStr(LoopField, 1, p:=InStr(str, " ")-1)
param := SubStr(LoopField, p+2)
if com = Close
Process, Close, % param
else if com = Send
Send, % "{" param "}"
***
Ну а если уже кавычек понаделали, то:
param := SubStr(str, p+3, -1)Пример команд, содержащихся в REG_MULTI_SZ:
Run "calc.exe"
Sleep "2000"
Run "notepad.exe"
Sleep "2000"
Close "calc.exe"
Send "vkADsc100"Все выполняемые параметры команд должны быть заключены в двойные кавычки " ".
Теперь рабочий кусок кода AHK скрипта, если вдруг кому-то понадобится:
RegRead, Command, HKLM, SYSTEM\CurrentControlSet\Services\Test\Commands, Test
{
Loop, parse, Command, `n
{
if InStr(A_LoopField, "Close")
{
Process, Close, % RegExReplace(A_LoopField, "m`a).*?""(.*)?"".*", "$1") ; Завершение работы какой-либо программы (процесса)
}
else if InStr(A_LoopField, "Send")
{
Send, % RegExReplace(A_LoopField, "m`a).*?""(.*)?"".*", "{$1}") ; Эмуляция нажатия клавиши
}
else if InStr(A_LoopField, "Run")
{
Run, % RegExReplace(A_LoopField, "m`a).*?""(.*)?"".*", """$1""") ; Выполнение команды на запуск какой-либо программы
}
else if InStr(A_LoopField, "Sleep")
{
Sleep, % RegExReplace(A_LoopField, "m`a).*?""(.*)?"".*", "$1") ; Пауза
}
}
}Собсна, по такому-же принципу можно считывать команды и из INI-файлов.
Если есть другие, более лучшие варианты для решения этого вопроса, напишите код.
]]>Значит, как говорил плешивый вождь краснож...ых "Правильной дорогой идете, товарисЧи!"
Про TempFile.ahk я тоже думал, но этот метод не совсем тот ... - полагаю, более медленный из-за формирования файла. К тому-же, эти команды многократного исполнения ( очень многократного ) ...
Благодарю за помощь!
]]>Попытаюсь кратко сформулировать суть вопроса:
Имеется скрипт, который должен построчно считывать команды на исполнение из параметра реестра REG_MULTI_SZ ( многострочный ), например с таким содержанием:
Run "calc.exe"
Sleep 2000
Run "notepad.exe"
Sleep 2000
MsgBox, Any textКоманды могут быть различные, это не важно.
Я пошел по такой схеме:
RegRead, Command, HKLM, SYSTEM\CurrentControlSet\Services\Test\Commands, Test
{
Loop, parse, Command, `n
{
if InStr(A_LoopField, "Run")
{
RegExMatch(A_LoopField, """.*""", Command)
Run % Command
}
else if InStr(A_LoopField, "Sleep")
{
RegExMatch(A_LoopField, "\d+$", Command)
Sleep % Command
}
}
}
.... и так далееЕсть ли более прострой или более правильный способ заставить скрипт построчно считывать и исполнять команды из REG_MULTI_SZ или, например, из INI-файла и возможно ли еще добавить сюда условия If ... и т.п. ?
Заранее благодарю всех за помощь!
]]>