Détecter si on est connecté au net

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 230 fois - Téléchargée 36 fois

Contenu du snippet

cette source permet de détecter si on est connecté à internet ou pas.
j'en ai chercher une de convenable sur vbfrance mais je n'en ai pas trouvé (j'en ai meme trouvé une qui connectait à internet pour nous dire apres qu'on était connecté!).
je l'ai donc trouvé sur un autre site(d'on j'ai oublier le nom) et je l'ai légèrement améliorer.
alle à au moin le mérite de fonctionner cher moi, qu'en est t-il pour vous ? (adsl par exemple ?)

Source / Exemple :


Private Const HKEY_LOCAL_MACHINE = &H80000002
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegQueryValueEx Lib "advapi32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long

Public Function ActiveConnection() As Boolean
    Dim ReturnCode As Long
    Dim hKey As Long
    Dim lpSubKey As String
    Dim phkResult As Long
    Dim lpValueName As String
    Dim lpReserved As Long
    Dim lpType As Long
    Dim lpData As Long
    Dim lpcbData As Long
    If RegOpenKey(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\RemoteAccess", phkResult) = 0 Then
        hKey = phkResult
        lpValueName = "Remote Connection"
        lpReserved = 0
        lpType = 0
        lpData = 0
        lpcbData = 0
        Call RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, ByVal lpData, lpcbData)
        lpcbData = Len(lpData)
        If RegQueryValueEx(hKey, lpValueName, lpReserved, lpType, lpData, lpcbData) = 0 Then
            If lpData = 0 Then
                ActiveConnection = False
            Else
                ActiveConnection = True
            End If
        End If
        RegCloseKey (hKey)
    End If
End Function

Conclusion :


je vous fait profiter de cette source, d'on l'original n'est pas de moi.

A voir également

Ajouter un commentaire Commentaires
Messages postés
32
Date d'inscription
mardi 15 janvier 2002
Statut
Membre
Dernière intervention
24 mars 2011

Ne marche pas pour une connexion LAN
Messages postés
137
Date d'inscription
samedi 11 septembre 2004
Statut
Membre
Dernière intervention
10 septembre 2006

Salut à tous....
petite question... je sais pas si je vais m'exprimer correctement (débutant oblige)... bref si l'on charge (en invisible) une page internet et qu'il y à une variable... connue? ou si l'on peut détecter une erreur 404?
est-ce possible?
Messages postés
37
Date d'inscription
mardi 8 juillet 2003
Statut
Membre
Dernière intervention
27 avril 2006

Slt Arknoth!
Je pense que l'idée est bonne, d'ailleurs...un petit exemple serait le bienvenue...
Voila...ça aiderait la communauté...et surtout les débutants comme moi...
Messages postés
96
Date d'inscription
jeudi 2 janvier 2003
Statut
Membre
Dernière intervention
22 août 2004

a mon avis ta méthode de détection n'est pas la bonne (oui oui chu devin)
essaye plutôt cette méthode : récupère l'IP du PC (celle d'internet)
si elle n'existe pas --> pas connecté
si elle existe, ping-là. Ainsi tu pourras savoir si la connec est ok, son ping, et surtout si le ping monte anormalement, signaler l'imminence d'un déconnexion^^
voilà amuse-toi bien
Messages postés
132
Date d'inscription
mercredi 12 juin 2002
Statut
Membre
Dernière intervention
26 janvier 2006

Moi j'ai ADSL et ca marche pas.

A++
PCMAN5
Afficher les 11 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.