Question

我有textbox1.text，它有用户输入文字。

有主要命令等。其中一个是ip 如果用户键入ip local，我希望它显示本地IP，我已经有

的代码

另一个例子是ping google.com 1000它会ping谷歌1000MS，我已经有了它的代码，但我怎么会得到1000或如果它不存在？它只会ping一次。我不希望弹出错误。

代码：

Dim text As String = TextBox1.Text
server.Start()
If text.StartsWith("ip") And text.EndsWith(" local") Then
    response = System.Net.Dns.GetHostByName(System.Net.Dns.GetHostName()).AddressList(0).ToString()
end if

Answer 1

我相信你想要这样的东西：

Dim array() As String = TextBox1.Text.Split(" ".ToCharArray(), StringSplitOptions.RemoveEmptyEntries)
Dim cmd as String = array(0).ToUpper()

If cmd = "IP" Then
   IpConfig  array 
Else If cmd = "PING" Then
   Ping array
End If

接下来将每个命令添加为Sub或Function或其他....

Public Sub IpConfig( byVal array() as String)
   ' your code

End Sub

More commands.....

使用参数创建命令行

1 个答案: