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

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 _

) As Boolean

' -or-

Public Function Ping()Function Ping( _

   ByVal hostNameOrAddress As String, _

   ByVal timeout As Integer _

) As Boolean

' -or-

Public Function Ping()Function Ping( _

   ByVal address As System.Uri, _

   ByVal timeout As Integer _

) As Boolean

参数

hostNameOrAddress

String。要 ping 的服务器的 URL、计算

机名称或 IP 号。必选。

address

Uri。要 ping 的服务器的 URI。必选。

timeout

Int32。连接目标的时间阈值（以毫秒为单位）。默认值为 500。必选。

返回值

Boolean 指明操作是否成功。

异常

以下情况可能会导致引发异常：

·                         没有可用网络连接

·                         URL 无效

备注

Ping 方法不是一种用于确定远程计算机可用性的故障保险方法：目标计算机上的 ping 端口可能已关闭，或者防火墙或路由器可能阻止了 ping 请求。

传递到 Ping 方法的地址必须可被 DNS 解析，并且前面不能带“http://”。

 

任务

下表列出了涉及 My.Computer.Network.Ping 方法的任务的示例。

要执行的操作	请参见
确定远程计算机或主机是否可用	如何：在 Visual Basic 中确定远程计算机是否可用

 

示例

通过确定 Ping 方法是否返回 True，此示例将报告是否可对服务器执行 ping 操作。

Ping 服务器

确定 Ping 方法是否返回 True。此示例确定 Ping 方法是否返回了 True，由此来报告是否能够 ping 至该服务器。将 198.01.01.01 替换为要 ping 的服务器的 IP 地址、URL 或计算机名称。

 

If My.Computer.Network.Ping("198.01.01.01") Then

   MsgBox("Server pinged successfully.")

Else

   MsgBox("Ping request timed out.")

End If

Ping 服务器并指定超时

确定 Ping 方法是否返回 True，同时指定超时间隔（以毫秒为单位）。如果未指定超时，则使用 500 作为默认值。此示例确定 Ping 方法是否返回了 True，由此来报告是否能够 ping 至该服务器，此示例还指定 1000 毫秒的超时间隔。将 www.cohowinery.com 替换为要 ping 的服务器的 IP 地址、URL 或计算机名称。

 

If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then

  MsgBox("Server pinged successfully.")

Else

  MsgBox("Ping request timed out.")

End If

 

如何：在 Visual Basic 中检查连接状态

My.Computer.Network.IsAvailable 属性可用于确定计算机是否拥有工作网络或 Internet 连接。

检查计算机是否拥有工作连接

·                         确定 IsAvailable 属性是 True 还是 False。下面的代码检查属性的状态并进行报告：

If My.Computer.Network.IsAvailable = True Then

    MsgBox("Computer is connected.")

Else

    MsgBox("Computer is not connected.")

End If