Как работает функция ConsoleRead?

[Kalisnik]

Что-то не пойму... в поток данные вводятся, а выводиться не хотят.

Dim $q, $s

$q = "q1"
ConsoleWrite($q & @CRLF)
Sleep(1000)
$s = ConsoleRead()
MsgBox(0, "", $s)

 

[kaster]

Local $data
While 1
	$data = ""
	While 1
		$data &= ConsoleRead()
		If StringInStr($data, @LF) Then
			If StringInStr($data, "exit") Then Exit
			ExitLoop
		Sleep(25)
		EndIf
	WEnd
	ConsoleWrite($data & @CRLF)
WEnd