Vb.net 从visual basic打开的控制台出现问题

为什么这会导致弹出一个空白控制台，而不是激活ping的控制台。当控制台关闭且输出显示在textbox4.text中时，它会在“ping 192.168.1.254和100字节数据”处停止，并且不会显示实际ping，因此我猜测控制台根本没有显示，ping会在发送第一个ping之前停止

发生了什么事

谢谢你的帮助

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

End Sub

Private Sub STARTBUTTON_Click(sender As Object, e As EventArgs) Handles STARTBUTTON.Click

    Dim myprocess As New Process
    Dim StartInfo As New System.Diagnostics.ProcessStartInfo
    Dim cmdcode As String = "ping " + TextBox1.Text + " -t -l " + TextBox2.Text
    StartInfo.FileName = "cmd" 'starts cmd window
    StartInfo.RedirectStandardInput = True
    StartInfo.RedirectStandardOutput = True
    StartInfo.UseShellExecute = False 'required to redirect
    myprocess.StartInfo = StartInfo
    myprocess.Start()
    Dim SR As System.IO.StreamReader = myprocess.StandardOutput
    Dim SW As System.IO.StreamWriter = myprocess.StandardInput
    SW.WriteLine(cmdcode) 'the command you wish to run.....
    SW.WriteLine("exit") 'exits command prompt window
    TextBox4.Text = SR.ReadToEnd 'returns results of the command window
    SW.Close()
    SR.Close()

End Sub

End Class

---

控制台不会显示任何内容，因为您已将输出重定向到流阅读器。否则，这段代码会起作用-这很笨拙，但如果您等待流程自行完成，您的文本框将填充完整的输出。控制台将不会显示任何内容，因为您已将输出重定向到流阅读器。否则，这段代码就可以工作了——它很笨拙，但如果您等待流程自行完成，您的文本框将填充完整的输出。