Test Foro de elhacker.net SMF 2.1

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

'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



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

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

Código [Seleccionar] Expandir

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

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

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

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

Salu2

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

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


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