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

Abra un archivo nuevo formulario. En el espacio de trabajo de Visual Studio , haga clic en el nombre del proyecto en el Explorador de caja de herramientas de soluciones. Seleccione Agregar formulario . Una nueva forma aparece en el área de trabajo .
2

Configure la dirección IP o nombre de dominio del equipo que desea hacer ping . El código siguiente 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 .

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

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

PingComputer As New Ping Ping = ()
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 .

TheReply As PingReply = pingComputer.Send ( myIP )
5

Compruebe que el comando se ha realizado correctamente . Una respuesta satisfactoria se devuelve a la propiedad Status en el theReply variable. El código siguiente 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

End If
< br > 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 )

End If