vb.net做的ping

Public Function Ping(ByVal host As String) As String
        Try
            Dim a As New System.Net.NetworkInformation.Ping
            Dim b As System.Net.NetworkInformation.PingReply
            Dim txtlog As String = ""
            Dim c As New System.Net.NetworkInformation.PingOptions
            c.DontFragment = True
            c.Ttl = 64
            Dim data As String = "aaaaaaaaaaaaaaaa"
            Dim bt As Byte() = System.Text.Encoding.ASCII.GetBytes(data)
            Dim i As Int16
            For i = 1 To 4
                b = a.Send(host, 2000, bt, c)
                If b.Status = Net.NetworkInformation.IPStatus.Success Then
                    txtlog += "Reply from " & host & " in " & b.RoundtripTime & " ms, ttl " & b.Options.Ttl & vbCrLf
                End If
                If b.Status = Net.NetworkInformation.IPStatus.DestinationHostUnreachable Then
                    txtlog += "Destination Host Unreachable" & vbCrLf
                End If
                If b.Status = Net.NetworkInformation.IPStatus.TimedOut Then
                    txtlog += "Reply timed out" & vbCrLf
                End If
            Next i
            Return txtlog
        Catch ex As Exception
            Return "Ping error"
        End Try
    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox(Ping("10.10.9.249"))
    End Sub

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值