Détecter si on est connecté au net

Commenter

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

Du même auteur (cs_dtom)