Make your own free website on Tripod.com

Disconnect From The Internet

'Add a module to your project (In the menu choose Project -> Add Module, Then click Open)
'Add 1 CommandButton to your form (named Command1).
'When you will press the button you will disconnect from the internet.
'Insert this code to the module :

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

'Insert the following code to your form:

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

Go Back