VB.NET Ping IP/Host地址帮助类

本篇介绍怎么在vb.net中ping一个ip或地址

1.Ping IP/Host地址帮助类

Imports System.Net.NetworkInformation

''' <summary>
''' VB.NET Ping IP/Host地址帮助类
''' </summary>
Public Class PingHelper

    ''' <summary>
    ''' ping地址
    ''' </summary>
    ''' <param name="host">IP/Host地址</param>
    ''' <param name="timeout">ping超时时间(毫秒)</param>
    ''' <returns></returns>
    Public Shared Function Ping(host As String, Optional timeout As Integer = 1000) As Boolean
        Try
            Dim pg As New Ping
            Dim pkey As PingReply = pg.Send(host, timeout)
            If pkey.Status = IPStatus.Success Then
                Return True
            End If
            Return False
        Catch ex As Exception
            Return False
        End Try
    End Function

End Class

2.调用

MessageBox.Show(PingHelper.Ping("baidu.com"))