Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Prüfung, ob Internet-Verbindung besteht

Gruppe

Internet

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