Как прочитать текст из cmd?

[ArtInt]

Гуглил Искал по форуму, нашёл, что нужно юзать использовать StdoutRead()
Но если пытаюсь вывести msgbox'ом полученную строку, то выводит пустоту.
Просьба объяснить мне, что я не правильно делаю, как пользоваться этой функцией и рассказать о других решениях данной проблемы.

Код, в котором не выводится StdoutRead():

Opt ("SendKeyDelay",0)

Dim $CMD_PId
Dim $vCMD
Dim $sRead

$CMD_PId = Run (@ComSpec)

$vCMD = WinGetHandle('[CLASS:ConsoleWindowClass]', '')

;//Safety
	WinWait ($vCMD)
	WinActivate ($vCMD)
	WinWaitActive ($vCMD)
;//


Pr_Send ($vCMD,"cls")
Pr_Send ($vCMD,"cd C:\Users\USER\Desktop\java")
Pr_Send ($vCMD,"javac test.java")
Pr_Send ($vCMD,"java test")

$sRead = StdoutRead($CMD_PId)
msgbox (64,"Stdout Read:", $sRead)

Func Pr_Send ($handle, $param)
Dim $gotostart = true
	While ($gotostart)
		$gotostart = false
	If WinActive ($handle) then
		Send ($param&" {ENTER}")
	Else
		WinWaitActive ($handle,"",5)
		If WinActive ($handle) then
			$gotostart = True
		Else
			Return 0
		EndIf
	EndIf
	WEnd
EndFunc

Где test.java:

public class test {
	public static void main (String[] args){
		System.out.println ("Hello World!");
	}
}

P.S. Эх... Если бы не Б.8 правил...

 

[joiner]

пример

 

[ArtInt]

joiner
а проще никак? 0_о

 

[joiner]

в справке то же самое ..я имею ввиду сам принцип считывания

 

[ArtInt]

joiner
Проблема ещё в том, что я не могу даже запустить скрипт, ибо библиотека WinAPIEx не входит в состав стандартных (по крайней мере, у меня её нет). В результате поиска по файловой области сайта, раздела UDF я нашёл её, выкладываемую Yashied'ом, однако ссыль битая.

Где можно скачать эту библиотеку?

 

[sngr]

Не там искал http://autoit-script.ru/index.php/topic,47.0.html, но в приведённом примере она не нужна.

 

[ArtInt]

Спасибо за ссылку.

 

[ArtInt]

Насколько я понимаю, за чтение текста отвечают строки

While 1
    $sBuffer = StdoutRead($iPID)
    If @error Then ExitLoop
    If $sBuffer Then
        $sRead &= $sBuffer
    EndIf
    Sleep(2)
WEnd
;$sRead = _WinAPI_OemToChar($sRead)
$sRead = StringStripCR($sRead)
$sRead = StringRegExpReplace($sRead, '((^[\n]*)|([\n]*$))', '')
$sRead = StringRegExpReplace($sRead, '[\n]{2,}', @LF)
$aRead = StringSplit($sRead, @LF)
$Lines_r = _ArrayToString($aRead, @CRLF, 1)

И в итоге, текст хранится в переменой $Lines_r.

Однако, у меня всё равно выводится пустой msgbox():

Opt ("SendKeyDelay",0)
#include <Array.au3>

Dim $CMD_PId
Dim $vCMD
Dim $sRead
Dim  $sBuffer

$CMD_PId = Run (@ComSpec)

$vCMD = WinGetHandle('[CLASS:ConsoleWindowClass]', '')

;//Safety
	WinWait ($vCMD)
	WinActivate ($vCMD)
	WinWaitActive ($vCMD)
;//


Pr_Send ($vCMD,"cls")
Pr_Send ($vCMD,"cd C:\Users\USER\Desktop\java")
Pr_Send ($vCMD,"javac test.java")
Pr_Send ($vCMD,"java test")

While 1
    $sBuffer = StdoutRead($CMD_PID)
    If @error Then ExitLoop
    If $sBuffer Then
        $sRead &= $sBuffer
    EndIf
    Sleep(2)
