Imprimir Página - Averiguar si esta conectado a internet

Título: Averiguar si esta conectado a internet
Publicado por: Wdeah en 16 Febrero 2006, 09:07 am

hola, de que manera puedo averiguar si la persona que este ejecutando mi programa esta conectada a internet?
gracias

Título: Re: Averiguar si esta conectado a internet
Publicado por: NYlOn en 16 Febrero 2006, 16:04 pm

Código:

'Example by Vijay Phulwadhawa (vijaycg44@hotmail.com)
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    MsgBox "Is connected to the internet: " + CStr(IsConnected)
End Sub
Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function

Título: Re: Averiguar si esta conectado a internet
Publicado por: BenRu en 16 Febrero 2006, 16:39 pm

Tambien puedes hacerlo con el control winsock... ;)

Título: Re: Averiguar si esta conectado a internet
Publicado por: Wdeah en 16 Febrero 2006, 16:59 pm

Cita de: NYlOn en 16 Febrero 2006, 16:04 pm

Código:

'Example by Vijay Phulwadhawa (vijaycg44@hotmail.com)
Private Declare Function InternetGetConnectedState Lib "wininet.dll" (ByRef lpdwFlags As Long, ByVal dwReserved As Long) As Long
Private Sub Form_Load()
    MsgBox "Is connected to the internet: " + CStr(IsConnected)
End Sub
Public Function IsConnected() As Boolean
    If InternetGetConnectedState(0&, 0&) = 1 Then
        IsConnected = True
    Else
        IsConnected = False
    End If
End Function

Hola, el codigo funciona, pero lo que me dice es si la conexion ADSL esta establecida, no si estoy conectado a internet o no :S

como seria eso del winsock ?
muchas gracias por preocuparse.

Título: Re: Averiguar si esta conectado a internet
Publicado por: NYlOn en 17 Febrero 2006, 05:18 am

Citar

Hola, el codigo funciona, pero lo que me dice es si la conexion ADSL esta establecida, no si estoy conectado a internet o no :S

Si la conexion ADSL esta establecida, estas conectado a internet ???

No se que es lo que necesitas, por favor explicate mejor.-

Título: Re: Averiguar si esta conectado a internet
Publicado por: Wdeah en 17 Febrero 2006, 11:25 am

hola, mira en mi caso, que tengo conexion ADSL cuando prendo la pc, el modem se conecta con mi provedor de internet, una ves que se conecta el modem, no estoy conectado a internet, y el codigo me dice que si lo estoy..
se entiende bien?
gracias

Título: Re: Averiguar si esta conectado a internet
Publicado por: Kizar en 17 Febrero 2006, 15:07 pm

Pues podrias comprobar si tu ip es diferente de 127.0.0.1 supongo k estaras conectado.

Salu2

Título: Re: Averiguar si esta conectado a internet
Publicado por: kuki06 en 26 Abril 2006, 10:18 am

se complican la vida muchachos..
necesitamos: 1 winsock y un label y el codigo en el form load

Código:

Private sub form_load()
If winsock1.Localip = "127.0.0.1" Then
Label1.caption = "No estas conectado a internet
Else
Label1.caption = "si estas conectado a internet
End if
End sub

Título: Re: Averiguar si esta conectado a internet
Publicado por: MazarD en 26 Abril 2006, 12:32 pm

Lo de mirar si la ip actual es 127.0.0.1 no es nada fiable, yo puedo tener cualquier ip que me dé la gana asignada o simplemente estando detrás de un router ya no será esa.

Tienes varios métodos:
1.-HKEY_LOCAL_MACHINE\system\currentcontrolset\services\remoteaccess
Pero esto sólo funcionará si te conectas a través de modem.
2.-InternetGetConnectedState tiene el problema de que si estás en LAN y conectandote a través de modem no funcionará.
3.-Hacer ping o intentar conectar a una web. Que lógicamente funciona siempre aunque es un poco cutre.

No hay más. Saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Wdeah en 16 Febrero 2006, 09:07 am