用My.Computer.Network.Ping 方法来判断远程计算机是否可用

'  Usage

Dim  value  As   Boolean   =  My.Computer.Network.Ping(hostNameOrAddress)

Dim  value  As   Boolean   =  My.Computer.Network.Ping(address)

Dim  value  As   Boolean   =  My.Computer.Network.Ping(hostNameOrAddress ,timeout)

Dim  value  As   Boolean   =  My.Computer.Network.Ping(address ,timeout)

'  Declaration

Public   Function Ping() Function Ping( _

   ByVal hostNameOrAddress As String _

) As Boolean

' -or-

Public Function Ping()Function Ping( _

   ByVal address As System.Uri _

)