|
Título: problema con deteccion de internet Publicado por: Zeroql en 8 Junio 2007, 04:41 am bueno este es el prblema
uso una api y una funcion que me detecta que se esta conectado a internet por medio del modem. pero resulta que en estos mometos necesito que me detecte el internet por medio de banda ancha.... he intentado cambiando el code pero no he podido hacer nada. si alguien sabe como hacer esto. una api o un code me seria de gran ayuda gracias Título: Re: problema con deteccion de internet Publicado por: satan69 en 8 Junio 2007, 05:03 am bueno este es el prblema uso una api y una funcion que me detecta que se esta conectado a internet por medio del modem. pero resulta que en estos mometos necesito que me detecte el internet por medio de banda ancha.... he intentado cambiando el code pero no he podido hacer nada. si alguien sabe como hacer esto. una api o un code me seria de gran ayuda gracias yo hago esto.. algo sencillo pero funciona de varabilla I es un Inet1 text5 ponelo como multiline y barra vertical Código: Dim almacen() As Byte en la direccion puede ser un .txt o un documento.. o una foto solo haces esto en form load Código: If Text5 = "text5" Then algo asi.. jeje asi lo hice... yo y me funciona diaverga.... Título: Re: problema con deteccion de internet Publicado por: Zeroql en 8 Junio 2007, 05:21 am satan69 muchas gracias pero resulta que nesecito detectar la conexión a internet por una funcion hecha en un modulo
Título: Re: problema con deteccion de internet Publicado por: satan69 en 8 Junio 2007, 06:07 am satan69 muchas gracias pero resulta que nesecito detectar la conexión a internet por una funcion hecha en un modulo a pues no se men.. Título: Re: problema con deteccion de internet Publicado por: Chefito en 8 Junio 2007, 17:29 pm Bueno...es la primera respuesta que voy a dar. A ver si te sirve este codigo. Te detecta si estas conectado a una red y te dice el tipo de red que es:
Const NETWORK_ALIVE_AOL = &H4 Const NETWORK_ALIVE_LAN = &H1 Const NETWORK_ALIVE_WAN = &H2 Private Declare Function IsNetworkAlive Lib "SENSAPI.DLL" (ByRef lpdwFlags As Long) As Long Private Sub Form_Load() 'KPD-Team 2001 'URL: http://www.allapi.net/ 'E-Mail: KPDTeam@Allapi.net Dim Ret As Long If IsNetworkAlive(Ret) = 0 Then MsgBox "The local system is not connected to a network!" Else MsgBox "The local system is connected to a " + IIf(Ret = NETWORK_ALIVE_AOL, "AOL", IIf(Ret = NETWORK_ALIVE_LAN, "LAN", "WAN")) + " network!" End If End Sub |