VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Prüfung, ob Internet-Verbindung besteht

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

    


Beiträge aus dem Excel-Forum zu den Themen API und Internet