[911]

كود :

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click

   Dim procStartInfo As New ProcessStartInfo("cmd")
   procStartInfo.RedirectStandardInput = True
   procStartInfo.RedirectStandardOutput = True
   procStartInfo.CreateNoWindow = True
   procStartInfo.UseShellExecute = False

   Dim proc As Process = Process.Start(procStartInfo)

   If Not IsNothing(proc) Then
       proc.StandardInput.WriteLine("adb install xxxx.apk ")
       proc.StandardInput.Close()

       Dim result As String = proc.StandardOutput.ReadToEnd

       MsgBox(result)

   End If

End Sub