vb.net：如何从cmd获取结果到文本框

Question

我试图在cmd中运行此命令并将结果导入我的textbox4.text而没有成功命令：cscript“％windir％\\ system32 \\ slmgr.vbs”/ xpr | findstr / S / M / I / C：“永久”

导致需要进入我的文本框4：机器被永久激活。

我写这段代码没有成功：

    Dim qassam As String

    qassam = Shell("whoami")
    TextBox4.Text = CStr(qassam)

而且我发现了这个但不起作用：

 Dim oProcess As New Process()
    Dim oStartInfo As New ProcessStartInfo("cmd.exe", "cscript %windir%\system32\slmgr.vbs /xpr | findstr /S /M /I /C:permanently ")
    oStartInfo.UseShellExecute = False
    oStartInfo.RedirectStandardOutput = True
    oProcess.StartInfo = oStartInfo
    oProcess.Start()

    Dim sOutput As String
    Using oStreamReader As System.IO.StreamReader = oProcess.StandardOutput
        sOutput = oStreamReader.ReadToEnd()
    End Using

    TextBox4.Text = sOutput   'txtOutput being the output textbox.

我在vb.net新手我需要简单的代码请理解

Answer 1

通过添加此/ k解决（“cmd.exe”，“/ c cscript％windir％\\ system32 \\ slmgr.vbs / xpr | findstr / S / M / I / C：永久”）

 Dim oProcess As New Process()
    Dim oStartInfo As New ProcessStartInfo("cmd.exe", " /c cscript ""%windir%\system32\slmgr.vbs"" /xpr | findstr ""The machine""")
    oStartInfo.UseShellExecute = False
    oStartInfo.RedirectStandardOutput = True
    oProcess.StartInfo = oStartInfo
    oProcess.Start()

    Dim sOutput As String
    Using oStreamReader As System.IO.StreamReader = oProcess.StandardOutput
        sOutput = oStreamReader.ReadToEnd()
    End Using

    TextBox4.Text = sOutput