尝试使用RichTextBox命令使命令变为“Shell”

Question

尝试使用RichTextBox命令使命令变成Shell。

任何人都可以做出一个简单的方法来做到这一点吗？ 即时搜索在整个网络上找不到一个方法来做到这一点。 因此，它应该像任何终端/壳/控制台应用程序 所以，我可以简单地添加像whatismyip它显示了我的IP地址等

应该像this自定义命令。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    For I As Integer = 0 To RichTextBox1.Lines.Count - 1 
    Dim Parts() As String = RichTextBox1.Lines(I).Split 
    Select Case Parts(0).ToUpper 
     Case "getip" 
     RichTextBox1.AppendText("SYS $~ 127.0.0.1") 
     Case Else 
     RichTextBox1.AppendText("SYS $~ Invalid command.") 
    End Select 
    Next 
End Sub 

Answer 1

试试这个：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 
    commands = New Dictionary(Of String, Func(Of String, IEnumerable(Of String), String))() From _ 
    { _ 
     {"getip", Function(c, ps) Me.GetIP().ToString()}, _ 
     {"nop", Function(c, ps) "No Command"} _ 
    } 
End Sub 

Private commands As Dictionary(Of String, Func(Of String, IEnumerable(Of String), String)) = Nothing 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim command = {"nop"}.Concat(Me.RichTextBox1.Lines) _ 
        .Reverse().First(Function(l) Not [String].IsNullOrWhiteSpace(l)) 

    If (If(Me.RichTextBox1.Lines.LastOrDefault(), "")).Length > 0 Then 
     Me.RichTextBox1.AppendText(Environment.NewLine) 
    End If 

    Dim parts = command.Split({" "c}, StringSplitOptions.RemoveEmptyEntries) 
    Dim result = "Invalid Command" 
    If commands.ContainsKey(parts(0).ToLower()) Then 
     result = commands(parts(0))(parts(0), parts.Skip(1).ToArray()) 
    End If 
    Me.RichTextBox1.AppendText("SYS $~ " + result) 
End Sub 

Private Function GetIP() As String 
    Dim host As IPHostEntry 
    Dim localIP As String = "?" 
    host = Dns.GetHostEntry(Dns.GetHostName()) 
    For Each ip As IPAddress In host.AddressList 
     If ip.AddressFamily = AddressFamily.InterNetwork Then 
      localIP = ip.ToString() 
     End If 
    Next 
    Return localIP 
End Function 

你需要添加以下的进口：

Imports System.Net 
Imports System.Net.Sockets 

然后，你可以打造出来的字典为每个命令。