IsActiveConnection

'API Per l'accesso al registry

Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
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
'Funzione per rilevare la presenza di una connessione attiva

Public Function ConnectionActive() As Boolean
Dim phkResult As Long, lpData As Long, lpcbData As Long
Dim ReturnCode As Long
'Per default, nessuna connessione attiva

ConnectionActive = False
ReturnCode = RegOpenKey(&H80000002, "System\CurrentControlSet\Services\RemoteAccess", phkResult)
If ReturnCode = 0& Then
lpData = 0&
lpcbData = 0&
ReturnCode = RegQueryValueEx(phkResult, "Remote Connection", 0&, 0&, ByVal lpData, lpcbData)
lpcbData = Len(lpData)
ReturnCode = RegQueryValueEx(phkResult, "Remote Connection", 0&, 0&, lpData, lpcbData)
If ReturnCode = 0& And lpData <> 0 Then ConnectionActive = True
RegCloseKey (phkResult)
End If
End Function