Visual Basic > Other sample source codes

 Terminate all active RAS connections

Terminate all active RAS connections To terminate all the open RAS connections use the following routine: Option Explicit 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_MAXDEVICETYPE As Integer = 16, RAS_MAXDEVICENAME As Integer = 128, RAS_RASCONNSIZE As Integer = 412, RAS_MAXENTRYNAME As Integer = 256 Private Type tRasConn dwSize As Long hRasConn As Long szEntryName(RAS_MAXENTRYNAME) As Byte szDeviceType(RAS_MAXDEVICETYPE) As Byte szDeviceName(RAS_MAXDEVICENAME) As Byte End Type 'Purpose : Terminates all the active RAS connections 'Inputs : N/A 'Outputs : N/A Sub TerminateRAS() Const ERROR_SUCCESS As Long = 0 Dim lThisConnection As Long, lStructSize As Long, lContCons As Long, lRet As Long Dim tRasConn(255) As tRasConn 'Get info on all all the opened RAS connections tRasConn(0).dwSize = RAS_RASCONNSIZE lStructSize = RAS_MAXENTRYNAME * tRasConn(0).dwSize lRet = RasEnumConnections(tRasConn(0), lStructSize, lContCons) 'hangup all the RAS connections If lRet = ERROR_SUCCESS Then For lThisConnection = 0 To lContCons - 1 lRet = RasHangUp(tRasConn(lThisConnection).hRasConn) Next End If End Sub



Privacy Policy | Link to Us | Links