Detecting a connection

Hi friends.
I'm making a program that calculates the time i'm
online. My connection is via modem.
How do I detect when someone has made a dail-up connection
to the net? / [email protected]

To detect Internet connection:

Code:

---

'In a module

Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey _
As Long) As Long

Declare Function RegOpenKey Lib "advapi32.dll" _
Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As _
String, phkResult 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

Public Const ERROR_SUCCESS As Long = 0
Public Const APINULL As Long = 0
Public Const HKEY_LOCAL_MACHINE As Long = &H80000002

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
  Dim ReturnCode As Long
 
  ActiveConnection = False
 
  lpSubKey = "System\CurrentControlSet\Services\RemoteAccess"
 
  ReturnCode = RegOpenKey(HKEY_LOCAL_MACHINE, lpSubKey, 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


Usage

'In form1's Timer:


Private Sub Timer1_Timer()
If ActiveConnection Then
Caption = "Internet Connection Detected!"
Else
Caption = "No Internet Connection Detected!"
End Sub

---