WEnd
$sRead = StringStripCR($sRead)
$sRead = StringRegExpReplace($sRead, '((^[\n]*)|([\n]*$))', '')
$sRead = StringRegExpReplace($sRead, '[\n]{2,}', @LF)
$aRead = StringSplit($sRead, @LF)
$Lines_r = _ArrayToString($aRead, @CRLF, 1)
msgbox (64,"Stdout Read:", $Lines_r)

Func Pr_Send ($handle, $param)
Dim $gotostart = true
	While ($gotostart)
		$gotostart = false
	If WinActive ($handle) then
		Send ($param&" {ENTER}")
	Else
		WinWaitActive ($handle,"",5)
		If WinActive ($handle) then
			$gotostart = True
		Else
			Return 0
		EndIf
	EndIf
	WEnd
EndFunc

Что я делаю\понимаю не так?
Если вместо

Pr_Send ($vCMD,"cls")
Pr_Send ($vCMD,"cd C:\Users\USER\Desktop\java")
Pr_Send ($vCMD,"javac test.java")
Pr_Send ($vCMD,"java test")

Поставить

Pr_Send ($vCMD,"echo 1")

Результат не меняется.

 

[madmasles]

ArtInt [?]

Блин, ИМХО вы злоупотребляете Б.8, прям grammar nazy какие-то.

Категорически запрещается публичное обсуждение Администрации и Модераторов форума!

Вы это читали?

 

[sngr]

ArtInt

$s_Read=''
$i_PID = Run('ipconfig', '', '', 0x2)
	While 1
		$s_Read &= StdoutRead($i_PID)
		If @error Then ExitLoop
		Sleep(1)
	WEnd
MsgBox(0,'',$s_Read )

 

[ArtInt]

sngr
А чем это отличается от того, что я написал выше?

 

[sngr]

$i_PID = Run(@ComSpec & ' /C echo 1', '', '', 0x2)

 

[ArtInt]

sngr
хм... Работает.

Однако, нет ли другого решения данной проблемы, т.к. перечислять команды через "&" не очень удобно?

 

[sngr]

Я не совсем понимаю что ты хочешь сделать.

Pr_Send ($vCMD,"cls")
Pr_Send ($vCMD,"cd C:\Users\USER\Desktop\java")
Pr_Send ($vCMD,"javac test.java")
Pr_Send ($vCMD,"java test")

- что это? Надо запустить javac test.java и java test?

 

[ArtInt]

sngr
Да.


А вообще, хотелось бы открыть консольное окно, потом туда писать команды, а в нужные моменты выводить то, что выдаёт консоль.

Это возможно?

 

[madmasles]

ArtInt,
*Click*

 

[ArtInt]

madmasles
Объясни мне тогда, пожалуйста, как мне реализовать следующее:

открыть консольное окно, потом туда писать команды, а в нужные моменты выводить то, что выдаёт консоль

?

 

[Papazol]

Задача была следующая: запустить команду, которая выполняется очень ОЧЕНЬ долго и в процессе изредка выдаёт в консоль некоторую инфу. Эту инфу надо перехватить и выдать в окне скрипта. Причём перехватить не всю целиком, как делается во всех найденных мною примерах, а в реальном времени. Для этого необходимо использовать в функции StdoutRead опцию peek=false, иначе при каждом считывании инфы она станет повторяться с самого начала. Сломал всю голову, как написать, что peek=false и binary=false, так как нигде не нашёл ни одного примера записи функции в этом виде. :stars: Вот, теперь он есть. Как всё просто, но время потеряно... Я тупой?

$conv = Run ( @ComSpec & " /c " & $command, "", @SW_HIDE, $STDERR_MERGED )
$Read= ''
While 1
	$Read = StdoutRead ( $conv, false, false )
	If @error Then ExitLoop
	If $Read <> '' Then
	     GUICtrlSetData ( $Edit, $Read & @CRLF, 1 )
	EndIf
	Sleep ( 2000 )
WEnd

Запуск команды Run c опциями, отличными от $STDERR_MERGED, не приводил к успеху. При запуске скрипта из редактора текст, выдаваемый в консоль запускаемой командой, появлялся в консоли же редактора, но не в переменной $Read. Так обидно видеть, что нужный текст ловится, но не тем, чем нужно! Это не упоминается нигде или я не нашёл?