Internet-Verbindung trennen Trennen einer bestimmten oder aller Internet-Verbindungen.
Autor:   Dieter Otter	Bewertung:     [ Jetzt bewerten ]	Views:  29.052
https://www.tools4vb.com	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 34 Bewertung insgesamt: gut Durchschnittliche Bewertung: 3.6 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

In unserem vorigen Tipp haben wir Ihnen gezeigt, wie man eine Internet-Verbindung programmgesteuert starten kann. Unser heutiger Tipp zeigt den umgekehrten Weg, d.h. Sie können entweder eine bestimmte oder oder alle aktiven Internet-Verbindungen programmgesteuert trennen.

' zunächst die benötigten API-Deklarationen
Private Declare Function InternetGetConnectedState Lib "wininet.dll" ( _
  ByRef lpdwFlags As Long, _
  ByVal dwReserved As Long) As Long
Private Declare Function InternetHangUp Lib "wininet.dll" ( _
  ByVal dwConnection As Long, _
  ByVal dwReserved As Long) As Long
 
Private Const DIAL_FORCE_ONLINE = 1
Private Const DIAL_FORCE_UNATTENDED = 2
 
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 RasEnumConnectionsA Lib "RasApi32.DLL" ( _
  lpRasConn As Any, _
  lbcp As Long, _
  lbcConnections As Long) As Long

Prüfen auf aktive Internet-Verbindungen
Zunächst möchten wir Ihnen eine Routine vorstellen, welche prüft, ob eine Internet-Verbindung aktiv ist. Soll auf eine ganz bestimmte DFÜ-Verbindung hin geprüft werden, geben Sie für den Parameter DFÜName den entsprechenden Verbindungsnamen an. Für den Parameter hWnd übergeben Sie das Fensterhandle des aktiven Formulars. Die Funktion liefert als Rückgabewert den Handle der Internet-Verbindung oder 0, wenn keine (oder nicht die im Parameter DFÜName angegebene) Verbindung besteht.

' Prüfen auf aktive Internet-Verbindungen
Public Function RASIsConnected(ByVal hWnd As Long, _
  Optional ByVal DFÜName As String = "") As Long
 
  Dim nConnected As Long
  Dim dwFlags As Long
  Dim lpRasConn(255) As RASCONN
  Dim lpcConnections As Long
  Dim lpcb As Long
  Dim i As Long
  Dim hRasConn As Long
  Dim szEntryName As String
 
  ' Anzahl aktiver Verbindungen
  nConnected = InternetGetConnectedState(dwFlags, 0)
  If (nConnected) Then
    ' Handle der Verbindung ermitteln
    lpRasConn(0).dwSize = 412
    lpcb = 256 * lpRasConn(0).dwSize
    RasEnumConnectionsA lpRasConn(0), lpcb, lpcConnections
 
    If DFÜName <> "" Then
      ' Prüfen, ob "DFÜName" in der Auflistung vorhanden
      For i = 0 To lpcConnections - 1
        szEntryName = StrConv(lpRasConn(i).szEntryName, _
          vbUnicode)
        szEntryName = Left$(szEntryName, _
          InStr(szEntryName, vbNullChar) - 1)
        If szEntryName = DFÜName Then
          hRasConn = lpRasConn(i).hRasConn
          Exit For
        End If
      Next i
    Else
      ' Handle der ersten Verbindung
      hRasConn = lpRasConn(0).hRasConn
    End If
  End If
 
  RASIsConnected = hRasConn
End Function

Online-Verbindung trennen
Geben Sie für DFÜ-Name einen bestimmten Verbindungsnamen an, wird eben diese DFÜ-Verbindung getrennt (sofern sie aktiv ist). Wird DFÜ-Name weggelassen oder ein Leerstring ("") angegeben, wird die in der Auflistung erste aktive Internet-Verbindung getrennt. Als kleines "Extra" können über die nachfolgende Funktion auch ALLE aktiven Online-Verbindungen getrennt werden. Ist dies erwünscht, geben Sie für den Parameter DisconnectAll den Wert True an. Die Funktion gibt True zurück, wenn sie erfolgreich ausgeführt werden konnte. Trat ein Fehler auf oder konnte die Verbindung nicht getrennt werden, wird als Rückgabewert False zurückgegeben.

' (bestimmte/alle) Internet-Verbindung(en) trennen
Public Function RASDisconnect(ByVal hWnd As Long, _
  Optional ByVal DFÜName As String = "", _
  Optional ByVal DisconnectAll As Boolean) As Boolean
 
  Dim nConnected As Long
  Dim dwFlags As Long
  Dim lpRasConn(255) As RASCONN
  Dim lpcConnections As Long
  Dim lpcb As Long
  Dim hRasConn As Long
  Dim i As Long
  Dim Result As Boolean
 
  Result = False
  If Not DisconnectAll Then
    ' (bestimmte) Verbindung trennen
    hRasConn = RASIsConnected(hWnd, DFÜName)
    If hRasConn <> 0 Then
      Result = (InternetHangUp(hRasConn, 0) = 0)
    End If
 
  Else
    ' Alle Verbindungen trennen
    nConnected = InternetGetConnectedState(dwFlags, 0)
    If (nConnected) Then
      lpRasConn(0).dwSize = 412
      lpcb = 256 * lpRasConn(0).dwSize
      RasEnumConnectionsA lpRasConn(0), lpcb, lpcConnections
 
      Result = True
      For i = 0 To lpcConnections - 1
        hRasConn = lpRasConn(i).hRasConn
        If InternetHangUp(hRasConn, 0) <> 0 Then _
          Result = False
      Next i
    End If
  End If
 
  RASDisconnect = Result
End Function