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:
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:
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:
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.