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 Form_Load() 'VbAndJava 1999/2000 'Guerrault Yonni 'E-Mail : Yonni4@iFrance.com 'Ce programme ferme votre connection Internet, donc pour le tester, vous devrez avoir ouvert une connection Internet. Dim i As Long, lpRasConn(255) As RasConn, lpcb As Long Dim lpcConnections As Long, hRasConn As Long 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 If Trim(CStr(lpRasConn(i).szEntryName)) = Trim(gstrispname) Then hRasConn = lpRasConn(i).hRasConn returncode = RasHangUp(ByVal hRasConn) End If Next i End If End Sub