CodeItBetter Programming Another VB Programming Blog

'Internet - How to Dis-connect Internet programmatically (in two ways)
'Method 1:

Option Explicit
 
Private Sub Command1_Click()
    Dim lRet As Long
    Dim strConnectionName As String
 
    strConnectionName = "Connection through RO_100 VE Network Connection"
 
    lRet = Shell("RASDIAL " &  chr ( 34) & strConnectionName &  chr ( 34) & "  /DISCONNECT", vbNormalFocus)
End Sub
 
'Method 2:

Option Explicit
 
Public Const RAS_MAXENTRYNAME As Integer = 256
Public Const RAS_MAXDEVICETYPE As Integer = 16
Public Const RAS_MAXDEVICENAME As Integer = 128
Public Const RAS_RASCONNSIZE As Integer = 412
Public Const ERROR_SUCCESS = 0&
Public Type RasEntryName
    dwSize As Long
    szEntryName(RAS_MAXENTRYNAME) As Byte
End Type
Public 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
Public Declare Function RasEnumConnections Lib "rasapi32.DLL" Alias "RasEnumConnectionsA" _
    (lpRasConn As Any, lpcb As Long, lpcConnections As Long) As Long
Public Declare Function RasHangUp Lib "rasapi32.DLL" Alias "RasHangUpA" (ByVal hRasConn As Long) As Long
Public gstrISPName As String
Public ReturnCode As Long
 
Public Function ByteToString(bytString() As Byte) As String
    Dim I As Integer
    ByteToString = ""
    I = 0
    While bytString(I) = 0&
        ByteToString = ByteToString &  chr ( bytString(I))
        I = I + 1
    Wend
End Function
 
Private Sub Command1_Click()
    Dim I As Long
    Dim lpRasConn(255) As RasConn
    Dim lpcb As Long
    Dim lpcConnections As Long
    Dim hRasConn As Long
    lpRasConn(0).dwSize = RAS_RASCONNSIZE
    lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize
    lpcConnections = 0
    ReturnCode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)
    If ReturnCode = ERROR_SUCCESS Then
        For I = 0 To lpcConnections - 1
            If Trim(ByteToString(lpRasConn(I).szEntryName)) = Trim(gstrISPName) Then
                hRasConn = lpRasConn(I).hRasConn
                ReturnCode = RasHangUp(ByVal hRasConn)
            End If
        Next I
    End If
End Sub