Gruppe
API
Problem
Eine evtl. bestehende Internetverbindung soll getrennt werden.
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