Verificare se la connessione a Internet è attiva

• Howto

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 lpData = 0 Then
ActiveConnection = False
Else
ActiveConnection = True
End If
End If
RegCloseKey (hKey)
End If
End Function