Online-Status prüfen
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
Drucken
E-Mail