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
|