Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Аватара для kaster

Старожил


Сообщения: 367
Благодарности: 91

Профиль | Отправить PM | Цитировать


Вот небольшой пример, попробуй вставить свою программу и посмотреть
Код: Выделить весь код
; Demonstrates StdoutRead()
#include <Constants.au3>
#include <Encoding.au3>
#include <GUIConstantsEx.au3>
$myapp = 'ping ya.ru'
$hGUI = GUICreate('My Apps output stream', 500, 200)
$hEdit = GUICtrlCreateEdit('', 10, 10, 480, 150)
$hButtonStart = GUICtrlCreateButton('Start', 10, 170, 235, 20)
$hButtonStop = GUICtrlCreateButton('Stop', 255, 170, 235, 20)
;$hButtonEnd =
GUISetState()

Do
	$msg = GUIGetMsg()
	Switch $msg
		 Case $hButtonStart
			Local $pid = Run($myapp, '', @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
			GUICtrlSetData($hEdit, '')
			While 1
				$msg = GUIGetMsg()
				$line = StdoutRead($pid)
				If @error OR $msg = $hButtonStop Then
					ProcessClose($pid)
					GUICtrlSetData($hEdit, GUICtrlRead($hEdit) & '-------------- Stopped -----------------')
					ExitLoop
				EndIf
				If $line Then GUICtrlSetData($hEdit, GUICtrlRead($hEdit) & _Encoding_OEM2ANSI($line))
			Wend
	EndSwitch
Until $msg = $GUI_EVENT_CLOSE

-------
Русское сообщество пользователей AutoIt
autoit@conference.jabber.ru - Конференция на jabber.ru


Отправлено: 20:59, 17-04-2011 | #2