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 933 fois - Téléchargée 657 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.
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.
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
- Mautolink
- Connection automatique à une heure demander et deconnection - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
- Visual Basic / VB.NET : Connection et déconnection internet - CodeS SourceS - Guide
- Visual Basic / VB.NET : Système de mise à jour automatique par internet : t.c.e.d.i. d - Guide
- Connection automatique??? ✓ - Forum - PHP
- Connecter un pc à internet (sans api ) - Codes sources - Visual Basic / VB.NET (Réseau & Internet)
pour le reste, c'est interressant.
config : xp wanadoo box live pro par wifi
j'en cherche une très sure
- Messages postés
-
268
- Date d'inscription
- samedi 22 février 2003
- Statut
- Membre
- Dernière intervention
- 24 avril 2013
3enfin vous aviez vu ...
- Messages postés
-
268
- Date d'inscription
- samedi 22 février 2003
- Statut
- Membre
- Dernière intervention
- 24 avril 2013
3dis 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.