My.Computer.Network.Ping 方法

更新：2007 年 11 月

对指定服务器执行 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( _
   ByVal hostNameOrAddress As String _
) As Boolean
' -or-
Public Function Ping( _
   ByVal address As System.Uri _
) As Boolean
' -or-
Public Function Ping( _
   ByVal hostNameOrAddress As String, _
   ByVal timeout As Integer _
) As Boolean
' -or-
Public 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 指明操作是否成功。

异常

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

• 没有可用网络连接 (InvalidOperationException)。

• URL 无效 (PingException)。

备注

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

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

任务

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

示例

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

If My.Computer.Network.Ping("198.01.01.01") Then
   MsgBox("Server pinged successfully.")
Else
   MsgBox("Ping request timed out.")
End If

将 "198.01.01.01" 替换为要 ping 的服务器的 IP 地址、URL 或计算机名称。

此示例通过确定 Ping 方法是否返回 True 来报告是否可对服务器执行 ping 操作，并且指定一个 1000 毫秒的超时间隔。

If My.Computer.Network.Ping("www.cohowinery.com",1000) Then
   MsgBox("Server pinged successfully.")
Else
   MsgBox("Ping request timed out.")
End If

将 "www.cohowinery.com" 替换为要 ping 的服务器的 IP 地址、URL 或计算机名称。

要求

命名空间：Microsoft.VisualBasic.Devices

类：Network

**程序集：**Visual Basic 运行库（位于 Microsoft.VisualBasic.dll 中）

按项目类型列出的可用性

权限

以下权限可能是必需的：

有关更多信息，请参见代码访问安全性和请求权限。

请参见

参考

My.Computer.Network 对象

System.Uri

Network.Ping