My.Computer.Network.Ping (Método)

Actualización: noviembre 2007

Hace ping en el servidor especificado.

' 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. La dirección URL, nombre de equipo o número IP del servidor en el que hacer ping. Obligatorio.

• address
  Uri. El identificador uniforme de recursos (URI) del servidor en el que hacer ping. Obligatorio.

• timeout
  Int32. Umbral de tiempo, en milisegundos, para establecer contacto con el destino. El valor predeterminado es 500. Obligatorio.

Boolean que indica si la operación se realizó correctamente.

Las condiciones siguientes pueden hacer que se produzca una excepción:

• No hay ninguna conexión de red disponible (InvalidOperationException).

• La dirección URL no era válida (PingException).

El método Ping no es un método con seguridad para determinar la disponibilidad de un equipo remoto: el puerto ping del equipo de destino puede estar desactivado, o la solicitud de ping puede resultar bloqueada por un firewall o un enrutador.

La dirección pasada al método Ping debe poder resolverse por DNS y no puede ir precedida por "http://".

La tabla siguiente muestra una lista de ejemplos de tareas en las que está implicado el método My.Computer.Network.Ping.

Este ejemplo informa de si se puede hacer ping en el servidor determinando si el método Ping devuelve True.

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

Reemplace "198.01.01.01" con la dirección IP, la dirección URL o el nombre de equipo del servidor en el que hacer ping.

Este ejemplo informa de si se puede hacer ping en el servidor determinando si el método Ping devolvió True y especifica un tiempo de espera de 1000 milisegundos.

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

Reemplace "www.cohowinery.com" con la dirección IP, la dirección URL o el nombre de equipo del servidor en el que hacer ping.

Espacio de nombres:Microsoft.VisualBasic.Devices

Clase:Network

Ensamblado: biblioteca en tiempo de ejecución de Visual Basic (en Microsoft.VisualBasic.dll)

Los permisos siguientes pueden ser necesarios:

Para obtener más información, vea Seguridad de acceso a código y Solicitar permisos.

My.Computer.Network (Objeto)

System.Uri

Network.Ping