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
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