版权声明：本文为博主原创文章，转载请在显著位置标明本文出处以及作者网名，未经作者允许不得用于商业目的。

 

Ping类可以检测访问远程计算机网络是否畅通。

 

 

 

 

 

 

 

通过Send方法可以实现同步检测，具体代码：

 

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

        Dim addr As String = "www.csdn.net"

        Dim p As New Ping()

        Dim pReply As PingReply

        pReply = p.Send(addr)

 

        TextBox1.Text = "同步 Ping地址 " & addr & "结果" & vbCrLf

 

        If pReply.Status <> IPStatus.Success Then

            TextBox1.Text &= "失败：" & pReply.Status.ToString & vbCrLf

        Else

            TextBox1.Text &= "地址：" & pReply.Address.ToString & vbCrLf

            TextBox1.Text &= "TTL：" & pReply.Options.Ttl & vbCrLf

            TextBox1.Text &= "答复消息所用的毫秒数：" & pReply.RoundtripTime & vbCrLf

        End If

 

    End Sub

运行时如下：

 

 

 

由于.net平台下C#和vb.NET很相似，本文也可以为C#爱好者提供参考。

 

学习更多vb.net知识，请参看vb.net 教程 目录

————————————————

版权声明：本文为CSDN博主「VB.Net」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。

原文链接：https://blog.csdn.net/UruseiBest/article/details/81811744