Cómo hacer ping a un servidor desde VB6

Puede utilizar la biblioteca de enlace de Windows ICMP para hacer ping a una dirección en Visual Basic 6 ( VB6 ) . La DLL se incluye con el sistema operativo Windows para administrar las solicitudes de red para TCP /IP, que es el protocolo utilizado en redes internas y en Internet . Usted debe incluir el archivo DLL en el código VB6 , haga ping al servidor y asignar los resultados a una cadena. Instrucciones
1

Haga clic en el archivo que contiene el SLN VB6 y haga clic en " Abrir con". Haga doble clic en el programa "Visual Basic " que se muestra en la lista de programas.

2 Haga clic en el formulario que desea utilizar para hacer ping al servidor. Copia y pega el siguiente enlace DLL a la parte superior de su archivo VB6 :

Private Declare Function IcmpCreateFile Lib " icmp.dll " () As Long

Private Declare Function WSAStartup Lib " WSOCK32.DLL " ( ByVal wVersionRequired As Long , lpWSADATA Como WSADATA ) As Long

Estos dos archivos DLL proporcionan las funciones para hacer ping y comunicarse a través del protocolo TCP /IP.
3

Ping el servidor . Los siguientes pernos de codificación del servidor :

Public Function ping ( "server" , responderemos tan ICMP_ECHO_REPLY ) As Long

Reemplazar "server " por el nombre o la dirección IP del servidor. La repetición se almacena en la variable " respuesta de eco " .
4

imprimir los resultados del ping. El código siguiente se envía el resultado en una cadena y muestra el resultado en un cuadro de mensaje :

de ping dévil como secuencia

de ping = Reply.Status

MsgBox de ping