Gruppe
API
Bereich
Internet
Thema
Internetverbindung trennen
Problem
Eine evtl. bestehende Internetverbindung soll getrennt werden.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: Modul1
von Fritz Grath
Private Type RASCONN
dwSize As Long
hRasConn As Long
szEntryName(256) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
End Type
Private Declare Function RasEnumConnections Lib "RasApi32.DLL" _
Alias "RasEnumConnectionsA" (lprasconn As Any, lpcb As Long, _
lpcConnections As Long) As Long
Private Declare Function RasHangUp Lib "RasApi32.DLL" Alias _
"RasHangUpA" (ByVal hRasConn As Long) As Long
Sub Verbindung_trennen()
Dim lprasconn(255) As RASCONN
lprasconn(0).dwSize = 412
lpcb& = 256 * lprasconn(0).dwSize
RasEnumConnections lprasconn(0), lpcb&, lpcConnections&
If lpcConnections& > 0 Then
RasHangUp lprasconn(0).hRasConn
End If
End Sub