OutputDataReceive für CMD (Pfad fehlt)

  • VB.NET

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von TheBlackSnitter.

    OutputDataReceive für CMD (Pfad fehlt)

    Hay VB-Paradise Team,

    ich hab lange nichts mehr verfasst und melde mich nun zurück aus dem Nirvana ^^

    Ich möchte etwas erstellen um über ADB ein Backup von Androidapps zu erstellen. Ich habe mir überlegt dass es für mich am einfachsten wäre wenn ich eine CMD öffne und diese im Hintergrund benutze. Ich verwende jetzt OutputDataReceive und es funktioniert eigentlich alles recht gut. Was mich etwas stört ist, dass ich nur den wirklichen Output-Text des Befehls zurück bekomme und nicht den Pfad der standartmäßig am Ende des Befehls angefügt wird.
    Spoiler anzeigen



    VB.NET-Quellcode

    1. Public Class Form_Main
    2. Dim ListviewTrigger As Boolean = False
    3. Private WithEvents MyProcess As Process
    4. Private Delegate Sub AppendOutputTextDelegate(ByVal text As String)
    6. Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    7. Me.AcceptButton = Button_Execute
    8. MyProcess = New Process
    9. With MyProcess.StartInfo
    10. .FileName = "CMD.EXE"
    11. .UseShellExecute = False
    12. .CreateNoWindow = True
    13. .RedirectStandardInput = True
    14. .RedirectStandardOutput = True
    15. .RedirectStandardError = True
    16. End With
    17. MyProcess.Start()
    19. MyProcess.BeginErrorReadLine()
    20. MyProcess.BeginOutputReadLine()
    21. AppendOutputText("Process Started at: " & MyProcess.StartTime.ToString)
    22. gettext()
    23. End Sub
    25. Sub gettext()
    27. End Sub
    28. Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    29. MyProcess.StandardInput.WriteLine("EXIT") 'send an EXIT command to the Command Prompt
    30. MyProcess.StandardInput.Flush()
    31. MyProcess.Close()
    32. End Sub
    34. Private Sub MyProcess_ErrorDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.ErrorDataReceived
    35. AppendOutputText(vbCrLf & "X " & e.Data)
    36. End Sub
    38. Private Sub MyProcess_OutputDataReceived(ByVal sender As Object, ByVal e As System.Diagnostics.DataReceivedEventArgs) Handles MyProcess.OutputDataReceived
    39. AppendOutputText(vbCrLf & e.Data)
    40. End Sub
    41. Private Sub ExecuteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button_Execute.Click
    42. MyProcess.StandardInput.WriteLine(TextBox_Input.Text)
    43. MyProcess.StandardInput.Flush()
    45. If TextBox_Input.Text.Contains("adb -d shell pm list packages") Then
    46. ListviewTrigger = True
    47. RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "Listviwetrigger: " & ListviewTrigger.ToString
    48. End If
    50. TextBox_Input.Text = ""
    51. End Sub
    53. Private Sub AppendOutputText(ByVal text As String)
    55. If TextBox_Output.InvokeRequired Then
    56. Dim myDelegate As New AppendOutputTextDelegate(AddressOf AppendOutputText)
    57. Try
    58. Me.Invoke(myDelegate, text)
    59. Catch
    60. End Try
    61. Else
    62. If text IsNot vbNewLine Then
    63. TextBox_Output.AppendText(text)
    64. End If
    65. If ListviewTrigger = True Then
    67. ' Dim lines() As String = text.Split(vbCrLf) 'trennt deinen String zwischen Zeilenumbrüchen
    68. 'For Each str As String In lines
    69. ' For i As Integer = 0 To listBox1.Items.Count - 1
    70. ' If str = listBox1.Items(i) Then
    71. ' MsgBox("Eine Zeile kommt auch in der Listbox vor")
    72. 'End If
    73. ' Next
    74. If text.Contains("package:com") Then
    75. ListView_Apps.Items.Add(text.Replace("package:com.", ""))
    76. End If
    78. ' Next
    80. End If
    81. End If
    83. End Sub
    85. Private Sub OutputTextBox_TextChanged(sender As Object, e As EventArgs) Handles TextBox_Output.TextChanged
    86. TextBox_Output.SelectionStart = TextBox_Output.Text.Length
    87. TextBox_Output.ScrollToCaret()
    88. End Sub
    90. End Class


    Das dumme ist, ich weiss einfach nicht wie ich googeln soll weil ich nicht weiss wie diese Zeile genannt wird.
    Ich habe es mit OutputDataReceive CMD Path (usw.) probiert. Leider kein Erfolg.

    Ich hoffe mir kann jemand helfen.

    Mfg TBS
    Ich hab heute meiner Katze beim spielen
    zugesehen, sie ist die ganze Zeit einem Ball nachgejagt und ich hab mir
    überlegt, das Tier ist echt mit sehr einfachen Dingen zu begeistern...
    Dann ist mir aufgefallen, dass ich 10 Minuten nur meine Katze
    angestarrt habe.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „TheBlackSnitter“ ()

    Es ist nicht nur ein Präfix, wenn ich eine Batch mit einer Abfrage habe läd er auch nicht den kompletten input :/
    Ich hab heute meiner Katze beim spielen
    zugesehen, sie ist die ganze Zeit einem Ball nachgejagt und ich hab mir
    überlegt, das Tier ist echt mit sehr einfachen Dingen zu begeistern...
    Dann ist mir aufgefallen, dass ich 10 Minuten nur meine Katze
    angestarrt habe.

Facebook
Telefonspende