TKSoft-Online

Problemstellung:

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

Hinweis:
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 & 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 & 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: