Imprimir Página - ¿Como hacer ping a un servidor?

Amigos necesito su ayuda, necesito poder verificar si un servidor esta disponible a través de la IP, en vb.net el código es muy sencillo:

Código:

If My.Computer.Network.Ping("198.01.01.01") Then
  MsgBox("Server pinged successfully.")
Else
  MsgBox("Ping request timed out.")
End If

Pero no consigo lograrlo en vb6
Conocen algún método para hacerlo

Muchas gracias amigos

Leete este hilo para tener mas informacion:

Código:

http://foro.elhacker.net/scripting/duda_ejecutar_comandos_cmd_con_vb_6-t275838.0.html

Coloca un boton de comando y un textbox (donde ira la ip a hacer ping) y coloca este codigo:

Código

Private Sub Command1_Click()
Dim exeCmd As String
exeCmd = Shell("cmd.exe /k ping" & " " & Text1.Text, vbNormalFocus)
End Sub

Este code abrira la consola y hara ping a la ip que especificaste, pero mostrara la ventana de dialogo.

No es exactamente lo que buscas pero ahi podes orientarte y buscarle la vuelta.

Saludos.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rapbyone en 4 Septiembre 2014, 17:30 pm