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 .
5
Recuperar la repetición del comando ping. El código siguiente determina si el ping fue exitoso :
mypingresponse = Reply.Status