Excel und VBA: Formeln, Programmierung, Lösungen

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

    

Beiträge aus dem Excel-Forum zu den Themen API und Internet