fdouieb
Messages postés264Date d'inscriptionvendredi 12 décembre 2003StatutMembreDernière intervention12 juin 2013
-
28 déc. 2004 à 14:51
cs_coq
Messages postés6349Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention 2 août 2014
-
4 août 2005 à 19:32
Bonjour,
Je cherche une fonction qui me permet de me deconnecter d'internet.
fdouieb
Messages postés264Date d'inscriptionvendredi 12 décembre 2003StatutMembreDernière intervention12 juin 20133 28 déc. 2004 à 16:01
MSDN la fait figurer dans le chapitre HTTP et FTP.
Il y a un exemple au niveau du FTP. Cependant, le Handle qui utilise c'est celui qui a permi la connection a internet qui on eu meme connecter a partir de la fonction InternetOpenA. Mon problem c'est que mon ordinateur etant connecter je dois trouver le handle et le supprimer si besoin
fdouieb
Messages postés264Date d'inscriptionvendredi 12 décembre 2003StatutMembreDernière intervention12 juin 20133 28 déc. 2004 à 16:16
Rebonjour Coq
Je viens de trouver un code VB qui ferme bien ma connection ADSL
Je suis incapable de le retranscrire en C#
si tu as un peu de temps pour le retranscrire je te remercie
voici le code
/////////////////////////////////////////////////////////
Attribute VB_Name = "Module1"
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
Const ERROR_SUCCESS = 0&
Const RAS_MAXENTRYNAME As Integer = 256
Const RAS_MAXDEVICETYPE As Integer = 16
Const RAS_MAXDEVICENAME As Integer = 128
Const RAS_RASCONNSIZE As Integer = 412
Public ReturnCode As Long
Public gstrISPName As String
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 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
//////////////////////////////////////////////
fdouieb
Messages postés264Date d'inscriptionvendredi 12 décembre 2003StatutMembreDernière intervention12 juin 20133 4 août 2005 à 15:20
Bonjour Coq
je viens de passer en connection WiFi. Dans l'ensemble sa marche ,tres
bien, mo pb est que le program dont la reference est la suivante:
http://www.csharpfr.com/code.aspx?ID=28490
ne marche plus.
avant ma connection etait avec un modem ADSL classique, maintenant j'ai
un Modem routeur Wifi. Pour le programme il n'y rien de connecté.
????????
cs_coq
Messages postés6349Date d'inscriptionsamedi 1 juin 2002StatutMembreDernière intervention 2 août 2014101 4 août 2005 à 19:32
Si tu passes par un routeur c'est lui qui gère la connexion, plus ton PC.
Il est donc normal que tu ne puisse plus te servir des RAS pour couper ta connexion.