Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Besteht eine DFÜ-Verbindung?

Mitglied: Frank

Frank (Level 5) - Jetzt verbinden

18.01.2001 um 10:13 Uhr, 81803 Aufrufe

Schreiben Sie eine Anwendung mit Internet-Anbindung, einen Gebührenzähler oder ähnliche Anwendungen? Dann sollten Sie wissen, ob überhaupt eine Verbindung besteht (die Einschränkung gleich vorweg: hier wird es nur um Verbindungen des DFÜ-Netzwerks gehen - proprietäre Einwählprogramme wie T-Online, AOL werden nicht erfaßt).

Das 32 Bit-API bietet hierfür die Funktionen RasEnumConnections, die die aktiven Verbindungen des DFÜ-Netzwerks auflistet:
01.
' 32 Bit 
02.
  Private Type RASCONN 
03.
    dwSize As Long 
04.
    hRasConn As Long 
05.
    szEntryName(256) As Byte 
06.
    szDeviceType(16) As Byte 
07.
    szDeviceName(128) As Byte 
08.
  End Type 
09.
 
10.
  Private Declare Function RasEnumConnectionsA& Lib "RasApi32.DLL" _ 
11.
    (lprasconn As Any, lpcb&, lpcConnections&)
Zunächst wird ein Array der Struktur RASCONN dimensioniert, das dazu dienen soll, alle bestehenden DFÜ-Verbindungen zu erfassen. Vor dem Aufruf übergeben wir die Größe der Struktur mit 412 Bytes, um Windows mitteilen zu können, wieviel Puffer wir zur Rückgabe von Informationen zur Verfügung stellen werden. Nun kann mit der Abfrage mittels RasEnumConnections begonnen werden, indem die Startadresse des Arrays (das erste Element des Arrays mit dem Index 0) als erster Parameter übergeben wird. Da theoretisch bis zu 256 Verbindungen möglich sind, übergeben wir im nächsten Parameter die ermittelte Größe der RASCONN-Struktur (multipliziert mit 256) in der Variablen lpcb. Als letzten Parameter übergeben wir eine als Long dimensionierte Variable, in der Windows uns informieren wird, wieviele Verbindungsinformationen im Array abgelegt wurden:
01.
  Dim lprasconn(255) As RASCONN, lpcConnections As Long, _ 
02.
    lpcb As Long, hRasConn As Long, NameRasConn As String 
03.
  lprasconn(0).dwSize = 412 
04.
  lpcb = 256 * lprasconn(0).dwSize 
05.
 
06.
  If RasEnumConnectionsA(lprasconn(0), lpcb, lpcConnections) = 0 Then 
07.
  '....
Liefert Windows in lpcConnections eine 0 zurück, können wir uns jede weitere Anstrengung sparen - es besteht keine Verbindung. Andernfalls können wir (für die weitere Verwendung wie beispielsweise einen Verbindungsabbruch mittels der Funktion RasHangUp) die Handle der Verbindung im Parameter hRasConn der RASCONN95-Struktur ermitteln und den Verbindungsnamen (der noch in Unicode umgesetzt und des abschließenden Escape-Zeichens vbNullChar beraubt werden will) deren Parameter szEntryName entnehmen:
01.
'.... 
02.
  If lpcConnections > 0 Then  ' Eine DFÜ-Netzwerkverbindung ist aktiv 
03.
      hRasConn = lprasconn(0).hRasConn  ' Handle der Verbindung 
04.
      NameRasConn = StrConv(lprasconn(0).szEntryName, vbUnicode) 
05.
      NameRasConn = Left$(NameRasConn, InStr(NameRasConn, vbNullChar) - 1) 
06.
      MsgBox "Folgende DFÜ-Netzwerkverbindung ist aktiv: " & NameRasConn 
07.
    End If 
08.
  End If
Auf analoge Weise können Sie die Statistik aller Verbindungen abfragen, die Windows zurückgeliefert hat: Deren Indizes liegen zwischen 0 und lpcConnections - 1.
Ähnliche Inhalte
Administrator.de Feedback

