verificar conexion a internet en vb6

[mveraa]

hola maestros alguien sabe como poder verificar con vb6 si un pc tiene su conexion a internet funcionando..


muchas gracias...

[SunDarK]

Haz un ping a una dirección que el 99% del tiempo este online,como por ejemplo google,y dependiendo si devuelve datos o no estará o no conectado.Por ejemplo haciendo una funcion comprobar_inet() as Boolean

[mveraa]

me puedes dar por favor un ejemplo del uso del ping por ejemplo yo lo hago asi pero se cuelga si no hay internet




Dim oIE As Object, cCad As String, cPar1
sub oIE = CreateObject("InternetExplorer.Application")




cCad = "http://wwww.tonteras/o/ingreso.php?user=" + user1 _
+ "&clave=" + clave1



oIE.MenuBar = True
oIE.TOOLBAR = True
oIE.Visible = False
oIE.Navigate2 (cCad)


While (oIE.locationurl <> "http://www.tontera.cl/aldia.php")

If oIE.locationurl = "http://www.tonteras.cl/no_aldia.php" Then


Command1.Enabled = False
Command2.Enabled = False

FCONSULTAR.Command1.Enabled = False
Command5.Enabled = True

Exit Sub

End If

Wend


gracias...