Besteht eine DFÜ-Verbindung?
18.01.2001
10:13:37 Uhr73342 Aufrufe
10:13:37 Uhr
Noch nicht bewertet
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:
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:
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:
Auf analoge Weise können Sie die Statistik aller Verbindungen abfragen, die Windows zurückgeliefert hat: Deren Indizes liegen zwischen 0 und lpcConnections - 1.
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&)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.
'....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
