MAUTOCONNECT : POUR SE CONNECTER AUTOMATIQUEMENT A INTERNET SOUS NT/2000/XP AVEC ICONE DANS LE SYSTRAY ET STATS DE CONNECTION.

Commentaire de Malkuth le 24/02/2003 23:09:35

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.

Commentaire de Malkuth le 25/02/2003 17:30:06

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)

Commentaire de Malkuth le 28/02/2003 13:18:22

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

Commentaire de Unreal le 22/10/2004 17:50:48

Perso chez moi le code il marche super et le prog est très bien fait. Bien joué ! (10/10)