Cómo hacer ping con Visual Basic

Por medio de ping en una aplicación de red ayuda a los fallos y errores de conexión límite. Ping es un proceso en el que el ordenador envía una señal a otro equipo. Este equipo puede ser un servidor en un dominio totalmente separada, o puede ser un ordenador de la red local. El uso de la clase de ping en Microsoft Visual Basic permite a la aplicación para saber si el ordenador está presente. Si el ping no puede encontrar el equipo especificado, el programador puede utilizar códigos de error para mostrar una advertencia al usuario.

Instrucciones

1 Abrir un nuevo archivo de formulario. En su espacio de trabajo visual Studio, haga clic en el nombre del proyecto en la caja de herramientas Explorador de soluciones. Seleccione Agregar formulario. Una nueva forma aparece en su espacio de trabajo.

2 Establecer la dirección IP o nombre de dominio del equipo que desea hacer ping. El siguiente código asigna una variable con una dirección IP establecida. La variable tiempo de espera indica a la computadora cuándo dejar de buscar una respuesta de la máquina remota.

Dim MyIP As String = "192.168.0.1"
TimeOutValue Dim As Integer = 120

3 Asignar memoria para la clase de ping. Antes de utilizar la clase de ping, que tiene que ser llamado y se guarda en una variable.

Dim PingComputer Como Ping Ping = new ()

4 Ping al equipo. El siguiente código utiliza el método Send hacer ping a la dirección IP designada en el paso 2.

Dim theReply Como PingReply = pingComputer.Send (MyIP)

5 Compruebe que el comando se ejecutó correctamente. Una respuesta exitosa es devuelto a la propiedad de estado en la variable theReply. a continuación el código se envuelve alrededor del código que indica a la aplicación qué hacer si el ordenador de la red respondió.

Si theReply.Status = IPStatus.Success

Terminara si

6 Mostrar la respuesta. El código siguiente muestra la respuesta a la consola sólo si el ping fue exitoso.

Si theReply.Status = IPStatus.Success

Console.WriteLine ( "IP: {0}", theReply.Address.ToString ())
Console.WriteLine ( "tiempo de viaje: {0}", theReply.RoundtripTime)

Terminara si