Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Internetverbindung trennen

Gruppe

Internet

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