Dieses Beispiel zeigt, wie sich der Online-Status per VBA überprüfen lässt. Mit Hilfe des Codes wird geprüft, ob der Computer mit dem Internet verbunden ist oder nicht und gibt eine entsprechende Meldung aus.
Erfassen Sie dazu einfach folgenden Code in einem neuen Code-Modul.
Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" (ByRef lpdwFlags As Long, _ ByVal lpszConnectionName As String, ByVal dwNameLen As Integer, ByVal dwReserved As Long) As Long Dim sConnType As String * 255 Sub Test_Online() '** Dimensionierung der Variablen Dim lngStatus As Long '** Stauts auslesen lngStatus = InternetGetConnectedStateEx(Ret, sConnType, 254, 0) '** Hinweis ausgeben If lngStatus = 1 Then MsgBox "Du bist online!" Else MsgBox "Du bist nicht online!" End If End Sub