این کد برای دیسکانکت شدن هست . 



Option Explicit

Const RAS_MAXENTRYNAME = 256

Const RAS_MAXDEVICETYPE = 16

Const RAS_MAXDEVICENAME = 128

Const RAS_RASCONNSIZE = 412

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

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 Sub Command1_Click()

Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long

Dim lpcConnections As Long, hRasConn As Long

Dim returncode

lpRasConn(0).dwSize = RAS_RASCONNSIZE

lpcb = RAS_MAXENTRYNAME * lpRasConn(0).dwSize

lpcConnections = 0

returncode = RasEnumConnections(lpRasConn(0), lpcb, lpcConnections)

If returncode = 0 Then

For i = 0 To lpcConnections - 1

hRasConn = lpRasConn(i).hRasConn

returncode = RasHangUp(ByVal hRasConn)

Next i

End If

End Sub