使用 VB.NET 测试网络延迟答案

【问题标题】：Test Nework Latency Using VB.NET使用 VB.NET 测试网络延迟
【发布时间】：2015-12-09 15:32:36
【问题描述】：

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

技能等级：接近初学者

【问题讨论】：

标签： vb.net

【解决方案1】：

这里有一个 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

【讨论】：

【解决方案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

【讨论】：

【解决方案3】：

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

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

Shell("CMD.exe /C ping " & IP & " -t", AppWinStyle.NormalFocus)

【讨论】：