5

目标：获取服务器的外部 IP 地址列表。执行 ping 以测试延迟。与 CMD 一样，ping 命令显示平均延迟。但在 Visual Studio 中，我发现 ping 仅作为布尔值用于连接到服务器。我该如何测试服务器的延迟以在 vb.net 中找到最快的连接？除了其他方法，我找不到任何其他方法来进行 ping。my.computer.network.ping(192.168.1.1). 那么是否有另一种方法可以在 vb.net 中完成延迟测试？谢谢！

技能等级：接近绝对初学者

4

3 回答 3

8

这里有一个 VB.NET 的 ping 示例

Dim host As String = "82.123.23.XX" ' use any other machine name
Dim pingreq As Ping = New Ping()
Dim rep As PingReply = pingreq.Send(host )
Console.WriteLine("Pinging {0} [{1}]", host , rep.Address.ToString())
Console.WriteLine("Reply From {0} : time={1} TTL={2}", rep.Address.ToString(), rep.RoundtripTime, rep.Options.Ttl)

您将需要导入

System.Net.NetworkInformation

于 2012-11-15T16:29:42.327 回答
2 
Public Shared Function GetPingMs(ByRef hostNameOrAddress As String)
    Dim ping As New System.Net.NetworkInformation.Ping
    Return ping.Send(hostNameOrAddress).RoundtripTime
End Function

GetPingMs("127.0.0.1")

GetPingMs("www.dreamincode.net")

来源：http ://www.dreamincode.net/code/snippet1511.htm

于 2012-11-15T16:31:45.853 回答
1

只需在按钮单击时编写此代码，无需导入任何内容。

Dim IP As String = InputBox("Enter Client's IP", "Ping To Client")

Shell("CMD.exe /C ping " & IP & " -t", AppWinStyle.NormalFocus)
于 2015-12-09T07:14:34.417 回答