Gruppe
API
Bereich
Internet
Thema
Prüfung, ob Internet-Verbindung besteht
Problem
Es soll geprüft werden, ob eine Internetverbindung besteht.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (lpdwFlags As Long, _
ByVal dwReserved As Long) As Boolean
Function IsConnected() As Boolean
Dim lStat As Long
IsConnected = (InternetGetConnectedState(lStat, 0&) <> 0)
End Function
Sub Meldung()
Dim bln As Boolean
bln = IsConnected
If bln Then
MsgBox "Internetverbindung besteht!"
Else
MsgBox "Internetverbindung besteht nicht!"
End If
End Sub