Что нового

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

Kalisnik

Эволюция
Сообщения
295
Репутация
63
Что-то не пойму... в поток данные вводятся, а выводиться не хотят. :shok:
Код:
Dim $q, $s

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

kaster

Мой Аватар, он лучший самый
Команда форума
Глобальный модератор
Сообщения
4,020
Репутация
626
Код:
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
 
Верх