Zjištění aktivního připojení k síti

Postup:
Na systémech Windows NT/2000 jsou pouze dva možné typy připojení - LAN nebo WAN, zatímco Windows 9x mohou detekovat ještě třetí typ - AOL. Funkce zde uváděné pracují ve Windows 2000 nebo ve starších verzích s nainstalovaným IE 5.x

Private Declare Function IsNetworkAlive Lib "Sensapi" _
   (lpdwFlags As Long) As Long

Private Const NETWORK_ALIVE_LAN = &H1 
'Připojení pomocí síťové karty
Private Const NETWORK_ALIVE_WAN = &H2
'RAS
Private Const NETWORK_ALIVE_AOL = &H4 
'AOL

Private Function IsNetConnectionAlive() As Boolean

   
'Zjišťuje, zda je jakékoliv připojení k síti aktivní.
   'Vrací True, pokud je připojení aktivní, jinak False

   Dim tmp As Long
   IsNetConnectionAlive = IsNetworkAlive(tmp) = 1
   
End Function


Private Function IsNetConnectionLAN() As Boolean

   
'Zjišťuje, zda je aktivní připojení k síti LAN.
   'Vrací True, pokud je připojení aktivní, jinak False

   Dim tmp As Long
   
   If IsNetworkAlive(tmp) = 1 Then
      IsNetConnectionLAN = tmp = NETWORK_ALIVE_LAN
   End If

End Function


Private Function IsNetConnectionRAS() As Boolean

   
'Zjišťuje, zda je aktivní připojení k síti pomocí RAS.
   'Vrací True, pokud je připojení aktivní, jinak False

   Dim tmp As Long
   
   If IsNetworkAlive(tmp) = 1 Then
      IsNetConnectionRAS = tmp = NETWORK_ALIVE_WAN
   End If
   
End Function


Private Function IsNetConnectionAOL() As Boolean

   
'Zjišťuje, zda je aktivní připojení k síti AOL.
   'Vrací True, pokud je připojení aktivní, jinak False

   Dim tmp As Long
   
   If IsNetworkAlive(tmp) = 1 Then
      IsNetConnectionAOL = tmp = NETWORK_ALIVE_AOL
   End If

End Function

Zpět

Autor: The Bozena