HERBERS Excel-Forum - die Beispiele

Thema: Prüfung, ob Internet-Verbindung besteht

Home

Gruppe

API

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

Excel to Word Kapitel VBA Anfangskapital berechnen
Gestapelte Säulen-Diagramm: Ich kapier's nicht Googel Maps API in Excel VBA einfügen
Text aus Zelle in Internet Seite internet explorer per handle in Objekt umwandeln
InternetExplorer Object Einfügen aus Internet-Seite
Absturz Excel bei Internet-Absturz Berechnung vom Endkapital
Internetdienst mit Makro ausführen API? - xl-Parameter aus Long-Wert bestimmen
Berechnung Kapitalanlage Download aus dem Internet Teil2
Einfügen aus Internet 10² Datei aus dem Internet runterladen
XLB Auswirkung auf Internet Explorer Excel standard Symbolleiste im Internet Explorer
Telefonnummer auslesen per TAPI internet frage zum RFC
Datei im Internet bearbeiten Läuft RSAPI.DLL mit WIN2000 und XP?
JAVA API mit VBA verwenden Internetseite Markieren u. in Tabellenb. kopieren
Internetseite aufrufen Internetseite öffnen + schließen
Internet Browser_Veraluf löschen Daten Export aus dem internet
Email & Internet Adresse Filesuche auf Internet-Server
VBA Download aus Internet / Prüfung ob vorhanden Exeldatei im Internet
Internetseite starten Excel - Internet
Internet Files auslesen Papierformat speichern
verschiedene Papierquele beim Drucken Entnahme mit Kapitalverzehr
Berechnung Endkapital / Zinsen Druck auf Papier und PDF mit und ohne Logo
Frage zur RSAPI.DLL hile zum internetexplorer.application objekt
Kombination Seitenumbruch Papierformat Anpassen Internet Explorer starten und Cursor positioneren
Wetter aus dem Internet Internet Explorer geöffnet abprüfen ?
Hilfe bei der Fehlersuche (API) Existiert Internetseite
Internetseiten in Exel kopieren Automatisches Update übers Internet