Mise a jours avec des commentaires la plupart du temps et aussi les stats de la connection.
Merci a tous ceux sur qui j'ai pompé (y'en a pas mal)... J'ai essayer de faire un mix sympa de se que j'avais trouver ici sur le sujet.
Conclusion :
Quelque Ajouts en prévision :
->Démarrage/Arrêt de prog à la connection/déconnection.
->Plus de stats sur la connection.
->Gestion de plusieurs connection (mais là ca va prendre un peu de temps car j'avait rien prévu pour au départ).
Et d'autres choses qui fonctionnerons avec des softs en cours de dévellopement et encore non dispo:
->Envois de Mails à la (Dé)Connection.
->Upload de fichier Ftp à la (Dé)Connection.
5 mai 2006 à 20:52
pour le reste, c'est interressant.
11 août 2005 à 12:38
config : xp wanadoo box live pro par wifi
j'en cherche une très sure
22 oct. 2004 à 17:50
28 févr. 2003 à 13:30
enfin vous aviez vu ...
28 févr. 2003 à 13:18
dis moi, si ca fonction aprés ca plz
C'est tout a fais ca !
mais sans oublier de déclarer :
Private Type RASCONN
dwSize As Long
hRasConn As Long
szEntryName(256) As Byte
szDeviceType(16) As Byte
szDeviceName(128) As Byte
pad As Byte
End Type
Private Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (ByVal lprasconn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As Long
Une variante pour pouvoir détecter une connection en particulier (dans le cas de plusieurs accés reseau distant dans le même temp:
-> REMPLACE Connection par le nom tel qu'afficher dans l'accés réseau a distance (si tu veux récupérer une liste des connections possible dans une collection de string regarde la property Get ConnectionList dans InternetAutoConnect.Cls)
Public Function Get Connected() As Boolean
Dim Conn(256) As RASCONN
Dim stat As RAS_STATS
Dim Y As Long
Dim z As Long
Dim sNom As String
Conn(0).dwSize = Len(Conn(0))
Y = 257 * Conn(0).dwSize
If RasEnumConnections(VarPtr(Conn(0)), VarPtr(Y), VarPtr(z)) = 0 Then
For i = 0 To z - 1
sNom = StrConv(Conn(i).szEntryName, vbFromUnicode)
If StrComp(sNom, Connection, vbTextCompare) Then
Connected = False
Else
Connected = True
End If
Next
End If
End Function
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.