+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب كود جلب نتيجة امر من الدوز الى texe (/showthread.php?tid=26354)
طلب كود جلب نتيجة امر من الدوز الى texe - azizalmassah - 03-09-18
السلام عليكم احبابي
هذه اول مشاركة لي معاكم
عندي مشكلة انا عامل برنامج يفلش اجهزة اندرويد zte بشكل خاص باستخدام vb.net الفكرة اني برسل امر للدوز عن طريق vb
مثال امر تثبيت تطبيق
كود :
Shell("adb install xxxx.apk ", AppWinStyle.Hide)انا ابي اخذ المخرجات واحولها الى نص واحطها على تكست
RE: طلب كود جلب نتيجة امر من الدوز الى texe - 911 - 10-09-18
كود :
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