Erstellen meiner eigenen CMD in vb.net

Question

Ich brauche Hilfe mit diesem Programm, das ich versuche zu erstellen. Ich bin ziemlich neu im Programmieren, also bitte bitte mit mir.

Also was ich gerade versuche zu erstellen, ist meine eigene Eingabeaufforderung, und damit gesagt, lassen Sie mich Ihnen sagen, was ich in der Eingabeaufforderung will.

Wie wir von der normalen CMD auf Windows-Betriebssystemen wissen, haben wir unsere Eingabebox (oder was auch immer), die wir verwenden können, um Befehle wie "start google.com" oder "ipconfig" etc ... und wir haben unsere Ausgabe, die uns die Ergebnisse der von uns eingegebenen Befehle angibt.

Und ich möchte genau dasselbe schaffen, nur mit meiner eigenen Benutzeroberfläche und einigen Extras, die ich später hinzufügen werde.

Hier ist mein Problem tho, immer wenn ich den Shell-Befehl in meinem Textfeld und führen Sie es aus, es druckt die Ausnahmebedingungsnachricht aus, so im Grunde führt es nicht den Befehl. Hier

ist der Code:

Private Sub TextBox1_KeyPress(sender As Object, e As KeyPressEventArgs) Handles TextBox1.KeyPress 
    Dim tmp As System.Windows.Forms.KeyPressEventArgs = e 
    If tmp.KeyChar = ChrW(Keys.Enter) Then 
     Try 
      Shell(TextBox1.Text) 
      RichTextBox1.SelectionColor = Color.Green 
      RichTextBox1.SelectedText = TextBox1.Text 
     Catch ex As Exception 
      RichTextBox1.Clear() 
      RichTextBox1.SelectionColor = Color.Red 
      RichTextBox1.SelectedText = ex.Message 
     End Try 
     TextBox1.Text = "" 
    Else 

    End If 
End Sub 

ich, wie einige Beispiele wirklich würde, wenn möglich, da ich neu bin und ich würde wahrscheinlich nicht viel verstehen, ohne Beispiele.

Answer 1

Die Verwendung eines Prozessobjekts anstelle einer Shell ist viel besser als eine Option für eine Konversation mit cmd. Hier ist ein Beispiel für eine einfache Funktion, an die Sie Befehle übergeben können, die die Antwort des Befehls zurückgibt. Dieses Beispiel hat nur einen Befehl/Antwort, aber Sie können den gleichen Prozess unten in einen Dialog einzutreten mit cmd.exe gezeigt verwenden:

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    MsgBox(ExecuteCommand("ipconfig /all")) 
End Sub 

Private Function ExecuteCommand(ByVal command As String) As String 
    Dim response As String = Nothing 
    Dim p As New System.Diagnostics.Process 
    Dim psi As New System.Diagnostics.ProcessStartInfo("cmd.exe") 
    With psi 
     .UseShellExecute = False 
     .RedirectStandardInput = True 
     .RedirectStandardOutput = True 
     .RedirectStandardError = True 
     .CreateNoWindow = True 
    End With 
    p = Process.Start(psi) 
    With p 
     .StandardInput.WriteLine(command) 
     .StandardInput.Close() 
     If .StandardError.Peek > 0 Then 
      response = .StandardError.ReadToEnd 
      .StandardError.Close() 
     Else 
      response = .StandardOutput.ReadToEnd 
      .StandardOutput.Close() 
     End If 
     .Close() 
    End With 
    Return response 
End Function 

Und wie Sie sehen, wenn Sie den Code oben ausgeführt haben, können Sie verwenden Sie sicher Befehle wie ipconfig