Cómo hacer un ping desde Visual Basic

El sistema operativo Windows contiene un archivo DLL que se utiliza en el código de Visual Basic para hacer ping a un servidor de red. El procedimiento de ping devuelve una respuesta que puede utilizar en el código para identificar si el equipo está en línea y disponible en la red. Usted debe incluir el archivo DLL de Windows en su propio archivo de código VB. Después se incluye la DLL, puede hacer ping a cualquier equipo de la red.

 

VISUAL

 

Haga clic en el Windows botón "Inicio" y seleccione "Todos los programas". Haga clic en "Microsoft Visual Basic", luego haga clic en "Visual Basic 6." Abra el proyecto VB.

 

Haga doble clic en el archivo en la lista de archivos de código fuente para su proyecto. El archivo se abre en el editor de VB.

 

Copia y pega el siguiente código al principio del archivo para incluir el archivo DLL de Windows en su proyecto de VB:

 

Private Declare Function IcmpSendEcho Lib "icmp.dll" _

 

(IcmpHandle ByVal As Long, _

 

DestinationAddress ByVal As Long, _

 

RequestData ByVal As String, _

 

RequestSize ByVal As Long, _

 

RequestOptions ByVal As Long, _

 

ReplyBuffer Como ICMP_ECHO_REPLY, _

 

ReplySize ByVal As Long, _

 

Tiempo de espera ByVal As Long) As Long

 

El código debe ser copiado en su totalidad, o en el compilador de VB devuelve un error. El código incluye la función "ICMP.DLL" del sistema operativo Windows que hace ping a un equipo desde el escritorio.

 

Agregue el código siguiente para hacer ping al equipo remoto:

 

Call IcmpSendEcho (hIcmp, IPaddress, "ping", Len (50), 0, Responder, Len (Responder), 20)

 

Reemplazar "IPaddress" con la dirección IP del equipo remoto.

 

Recuperar la repetición del comando ping. El código siguiente determina si el ping fue exitoso:

 

mypingresponse = Reply.Status