¿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"