¿código ping vb?
Dim pid As Long
pid = Shell("cmd.exe /C Ping " & Text1.Text & " > c:\r.txt", vbHide)
' Mensaje
Text2.Text = "Realizando ping " & Text1.Text & " ..."
'Esperando que se complete la ejecución del Shell
Atenuar hProc mientras
hProc = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
Atenuar ExitCode mientras
Hacer
Llame a GetExitCodeProcess (hProc, ExitCode)
DoEvents
Bucle mientras ExitCode = STILL_ALIVE
'Borrar, prepárese para mostrar los resultados
Texto2. Text = " "
'Abrir archivo C:\r.txt
Abrir "c:\r.txt" para entrada como #1
Dim strLine Como cadena
Hacer hasta EOF(1)
Entrada de línea n.º 1, strLine
'Mostrar resultados de ejecución
Text2.Text = Text2.Text & strLine & vbNewLine
Bucle
'Cerrar archivo
Cerrar #1
'Eliminar C:\r.txt
En caso de error, reanudar siguiente
Elimine "c:\r.txt"