目标:获取服务器外部ip地址的列表。执行ping测试延迟。与CMD一样,ping命令显示平均延迟。但在visual中,我发现ping仅作为连接到服务器的布尔值。如何测试服务器的延迟以找到vb.net中最快的连接?我想不出别的办法了,除了。my.computer.network.ping(192.168.1.1)
。那么,在vb.net中还有其他方法来完成延迟测试吗?谢谢!
技能Lvl:接近绝对初学者的
发布于 2012-11-15 16:29:42
这里有一个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-15 16:31:45
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")
发布于 2015-12-09 07:14:34
只需按一下按钮编写这段代码,就不需要导入任何东西。
Dim IP As String = InputBox("Enter Client's IP", "Ping To Client")
Shell("CMD.exe /C ping " & IP & " -t", AppWinStyle.NormalFocus)
https://stackoverflow.com/questions/13401797
复制相似问题