vb.net 教程 7-1 本地网络信息的获取 7 同步Ping

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

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版权协议,转载请附上原文出处链接及本声明。

上一篇:vb.net 教程 6-2 进程 Process类属性


下一篇:Python零基础学习笔记(三十四)—— 语音