VBA-Programmierung in Microsoft Excel

Prüfung, ob Internet-Verbindung besteht

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