SE DÉCONNECTER D'INTERNET
Chouby-Click
-
19 oct. 2000 à 21:36
cs_niko14 Messages postés 209 Date d'inscription jeudi 12 janvier 2006 Statut Membre Dernière intervention 10 octobre 2014 - 30 août 2007 à 14:25
cs_niko14 Messages postés 209 Date d'inscription jeudi 12 janvier 2006 Statut Membre Dernière intervention 10 octobre 2014 - 30 août 2007 à 14:25
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/100-se-deconnecter-d-internet
https://codes-sources.commentcamarche.net/source/100-se-deconnecter-d-internet
30 août 2007 à 14:25
Merci d'avance
16 févr. 2004 à 16:44
20 sept. 2003 à 23:39
18 juin 2002 à 21:09
27 mars 2002 à 11:47
15 oct. 2001 à 16:32
J'aurais aimé qu'il soit de moi mais bon ...snif.. chuis pas encore assez bon
Mettez ce code dans un module et appelez la procédure Deconnexion_Internet.
Ce code a même l'avantage de ne pas executer la fonction de déconnection si on ne l'est pas
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 ERROR_SUCCESS = 0&
Private Const RAS_MAXENTRYNAME As Integer = 256
Private Const RAS_MAXDEVICETYPE As Integer = 16
Private Const RAS_MAXDEVICENAME As Integer = 128
Private Const RAS_RASCONNSIZE As Integer = 412
Private ReturnCode As Long
Public gstrISPName As String
Private Type RasEntryName
dwSize As Long
szEntryName(RAS_MAXENTRYNAME) As Byte
End Type
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
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
Public Sub InternetDeconnexion()
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
14 sept. 2001 à 20:21
14 sept. 2001 à 19:16
en gros, un parasite du net...
grandit un peut et revient apres, mais vu ton cas, ça risque de prendre du temps!
17 févr. 2001 à 00:57
24 janv. 2001 à 15:40
la deconnection ne s effectue pas
pourriez me renseigner
mci bcp
martin
19 oct. 2000 à 21:36
En déclarant la fonction dans un module et en placant le code dans un bouton, la déconnection ne s'effectue pas.
Si vous pouviez me renseigner, avec cette fonction mon application est terminée.
Merci d'avance.
Thierry