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

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

2015-09-16T16:05:55Z

Есть ли какой-нибудь хитрый способ показывать в 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: получить в переменную результат работы другой программы

2015-01-24T11:31:39Z

Malcev пишет:

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

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

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

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

2015-01-23T21:03:51Z

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

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

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

2015-01-23T19:37:35Z

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

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

2014-10-21T09:57:18Z

YMP пишет:

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

Спасибо!

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

2014-10-21T09:47:52Z

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

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

2014-10-21T09:37:16Z

teadrinker пишет:

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

Поправил

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

2014-10-21T09:18:29Z

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

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

2014-10-21T08:55:00Z

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

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

2014-10-16T04:26:18Z

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: получить в переменную результат работы другой программы

2014-10-16T04:11:58Z

offtopic

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

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

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

2014-10-16T04:02:41Z

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

!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: получить в переменную результат работы другой программы

2014-10-16T03:53:27Z

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

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

2014-10-16T03:37:12Z

YMP пишет:

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

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

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

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

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

2014-10-16T03:15:26Z

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

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