problema con deteccion de internet

[Zeroql]

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

[satan69]

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 [Seleccionar] Expandir

Dim almacen() As Byte

I.Protocol = icHTTP
I.url = "direccion del donde esta el .txt"
almacen() = I.OpenURL("direccion en el servidor donde esta el .txt")

text5 = almacen()

en la direccion puede ser un .txt o un documento.. o una foto

solo haces esto en form load

Código [Seleccionar] Expandir

If Text5 = "text5" Then
MsgBox "No estas conectado a internet", vbInformation
End


algo asi.. jeje asi lo hice... yo y me funciona diaverga....

[Zeroql]

satan69 muchas gracias pero resulta que nesecito detectar la conexión a internet por una funcion hecha en un modulo

[satan69]

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

[Chefito]

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