Deklaration: Declare Function RasHangUp Lib "rasapi32.dll" _ Alias "RasHangUpA" ( _ ByVal hrasconn As Long) As Long Beschreibung: Parameter:
Rückgabewert: Beispiel: 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 Private Const RAS_MAXENTRYNAME = 256 ' Maximale Anzahl der Zeichen für den ' Namen einer DFÜ-Verbindung Private Const RAS_MAXDEVICETYPE = 16 ' Maximale Anzahl der Zeichen für den Gerätetyp Private Const RAS_MAXDEVICENAME = 128 ' Maximale Anzahl der Zeichen für den ' Namen des Gerätes Private Type RASCONN dwSize As Long hrasconn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Type Dim Connections() As RASCONN ' Aktive Verbindungen ermitteln Private Sub Command1_Click() Dim i As Integer, TmpRasName As String Dim ConCount As Long, Retval As Long ' Listeninhalt löschen List1.Clear ' Array neu dimensionieren ReDim Connections(0 To 255) ' Struktur RASCONN vorinitialisieren Connections(0).dwSize = Len(Connections(0)) + 1 ' Alle aktiven Verbindungen ermitteln Retval = RasEnumConnections(Connections(0), Connections(0).dwSize * _ 255, ConCount) If Retval << 0 Then MsgBox "Die Funktion konnte nicht ausgeführt werden:" Exit Sub ElseIf ConCount = 0 Then MsgBox "Es ist keine Verbindung aktiv" Exit Sub End If ' Ermittelte Verbindungen der Liste hinzufügen For i = 0 To ConCount - 1 TmpRasName = StrConv(Connections(i).szEntryName, vbUnicode) List1.AddItem Left$(TmpRasName, InStr(TmpRasName, vbNullChar) - 1) List1.ItemData(List1.NewIndex) = Connections(i).hrasconn Next i End Sub ' Trennen der Verbindung Private Sub List1_DblClick() Dim MsgRet As Long MsgRet = MsgBox("Wollen Sie die aktive Verbindung " & List1.Text & " _ wirklich trennen ?", vbYesNo + vbInformation, "Verbindung Trennen") If MsgRet = vbNo Then Exit Sub Call RasHangUp(List1.ItemData(List1.ListIndex)) End Sub Diese Seite wurde bereits 7.648 mal aufgerufen. |
Neu! sevPopUp 2.0 Dynamische Kontextmenüs! Erstellen Sie mit nur wenigen Zeilen Code Kontextmenüs dynamisch zur Laufzeit. Vordefinierte Styles (XP, Office, OfficeXP, Vista oder Windows 8) erleichtern die Anpassung an die eigenen Anwendung... Buchempfehlung Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP Entwickler-Paket TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1605.50 EUR... |
||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |