Onlinestatus ermitteln

1 1 1 1 1 1 1 1 1 1 Rating 0.00 (0 Votes)

Details: Kategorie: Codeschnipsel Communication; Geschrieben von TommyK; Zugriffe: 6602

Nur für 32Bit Office Versionen

Problemstellung:

Wie kann ich den Onlinestatus des Systems ermitteln und welche Verbindung besteht?

Der Modemteil konnte in Ermangelung eines Modems nicht getestet werden!

Lösung:
Folgenden Code in ein öffentliches Modul kopieren:

Public Declare Function InternetGetConnectedState _
    Lib "wininet.dll" ( _
    ByRef lpdwFlags As Long, _
    ByVal dwReserved As Long) As Long
Public Const INTERNET_CONNECTION_MODEM As Long = &H1
Public Const INTERNET_CONNECTION_LAN As Long = &H2
Public Const INTERNET_CONNECTION_PROXY As Long = &H4

Public Function IsSystemOnline() As Boolean
    IsSystemOnline = InternetGetConnectedState(0&, 0&)
End Function

Public Function OnlineVia() As String
    Dim lngFlags As Long
    Dim bResultLAN As Boolean, bResultModem As Boolean
    If IsSystemOnline = True Then
        Call InternetGetConnectedState(lngFlags, 0&)
        bResultLAN = lngFlags And INTERNET_CONNECTION_LAN
        bResultModem = lngFlags And INTERNET_CONNECTION_MODEM
        If bResultLAN <> False Then
            bResultLAN = lngFlags And INTERNET_CONNECTION_PROXY
            If bResultLAN <> False Then
                OnlineVia = "Online via LAN &amp; Proxy"
            Else
                OnlineVia = "Online via LAN"
            End If
        ElseIf bResultModem <> False Then
            bResultModem = lngFlags And INTERNET_CONNECTION_PROXY
            If bResultModem <> False Then
                OnlineVia = "Online via Modem &amp; Proxy"
            Else
                OnlineVia = "Online via Modem"
            End If
        End If
    Else
        OnlineVia = "Es besteht keine Onlineverbindung"
    End If
End Function

Aufruf z.B.:

MsgBox OnlineVia

Ergebnis: