Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Überprüfung, ob eine RAS/Internet-Verbindung besteht

Gruppe

Internet

Problem

Das Bestehen einer RAS/Internetverbindung soll geprüft werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: basMain

Private Const NETWORK_ALIVE_LAN = &H1  'net card connection
Private Const NETWORK_ALIVE_WAN = &H2  'RAS connection
Private Const NETWORK_ALIVE_AOL = &H4  'AOL
       
Private Declare Function IsNetworkAlive Lib "Sensapi" _
  (lpdwFlags As Long) As Long

Private Function IsNetConnectionAlive() As Boolean
   Dim lngAlive As Long
   IsNetConnectionAlive = IsNetworkAlive(lngAlive) = 1
End Function

Private Function IsNetConnectionLAN() As Boolean
   Dim lngLAN As Long
   If IsNetworkAlive(lngLAN) = 1 Then
      IsNetConnectionLAN = lngLAN = NETWORK_ALIVE_LAN
   End If
End Function

Private Function IsNetConnectionRAS() As Boolean
   Dim lngRAS As Long
   If IsNetworkAlive(lngRAS) = 1 Then
      IsNetConnectionRAS = lngRAS = NETWORK_ALIVE_WAN
   End If
End Function

Private Function IsNetConnectionAOL() As Boolean
   Dim lngAOL As Long
   If IsNetworkAlive(tmp) = 1 Then
      IsNetConnectionAOL = lngAOL = NETWORK_ALIVE_AOL
   End If
End Function

Private Function GetNetConnectionType() As String
   Dim lngAlive As Long
   If IsNetworkAlive(lngAlive) = 1 Then
      Select Case lngAlive
         Case NETWORK_ALIVE_LAN:
            GetNetConnectionType = _
             "Es bestehen eine oder mehr aktive LAN-Verbindungen."
         Case NETWORK_ALIVE_WAN:
            GetNetConnectionType = _
             "Es bestehen eine oder mehr aktive RAS-Verbindungen."
         Case NETWORK_ALIVE_AOL:
            GetNetConnectionType = _
             "Es besteht eine Verbindung über AOL."
         Case Else:
      End Select
   Else
      GetNetConnectionType = _
       "Ich kann keine Verbindung feststellen."
   End If
End Function

Sub IsConnection()
   MsgBox GetNetConnectionType
End Sub