Sujet Précédent Sujet Suivant

MAUTOCONNECT : POUR SE CONNECTER AUTOMATIQUEMENT A INTERNET SOUS NT/2000/XP AVEC

cs_Nestor Messages postés 182 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 2 octobre 2012 - 24 févr. 2003 à 13:20
cs_Gael51 Messages postés 6 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 13 avril 2009 - 5 mai 2006 à 20:52

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/6244-mautoconnect-pour-se-connecter-automatiquement-a-internet-sous-nt-2000-xp-avec-icone-dans-le-systray-et-stats-de-connection

cs_Gael51 Messages postés 6 Date d'inscription mardi 17 décembre 2002 Statut Membre Dernière intervention 13 avril 2009
5 mai 2006 à 20:52

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
11 août 2005 à 12:38

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
22 oct. 2004 à 17:50

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 4
28 févr. 2003 à 13:30

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 4
28 févr. 2003 à 13:18

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

cs_olid Messages postés 296 Date d'inscription lundi 2 septembre 2002 Statut Membre Dernière intervention 28 janvier 2008
28 févr. 2003 à 06:37

Impossible dessayer ton truc...erreur de chargement de classe, ocx, etc :o(((

Pourtant, ton source pourrait m'etre utile, je cherche un moyen efficace et simple pour savoir si une connection internet est active sans que cela provoque une tentative de connection quand cest pas le cas. Est ce que ta routine cidessous convient ?

'Propriétée en lecture seule indiquant l'état de connection
Public Property Get Connected() As Boolean
Dim Conn As RASCONN
Dim Y As Long
Dim z As Long
Connected = False
Conn.dwSize = Len(Conn)
Y = Conn.dwSize
If RasEnumConnections(VarPtr(Conn), VarPtr(Y), VarPtr(z)) = 0 Then
If z = 0 Then
Connected = False
Else
Connected = True
End If
End If
End Property

cs_Malkuth Messages postés 268 Date d'inscription samedi 22 février 2003 Statut Membre Dernière intervention 24 avril 2013 4
25 févr. 2003 à 17:30

Perso je ne vois pas qui a fais ca il serait bon de ne pas mettre n'importe quoi, merci!(c gentil mais ca vaut pas ca)

cs_Kirua Messages postés 3006 Date d'inscription dimanche 14 avril 2002 Statut Membre Dernière intervention 31 décembre 2008
25 févr. 2003 à 16:28

pq la note moyenne est de 10 sur 10 ??????????

cs_Malkuth Messages postés 268 Date d'inscription samedi 22 février 2003 Statut Membre Dernière intervention 24 avril 2013 4
24 févr. 2003 à 23:09

Désoler il manquait effectivement un .BAS (pas trés util d'aileur et qui va sauté ... enfin g fais l'upload du Zip et ca devrait êtres bon maintenant. Pour les coments je sais c vraiment pas cool de ma part. mais g pas fini de dévelloper le prog et je voulais juste faire profiter de se bout de travail qui fonction(du moins chez moi), aussi pour pouvoir un retour sur Bug.

Bref pour faire bien les choses je promet une upload d'ici la fin de la semaine avec Commentaire et code épurer de se qui n'est pas util.

Et avec un peu de chance je pourait tenter de faire mieux que 1/10.

cs_Nestor Messages postés 182 Date d'inscription mardi 8 janvier 2002 Statut Membre Dernière intervention 2 octobre 2012
24 févr. 2003 à 13:20

manque un .bas
pas de commentaire

1/10

Votre réponse