Home

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

MsgBox OnlineVia 

• Netzwerkwerte auslesen
• Suchen und Einlesen von Dateien mit MS-Access II
• Ermitteln und Beenden von externen Programmen
• Arbeiten mit EXIF-Tags
• Verzeichnisgröße ermitteln, wahlweise mit oder ohne Unterverzeichnisse