منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - طلب كود جلب نتيجة امر من الدوز الى texe

السلام عليكم احبابي
هذه اول مشاركة لي معاكم
عندي مشكلة انا عامل برنامج يفلش اجهزة اندرويد zte بشكل خاص باستخدام vb.net الفكرة اني برسل امر للدوز عن طريق vb
مثال امر تثبيت تطبيق

كود :

Shell("adb install xxxx.apk ", AppWinStyle.Hide)

انا ابي اخذ المخرجات واحولها الى نص واحطها على تكست

كود :

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

azizalmassah

911