Comprobar conexión a internet.

[SKL]

Bueno debido a que es un tema interesante. cree un pequeño modulo para facilitarle la vida a muchos...

Aca dejo el link de descarga de mi dropbox DESCARGAR

Es muy muy muy simple...

Insertamos un Timer en el formulario y dentro del timer colocamos la siguiente linea.

Código: [Seleccionar]

Debug.Print mPing.PingRequest
Nos va a devolver un resultado Boolean osea Verdadero o Falso

Lo unico que habria que hacer es un IF comparando si hay o no conexion

Ademas puse como opcional que se pueda cambiar el DNS, en este caso puse los dns de google 8.8.8.8 pero simplemente agregando la ip entre paracentesis podemos cambiarlo rapidamente de esta manera:

Código: [Seleccionar]

Debug.Print mPing.PingRequest("192.168.1.1")
Espero les haya servido, SALUDOS


PD: El timer ponganle intervalo 5 o 10 segundos puede que al hacer tanto tiempo ping dependiendo el host nos bloquee el accesso.

[Albertomi]

Estimados Todos


Las disculpas del caso por reabrir el post, pero considero que es un post de importancia y sería bueno saber si se llego a resolver.


Saludos, desde algún lugar de Lima-Perú

[YAcosta]

Hola. Estoy esscribiendo desde tierras lejanas a la mia  :-)

Primero, MIL DISCULPAS por no responder debidamente sobre el tema, el tema sucedio en el 2012 y recuerdo (porque ya es mucho tiempo) que no lo logre resolver, insisti un poco mas pero en ese momento ya no me dio el conocimiento y termine por abortar el tema. Luego en el 2014 Bazzoka y luego SKL dieron alternativas pero al haber sido dos años despues ya no los probe y me disculpo por no informarlo.
Afortunadamente conservo aun ese proyecto asi que cuando llegue a Peru (12/08/15) voy a volver a probarlo con las alternativas que me dieron para poder informar debidamente sus resultados.

Fuerte abrazo