在列表框中显示命令提示符中显示的消息

Question

实际上，我想显示 cmd 提示符中显示的消息，例如：

Ping google.com -t

以下消息将显示在 cmd 提示符中：

Reply from 74.125.235.17: bytes=32 time=133ms TTL=51
Reply from 74.125.235.17: bytes=32 time=130ms TTL=51
Reply from 74.125.235.17: bytes=32 time=130ms TTL=51
Reply from 74.125.235.17: bytes=32 time=130ms TTL=51

Ping statistics for 74.125.235.17:
Packets: Sent = 4, Received = 4, Lost = 0 (0% loss),
Approximate round trip times in milli-seconds:
Minimum = 130ms, Maximum = 133ms, Average = 130ms

我想将确切的信息显示到我的程序的列表框在命令提示符中显示时立即显示，而不是在整个过程完成后。我怎样才能这样做？有什么帮助吗？我正在使用 C#/vb.net 。

就像在 ping google.com -t 中一样，我想在列表框中立即显示每条回复消息。

Answer 1

为此，您需要利用标准输出上的异步读取...另请参阅此...

在这里您可以找到所描述问题的解决方案以及完整的源代码。 ..它甚至考虑了 stderr...

其他有趣的资源：

• http://msdn.microsoft.com/en-us/library/ccf1tfx0.aspx
• http://msdn.microsoft.com/en-us/library/system.diagnostics.process.startinfo.aspx

Answer 2

试试这个：

Private Results As String

'The "Delegate" is used to correct the threading issue (Can't update control directly in VB.net 08/10), and invokes the needed text update.
Private Delegate Sub delUpdate()
Private Finished As New delUpdate(AddressOf UpdateText)

Private Sub UpdateText()
resultsTextBox.Text = Results
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim CMDThread As New Threading.Thread(AddressOf CMDAutomate)
CMDThread.Start()
End Sub

Private Sub CMDAutomate()

Dim myprocess As New Process
Dim StartInfo As New System.Diagnostics.ProcessStartInfo

'Starts the CMD Prompt
StartInfo.FileName = "cmd.exe"
StartInfo.RedirectStandardInput = True
StartInfo.RedirectStandardOutput = True

'Required to redirect
StartInfo.UseShellExecute = False

'Disables the creation of a CMD Prompt outside application.
StartInfo.CreateNoWindow = True


myprocess.StartInfo = StartInfo
myprocess.Start()
Dim SR As System.IO.StreamReader = myprocess.StandardOutput
Dim SW As System.IO.StreamWriter = myprocess.StandardInput

'Runs the command you entered...
SW.WriteLine(TextBox1.Text)

'Exits CMD Prompt 
SW.WriteLine("exit")

'Displayes the results...
Results = SR.ReadToEnd
SW.Close()
SR.Close()

'Invokes Finished delegate, which updates textbox with the results text
Invoke(Finished)
End Sub

Answer 3

为您快速解决。

• 将输出重定向到 C:\ping.txt

  “Ping google.com -t > C:\ping.txt”

• 每 x 秒读取 ping.txt

  File.ReadAllText("C:\ping.txt")

• 更新列表框UI安全线程参考

  如何从 C# 中的另一个线程更新 GUI？