Télécharger le zip
manque un .baspas de commentaire1/10
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.
pq la note moyenne est de 10 sur 10 ??????????
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)
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 connectionPublic 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 IfEnd Property
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 plzC'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 ByteEnd TypePrivate Declare Function RasEnumConnections Lib "rasapi32.dll" Alias "RasEnumConnectionsA" (ByVal lprasconn As Long, ByVal lpcb As Long, ByVal lpcConnections As Long) As LongUne 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 IfEnd Function
PS : désolé pour la grossière erreur c : Ou public function connected()... Ou Public property get...enfin vous aviez vu ...
Perso chez moi le code il marche super et le prog est très bien fait. Bien joué ! (10/10)
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
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.
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte
1 875 108 membres 18 nouveaux aujourd'hui 16 153 membres club