如何在文本框中显示 cmd 命令的输出

Question

我试图找到一些 vb 代码的工作示例来发出 dir 或 ping 或其他 cmd 命令之类的命令，并在表单文本框中显示它们的输出。 我在网上找到了几个旧示例，但似乎没有一个在我的 VB Express 2017 环境中工作。 较旧的示例在打开过程中会自动转换，但也不起作用……有人看过工作版本吗？ 非常感谢您！

亲切的问候，埃里克

Answer 1

好吧，你可以采用一些现有的代码。 （不是一个坏主意）。 但是，很多示例都有各种花哨的异步代码、事件代码。 50 多年以来，hello world 程序仍然存在，这是一个巨大而巨大的理由！

它们允许人们开始学习。

因此，我建议您放入一个文本框、一个按钮，然后放入一个更大的多行文本框。

像这样说

因此，我们可以输入命令提示符。 当我们点击运行命令时，它将运行该命令，并捕获输出。

该按钮后面的代码是这样的：

Private Sub cmdMyShell_Click(sender As Object, e As EventArgs) Handles cmdMyShell.Click

    Dim MyProcess As New Process
    MyProcess.StartInfo.FileName = "cmd.exe"
    MyProcess.StartInfo.Arguments = " /C" & TextBox1.Text

    MyProcess.StartInfo.UseShellExecute = False
    MyProcess.StartInfo.RedirectStandardOutput = True
    MyProcess.Start()

    ' get the output
    Dim strMyBuffer As String = ""

    strMyBuffer = MyProcess.StandardOutput.ReadToEnd
    MyProcess.WaitForExit()

    ' now display this output in the text box:
    TextBox2.Text = strMyBuffer

End Sub

好的，所以当我在上面运行时，得到这个：

或者，如何说 ipconfig。

所以，上面是一段非常简单的代码。 如果您使文本框足够大（并锚定到右侧+底部），那么您可以重新调整窗口大小。

例如这个：

我还为文本框使用了固定的字体大小（Courier new 12）。

所以上面是相当裸露的骨头。 如果你真的想扩展这个？ 然后我认为其他链接和示例代码是更好的示例。

我很想发布一个带有“管道”> 将输出重定向到文本文件的 shell() 命令。 但是，那将需要您为从文本文件输出的每个命令读取创建的文本文件。