Gruppe
API
Problem
Das Bestehen einer RAS/Internetverbindung soll geprüft werden.
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