Captare output CMD in timp real

Am codul urmator:

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim myProcess As Process = New Process
		Dim s As String
		myProcess.StartInfo.FileName = "c:\windows\system32\cmd.exe"
		myProcess.StartInfo.UseShellExecute = False
		myProcess.StartInfo.CreateNoWindow = True
		myProcess.StartInfo.RedirectStandardInput = True
		myProcess.StartInfo.RedirectStandardOutput = True
		myProcess.StartInfo.RedirectStandardError = True
		myProcess.Start()

		Dim sIn As System.IO.StreamWriter = myProcess.StandardInput
		Dim sOut As System.IO.StreamReader = myProcess.StandardOutput
		Dim sErr As System.IO.StreamReader = myProcess.StandardError


		sIn.AutoFlush = True
		sIn.Write("ping google.ro" & System.Environment.NewLine)
		sIn.Write("exit" & System.Environment.NewLine)
		s = sOut.ReadToEnd()
		cmdOutputTextBox.Text = s

		If Not myProcess.HasExited Then
			myProcess.Kill()
		End If

		cmdOutputTextBox.Visible = True
		sIn.Close()
		sOut.Close()
		sErr.Close()
		myProcess.Close()
	End Sub

Merge perfect, primesc outputul intr-un box dar doar atunci cand comanda s-a finalizat iar cmd-ul se inchide.
Spre exemplu vreau sa rulez "ping -t google" iar eu sa primesc output-ul linie cu linie.

Multumesc

si, de unde ai codul?

		sIn.Write("exit" & System.Environment.NewLine)
		s = sOut.ReadToEnd()
		cmdOutputTextBox.Text = s

face exact ce i-ai spus sa faca

Editat de MarianG, 26 noiembrie 2011 - 07:23.