Mautoconnect : pour se connecter automatiquement a internet sous nt/2000/xp avec icone dans le systray et stats de connectio

Soyez le premier à donner votre avis sur cette source.

Vue 4 807 fois - Téléchargée 615 fois

Description

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_Gael51
Messages postés
6
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
13 avril 2009
-
Chez moi, ce code qui est très interressant ne fonctionne pas entièrement => la fonction de déconnection ne fonctionne pas.
pour le reste, c'est interressant.
cs_Kike
Messages postés
13
Date d'inscription
lundi 16 décembre 2002
Statut
Membre
Dernière intervention
1 septembre 2005
-
pour moi la fct détection de connexion internet ne marche pas
config : xp wanadoo box live pro par wifi
j'en cherche une très sure
cs_Unreal
Messages postés
89
Date d'inscription
vendredi 20 décembre 2002
Statut
Membre
Dernière intervention
26 mars 2006
-
Perso chez moi le code il marche super et le prog est très bien fait. Bien joué ! (10/10)
cs_Malkuth
Messages postés
268
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
24 avril 2013
2 -
PS : désolé pour la grossière erreur c : Ou public function connected()... Ou Public property get...

enfin vous aviez vu ...
cs_Malkuth
Messages postés
268
Date d'inscription
samedi 22 février 2003
Statut
Membre
Dernière intervention
24 avril 2013
2 -
si mon exemple ne marche pas c peut'être parceque avant d'ouvrir le projet autoconnect tu doit d'abord ouvrir le projet TaskbarIcon et le compiler(Fichier-> créer :.....ocx)

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.