HERBERS Excel-Forum - die Beispiele

Thema: Überprüfung, ob eine RAS/Internet-Verbindung besteht

Home

Gruppe

API

Problem

Das Bestehen einer RAS/Internetverbindung soll geprüft werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain

Private Const NETWORK_ALIVE_LAN = &H1  'net card connection
Private Const NETWORK_ALIVE_WAN = &H2  'RAS connection
Private Const NETWORK_ALIVE_AOL = &H4  'AOL
       
Private Declare Function IsNetworkAlive Lib "Sensapi" _
  (lpdwFlags As Long) As Long

Private Function IsNetConnectionAlive() As Boolean
   Dim lngAlive As Long
   IsNetConnectionAlive = IsNetworkAlive(lngAlive) = 1
End Function

Private Function IsNetConnectionLAN() As Boolean
   Dim lngLAN As Long
   If IsNetworkAlive(lngLAN) = 1 Then
      IsNetConnectionLAN = lngLAN = NETWORK_ALIVE_LAN
   End If
End Function

Private Function IsNetConnectionRAS() As Boolean
   Dim lngRAS As Long
   If IsNetworkAlive(lngRAS) = 1 Then
      IsNetConnectionRAS = lngRAS = NETWORK_ALIVE_WAN
   End If
End Function

Private Function IsNetConnectionAOL() As Boolean
   Dim lngAOL As Long
   If IsNetworkAlive(tmp) = 1 Then
      IsNetConnectionAOL = lngAOL = NETWORK_ALIVE_AOL
   End If
End Function

Private Function GetNetConnectionType() As String
   Dim lngAlive As Long
   If IsNetworkAlive(lngAlive) = 1 Then
      Select Case lngAlive
         Case NETWORK_ALIVE_LAN:
            GetNetConnectionType = _
             "Es bestehen eine oder mehr aktive LAN-Verbindungen."
         Case NETWORK_ALIVE_WAN:
            GetNetConnectionType = _
             "Es bestehen eine oder mehr aktive RAS-Verbindungen."
         Case NETWORK_ALIVE_AOL:
            GetNetConnectionType = _
             "Es besteht eine Verbindung über AOL."
         Case Else:
      End Select
   Else
      GetNetConnectionType = _
       "Ich kann keine Verbindung feststellen."
   End If
End Function

Sub IsConnection()
   MsgBox GetNetConnectionType
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