Серый форум — AHK: получить в переменную результат работы другой программы

Re: AHK: получить в переменную результат работы другой программы

null@example.com (Malcev) — Wed, 16 Sep 2015 16:05:55 +0000

Есть ли какой-нибудь хитрый способ показывать в Cmd, что в данный момент исполняется, паралельно перенаправляя результат в strStdOut или strStdErr?
Так конечно же не получается - экран темный.

objShell := ComObjCreate("WScript.Shell")
objExec := objShell.Exec(ComSpec " /C echo list volume | C:\Windows\System32\diskpart.exe")
strStdOut := ""
while, !objExec.StdOut.AtEndOfStream
   strStdOut := objExec.StdOut.ReadAll()

Re: AHK: получить в переменную результат работы другой программы

null@example.com (emmetoya) — Sat, 24 Jan 2015 11:31:39 +0000

Malcev пишет:

Вписать в начале:

DllCall("AllocConsole")
WinHide % "ahk_id " DllCall("GetConsoleWindow", "ptr")

Спасибо, работает!

Re: AHK: получить в переменную результат работы другой программы

null@example.com (Malcev) — Fri, 23 Jan 2015 21:03:51 +0000

Вписать в начале:

DllCall("AllocConsole")
WinHide % "ahk_id " DllCall("GetConsoleWindow", "ptr")

Re: AHK: получить в переменную результат работы другой программы

null@example.com (emmetoya) — Fri, 23 Jan 2015 19:37:35 +0000

Можно ли сделать тоже самое, но не показывая окно CMD?

Re: AHK: получить в переменную результат работы другой программы

null@example.com (emmetoya) — Tue, 21 Oct 2014 09:57:18 +0000

YMP пишет:

У objExec есть свойство Status. Пока программа не завершилась, оно = 0.

Спасибо!

Re: AHK: получить в переменную результат работы другой программы

null@example.com (YMP) — Tue, 21 Oct 2014 09:47:52 +0000

У objExec есть свойство Status. Пока программа не завершилась, оно = 0.

Re: AHK: получить в переменную результат работы другой программы

null@example.com (emmetoya) — Tue, 21 Oct 2014 09:37:16 +0000

teadrinker пишет:

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

Поправил

Re: AHK: получить в переменную результат работы другой программы

null@example.com (teadrinker) — Tue, 21 Oct 2014 09:18:29 +0000

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

Re: AHK: получить в переменную результат работы другой программы

null@example.com (emmetoya) — Tue, 21 Oct 2014 08:55:00 +0000

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

Re: AHK: получить в переменную результат работы другой программы

null@example.com (teadrinker) — Thu, 16 Oct 2014 04:26:18 +0000

emmetoya пишет:

Или с утра голова прояснилась, или звузды легли по-другому

Да нет, всё проще, этот вариант был опробован с ошибкой из-за того, что я скопировал неправильно:

objShell.Exec("""" . compareTool . """ -metric mepp """ . pic1 . """ """ . pic2 . """ """ . pic3 . """")

вместо

objExec := objShell.Exec("""" . compareTool . """ -metric mepp """ . pic1 . """ """ . pic2 . """ """ . pic3 . """")

Drugoy пишет:

Опять COM-объекты. Полезная штука, да найти б где толково описано как ими пользоваться

COM Object Reference, далее по ссылкам.

Re: AHK: получить в переменную результат работы другой программы

null@example.com (Drugoy) — Thu, 16 Oct 2014 04:11:58 +0000

offtopic

+ открыть спойлер

Опять COM-объекты. Полезная штука, да найти б где толково описано как ими пользоваться (а не просто список всех команд/объектов)...

Re: AHK: получить в переменную результат работы другой программы

null@example.com (emmetoya) — Thu, 16 Oct 2014 04:02:41 +0000

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

!c::
    compareTool := "C:\Program Files\ImageMagick-6.8.9-Q16\compare.exe"
    pic1 := "C:\Program Files\ImageMagick-6.8.9-Q16\m11.jpeg"
    pic2 := "C:\Program Files\ImageMagick-6.8.9-Q16\m22.jpeg"
    pic3 := "C:\Program Files\ImageMagick-6.8.9-Q16\m3.png"
    objShell := ComObjCreate("WScript.Shell")
    objExec := objShell.Exec("""" . compareTool . """ -metric mepp """ . pic1 . """ """ . pic2 . """ """ . pic3 . """")
    strStdOut := ""
    while, !objExec.StdOut.AtEndOfStream
       strStdOut := objExec.StdOut.ReadAll()
    MsgBox %strStdOut%

return

выводит пустой MsgBox. Не считывает! Точнее я думаю считывает, но там пусто.

И почему мы тут считываем objExec.StdOut если в документации к утилите четко сказано, что она отправляет в StdErr??
Или в ваших тестах этим кодом удалось вывести результат работы тестовой программы, выводящей в StdErr?

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

!d::
    compareTool := "C:\Program Files\ImageMagick-6.8.9-Q16\compare.exe"
    pic1 := "C:\Program Files\ImageMagick-6.8.9-Q16\m11.jpeg"
    pic2 := "C:\Program Files\ImageMagick-6.8.9-Q16\m22.jpeg"
    pic3 := "C:\Program Files\ImageMagick-6.8.9-Q16\m3.png"
    objShell := ComObjCreate("WScript.Shell")
    objExec := objShell.Exec("""" . compareTool . """ -metric mepp """ . pic1 . """ """ . pic2 . """ """ . pic3 . """")
    strStdErr := ""
    while, !objExec.Stderr.AtEndOfStream
    strStdErr := objExec.Stderr.ReadAll()
    MsgBox %strStdErr%

return

Заработал! Обрабатывает, в переменную принимает значения, MsgBox отображает результат.
Спасибо всем за участие!

Re: AHK: получить в переменную результат работы другой программы

null@example.com (YMP) — Thu, 16 Oct 2014 03:53:27 +0000

Нет, я про код в посте 26. Читаешь в strStdErr, а выводишь strStdOut.

Re: AHK: получить в переменную результат работы другой программы

null@example.com (teadrinker) — Thu, 16 Oct 2014 03:37:12 +0000

YMP пишет:

Считываешь в одну переменную, а выводишь в MsgBox другую.

В смысле, хочешь сказать, я и там какие-то переменные перепутал? Там в MsgBox выводится непосредственно то, что CmdRet возвращает.

А вообще для тестовой программки, выводящей в StdError, работает как этот вариант, так и CmdRet.

У меня тоже оба варианта сработали.

Re: AHK: получить в переменную результат работы другой программы

null@example.com (YMP) — Thu, 16 Oct 2014 03:15:26 +0000

Ну да, правильно. Считываешь в одну переменную, а выводишь в MsgBox другую.

А вообще для тестовой программки, выводящей в StdError, работает как этот вариант, так и CmdRet.