elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Saber si existe conexión a Internet
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Saber si existe conexión a Internet  (Leído 744 veces)
YAcosta

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Saber si existe conexión a Internet
« en: 18 Noviembre 2018, 08:34 am »

Buenas, tenga esta inquietud.

Para poder detectar si tengo o no internet uso la libreria Sensapi.dll
Código
  1. Option Explicit
  2.  
  3. 'Constantes para determinar que tipo de Red estamos conectados
  4. Const NETWORK_ALIVE_AOL = &H4
  5. Const NETWORK_ALIVE_LAN = &H1
  6. Const NETWORK_ALIVE_WAN = &H2
  7.  
  8. Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long
  9.  
  10. Private Sub Timer1_Timer()
  11. Dim Ret As Long
  12.  
  13. 'Si la Api retorna 0 quiere decir que no hay ningun tipo de conexion de Red
  14. If IsNetworkAlive(Ret) = 0 Then
  15.   Label1 = "No hay"
  16. Else
  17.   Label1 = "Si hay"
  18. End If
  19. End Sub
  20.  

Esto lo ejecuto desde una maquina virtual con conexión a internet, el timer esta con intervalo 2000 y realizo las siguientes pruebas las cuales describo paso a paso:

Ejecuto el programa y no lo detengo

Obtengo el mensaje "Si hay":  CORRECTO
Dentro de Windows deshabilito la red y el programa indica "No hay": CORRECTO
Lo vuelvo a habilitar y obtengo un "Si hay": CORRECTO
A la maquina virtual le quito la red y obtengo "No hay":  CORRECTO
Lo vuelvo a activar y obtengo "Si hay":  CORRECTO
En ese momento me voy al router y lo apago y el programa cambia a "No hay".  CORRECTO
Hasta aqui Bingo pero...

Con el router apagado voy al programa y lo detengo, lo vuelvo a ejecutar y obtengo un "Si hay" pero el router está apagado!!!

¿porque sucede esto estimados?

Quedo a la espera de sus comentarios, muchas gracias



En línea

YAcosta

Desconectado Desconectado

Mensajes: 8


Ver Perfil
Re: Saber si existe conexión a Internet
« Respuesta #1 en: 18 Noviembre 2018, 18:32 pm »

ya chequee que esta libreria no necesariamente me va a decir si hay o no internet, me dira el tipo de conexion si pero eso no necesito.

Un amigo me recomendo hacer ping a una pagina, voy a ir por ese camino.

Gracias, salvo mejor idea estare atento.

Saludos


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como saber si existe un LINK, un archivo en internet « 1 2 »
Programación Visual Basic
jrhomer 11 3,628 Último mensaje 12 Enero 2006, 16:19 pm
por Thaorius
Saber ip de conexion a internet de mi computador « 1 2 »
Programación Visual Basic
hunter18 13 2,621 Último mensaje 24 Agosto 2010, 03:54 am
por _katze_
Existe algun programa para Parar mi conexion a Internet ¿? « 1 2 »
Dudas Generales
Wildseba 13 2,885 Último mensaje 19 Febrero 2013, 19:43 pm
por simorg
Existe algun programa para Parar mi conexion a Internet ¿? « 1 2 »
Foro Libre
Wildseba 11 2,488 Último mensaje 19 Febrero 2013, 14:57 pm
por Novlucker
PLC y conexión a Internet, todo lo que debes saber
Noticias
wolfbcn 0 953 Último mensaje 10 Octubre 2016, 02:45 am
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines