使用 Visual Basic 从 cmd 获取响应答案

【问题标题】：get response from cmd with visual basic使用 Visual Basic 从 cmd 获取响应
【发布时间】：2014-05-23 16:40:47
【问题描述】：

我在 Visual Basic 中创建了一个应用程序，它打开 cmd 并通过 VPN 将文件传输到 Android 接收器。它工作正常，但我如何从 cmd 获得响应以检查传输是否成功？

示例代码

公开课表1

Private Sub btnSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSend.Click
    Shell("cmd.exe /k" + "adb push C:\Users\user\Desktop\Newfolder\1.png /sdcard/test")

End Sub

Private Sub btnConnect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConnect.Click
    Shell("adb connect " + TextBox1.Text)
    btnSend.Enabled = True
    btnConnect.Enabled = False
End Sub

结束类

【问题讨论】：

@SemicolonsandDuctTape 我编辑了我的帖子你能帮我解决我的新问题吗？

标签： android visual-studio-2012 visual-studio-2008 vpn file-transfer

【解决方案1】：

我假设您想要获取 adb 命令的返回码或标准输出。无论哪种方式，您都需要启动自己的进程而不是使用 Shell 命令，因为：

进程终止时可以返回退出代码。但是，您不能使用 Shell 来检索此退出代码，因为 Shell 在等待终止时会返回零，而且该进程在与 Shell 不同的对象中运行。来自http://msdn.microsoft.com/en-us/library/xe736fyk%28v=vs.90%29.aspx

该链接将向您展示如何设置返回退出代码的进程。相关代码是

Dim procID As Integer
Dim newProc As Diagnostics.Process
newProc = Diagnostics.Process.Start("C:\WINDOWS\NOTEPAD.EXE")
procID = newProc.Id
newProc.WaitForExit()
Dim procEC As Integer = -1
If newProc.HasExited Then
    procEC = newProc.ExitCode
End If
MsgBox("Process with ID " & CStr(ProcID) & _
    " terminated with exit code " & CStr(procEC))

如果你想要的不是返回码，而是程序的标准输出，那么根据http://msdn.microsoft.com/en-us/library/vstudio/system.diagnostics.process.standardoutput?cs-save-lang=1&cs-lang=vb#code-snippet-4 你可以通过这个代码 sn-p 做到这一点：

Imports System
Imports System.IO
Imports System.Diagnostics

Class IORedirExample
    Public Shared Sub Main()
        Dim args() As String = Environment.GetCommandLineArgs()
        If args.Length > 1
            ' This is the code for the spawned process'

            Console.WriteLine("Hello from the redirected process!")
        Else 
            ' This is the code for the base process '

            Dim myProcess As New Process()
            ' Start a new instance of this program but specify the spawned version. '

            Dim myProcessStartInfo As New ProcessStartInfo(args(0), "spawn")
            myProcessStartInfo.UseShellExecute = False
            myProcessStartInfo.RedirectStandardOutput = True
            myProcess.StartInfo = myProcessStartInfo
            myProcess.Start()
            Dim myStreamReader As StreamReader = myProcess.StandardOutput
            ' Read the standard output of the spawned process. '
            Dim myString As String = myStreamReader.ReadLine()
            Console.WriteLine(myString)

            myProcess.WaitForExit()
            myProcess.Close()
        End If 
    End Sub 
End Class

当您自己尝试时，请记住您必须包含

myProcessStartInfo.UseShellExecute = False

行也是如此。

【讨论】：