38907 Letture

Verificare se la connessione a Internet è attiva

Questa funzione (ActiveConnection) permette di controllare se la connessione Internet è al momento attiva.

La funzione può essere invocata da VB semplicemente inserendo ActiveConnection

Esempio:
MsgBox ActiveConnection
mostra in un message box lo stato della connessione Internet.

True significa che la connessione è al momento attiva;
False significa che al momento non si è connessi ad Internet.

Public Function ActiveConnection() As Boolean
    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
    ActiveConnection = False
    ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, "System\CurrentControlSet\Services\RemoteAccess", phkResult)


    If ReturnCode = ERROR_SUCCESS Then
        hKey = phkResult
        lpValueName = "Remote Connection"
        lpReserved = APINULL
        lpType = APINULL
        lpData = APINULL
        lpcbData = APINULL
     ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, ByVal lpData, lpcbData)
lpcbData = Len(lpData)
ReturnCode = RegQueryValueEx(hKey, lpValueName, _
lpReserved, lpType, lpData, lpcbData)



If ReturnCode = ERROR_SUCCESS Then


If lpData = 0 Then
ActiveConnection = False
Else
ActiveConnection = True
End If
End If
RegCloseKey (hKey)
End If
End Function


Verificare se la connessione a Internet è attiva - IlSoftware.it