Entwicklertagebuch: Benachrichtigungen bei neuen Inhalten von Verbindungen

Information von admtechAdministrator.de Feedback7 Kommentare

Hallo Administrator User, mit dem heutigen Release 5.3 haben wir unser Benachrichtigungssystem erweitert. Fügt eine Mitglied, mit dem ihr ...

Papierkorb

Event ID 4231 - keine Verbindungen zu einem Server möglich

Tipp von geocastPapierkorb1 Kommentar

Da ich das Probleme lange hatte und auch hier im Forum welche gefunden habe mit dem gleichen Problem, dachte ...

Netzwerke

Kindersicherung mit PfSense und Squid (-Guard) für lokale und mobile Verbindungen

Erfahrungsbericht von the-buccaneerNetzwerke2 Kommentare

Vorneweg: Das hier ist "Infotainement". Es mag die eine oder andere technische Information zur Lösung der Aufgabe, an die ...

Google Android

Android Custom Rom flashen trotz abbrechender Verbindung zum PC

Tipp von 121016Google Android

Liebes Forum, immer wieder bekomme ich das ein oder andere Android Smartphone auf meinen Tisch um dort ein Custom ...

Neue Wissensbeiträge
Windows 10
Windows 10 - Probleme mit Point-And-Print
Tipp von emeriks vor 19 StundenWindows 103 Kommentare

Hi, wir kämpfen z.Z. mit einigen Druckertreibern, welche unter Win10 beim Verbinden eines Druckers von Printserver mit dem Dialog ...

Windows 10

Windows 10 1803 - Ihr Roamingbenutzerprofil wurde nicht vollständig synchronisiert

Anleitung von Deepsys vor 20 StundenWindows 101 Kommentar

Bei allen Windows 10 1803 PCs traten Probleme mit den Servergespeicherten Profilen auf. Das Abmelden dauerte sehr lange und ...

Exchange Server
Exchange - Fehler mit 2018-07 Sicherheitsupdate
Tipp von ArnoNymous vor 2 TagenExchange Server7 Kommentare

Hallo, es gibt mal wieder Freude mit den MS-Updates. KB4338814 führt dazu, dass der Exchange keine Mails mehr zustellt. ...

Suche Projektpartner

PC Recycling Projekte mit Flüchtlingen und Kids suchen Materialspenden und Mitmacher!

Erfahrungsbericht von NettePCyclePiraten vor 3 TagenSuche Projektpartner13 Kommentare

Hallöchen liebe Kollegen, ich betreue zwei PC-Gruppen im Raum Dortmund: "Ne#e PCycle Pir@ten" & "PCschr@uber Br@mbauer" Wir sind eine ...

Heiß diskutierte Inhalte
Batch & Shell
PowerShell Auflösung zu .txt (Skript als exe) falsche Auflösung?!
Frage von timsen-96Batch & Shell27 Kommentare

Ich habe folgendes Skript um die Bildschirmauflösung herauszufinden, was auch in PowerShell super funktioniert: Add-Type -AssemblyName System.Windows.Forms $Width = ...

Exchange Server
Exchange Backup 10 Jahre Aufbewahrung
Frage von arccosExchange Server20 Kommentare

Hallo zusammen. Aktuell beschäftigen mich ein paar Fragen zum Thema Office365/ Exchange. 1.10 Jahre Aufbewahrungspflicht sicherstellen 2.Kann man als ...

Humor (lol)
Windows 10 - immer für Überraschungen gut
gelöst Frage von HenereHumor (lol)18 Kommentare

Eben nach (beim) installieren der neuesten Updates für 1803 :-) Und sorry fürs Handyfoto, aber der musste sein. Nach ...

Samba
Samba-NAS Zugriff verweigert
gelöst Frage von VernoxVernaxSamba15 Kommentare

hallo ich schaffe es einfach nicht meinem User Rechte zum schreiben zu geben. Ich habe dies alles auf nem ...