Серый форум — AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Wed, 30 Apr 2014 08:48:20 +0000

serzh82saratov пишет:

задача допилить свою не верную идею.

Такой задачи нет, просто один из вариантов ...

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (serzh82saratov) — Wed, 30 Apr 2014 05:21:58 +0000

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

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Wed, 30 Apr 2014 02:28:55 +0000

Да, об этом я не подумал ...

Тогда можно записывать в реестр команды в виде

Run: "calc.exe"

и заменить строки кода

if InStr(A_LoopField, "Run: """)

или просто заменить строки кода

if InStr(A_LoopField, "Run """)

шансы получить неверный ответ сводятся к 0 ....

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (serzh82saratov) — Tue, 29 Apr 2014 18:42:40 +0000

согласитесь, мало шансов встретить екзешник с таким экзотическим названием

Не обязательно так целиком. А вообще в строке есть ***сlose***, или если в Run есть ***Send*** то до Run дело не дойдёт. Так что...

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Tue, 29 Apr 2014 18:00:59 +0000

Вероятно, других вариантов уже не будет, потому вопрос можно считать решенным.

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Tue, 29 Apr 2014 17:59:48 +0000

Спасибо, serzh82saratov! Тоже хороший, рабочий вариант.

По поводу запуска

Run "Close.exe"

согласитесь, мало шансов встретить екзешник с таким экзотическим названием. Ну а двойные кавычки - это, как вариант. Конечно можно использовать и другие разделители. Например разделитель = будет более уместен ...

Благодарю за ответ!

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (serzh82saratov) — Tue, 29 Apr 2014 16:48:21 +0000

Да и вообще при чтении такой строки:

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)

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (serzh82saratov) — Tue, 29 Apr 2014 16:45:21 +0000

RegExReplace тут очень избыточен, да и зачем параметры заключать в кавычки?

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Tue, 29 Apr 2014 16:02:09 +0000

Благодаря teadrinker'у и его универсальному шаблону, который выбирает все содержимое между двойными кавычками " " , нашел оптимальное решение.

Пример команд, содержащихся в 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-файлов.

Если есть другие, более лучшие варианты для решения этого вопроса, напишите код.

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Tue, 29 Apr 2014 10:06:47 +0000

Благодарю за ответы!

Значит, как говорил плешивый вождь краснож...ых "Правильной дорогой идете, товарисЧи!"
Про TempFile.ahk я тоже думал, но этот метод не совсем тот ... - полагаю, более медленный из-за формирования файла. К тому-же, эти команды многократного исполнения ( очень многократного ) ...

Благодарю за помощь!

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (YMP) — Tue, 29 Apr 2014 09:27:38 +0000

Да, поскольку интерпретацию исходного кода "на лету" АНК не поддерживает.

Re: AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (teadrinker) — Tue, 29 Apr 2014 09:19:45 +0000

Считать всё сразу, сохранить в AHK-файл, запустить его. После запуска файл можно удалить.

AHK: Построчное считывание и выполнение команд из REG_MULTI_SZ

null@example.com (Dr.Jekyll) — Mon, 28 Apr 2014 23:54:01 +0000

Добрый день всем, уважаемые!

Попытаюсь кратко сформулировать суть вопроса:
Имеется скрипт, который должен построчно считывать команды на исполнение из параметра реестра 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 ... и т.п. ?

Заранее благодарю всех за помощь!