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). El DLL se incluye con el sistema operativo Windows para gestionar las solicitudes de red para TCP / IP, que es el protocolo utilizado en las redes internas y en Internet. Debe incluir el archivo DLL en el código de Visual Basic 6, ping al servidor y asignar los resultados a una cadena.

Instrucciones

1 Haga clic en el archivo que contiene su SLN VB6 y haga clic en "Abrir con". Haga doble clic en el programa "Visual Basic" que aparece 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 As Long wVersionRequired, lpWSADATA Como WSADATA) As Long

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

3 Ping al servidor. El siguiente código pasadores del servidor:

de ping Función Pública ( "servidor", Responder Como ICMP_ECHO_REPLY) As Long

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

4 Imprimir los resultados de la mesa de ping. El siguiente código envía el resultado en una cadena y muestra el resultado en un cuadro de mensaje:

Dim como secuencia de ping

de ping = Reply.Status

de ping MsgBox