vb.net – 如何在Visual Basic中逐行输出命令提示符窗口？

我试图逐行获取命令行输出,直到输出结束,但我无法这样做.我在我的表单中使用它,此代码在单击按钮时执行.
你能告诉我我的代码有什么问题吗？

Dim proc As processstartinfo = New processstartinfo("cmd.exe")
    Dim pr As Process
    proc.CreateNowindow = True
    proc.UseShellExecute = False
    proc.RedirectStandardInput = True
    proc.RedirectStandardOutput = True
    pr = Process.Start(proc)
    pr.StandardInput.WriteLine("cd C:\sdk\platform-tools\")
    pr.StandardInput.WriteLine("adb help")
    Dim helpArray(20) as String
    For i as Integer 1 To 7
    helpArray(i) = pr.StandardOutput.ReadLine()
    Next
    pr.StandardOutput.Close()

执行此代码时程序停止响应.

我做了一些研究. adb help将输出写入STDERR.所以你需要这样的东西：

Dim proc As processstartinfo = New processstartinfo("cmd.exe")
    Dim pr As Process
    proc.CreateNowindow = True
    proc.UseShellExecute = False
    proc.RedirectStandardInput = True
    proc.RedirectStandardOutput = True
    pr = Process.Start(proc)
    pr.StandardInput.WriteLine("C:\sdk\platform-tools")
    pr.StandardInput.WriteLine("adb help 2>&1")
    pr.StandardInput.Close()
    Console.WriteLine(pr.StandardOutput.ReadToEnd())
    pr.StandardOutput.Close()

抓住它.例如,如果你调用ipconfig,则不需要2>& 1.