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. Instrucciones
1

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 .

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

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

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

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 .
< br > 5

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

mypingresponse = Reply.Status