Key des elements usb dans le registre

Soyez le premier à donner votre avis sur cette source.

Vue 12 314 fois - Téléchargée 1 057 fois

Description

Vu que je ne trouvais pas de code correspondant sur VBfrance le voici :
liste les noms des repertoire se trouvant dans la racine d'un autre repertoire du registre.
ICI :
il recherche le nom des differentes clés faisant appel aux periphériques USB.
Toujours utile pour celui qui fait de petits montages electroniques avec des 16F745 par exemple.

Source / Exemple :


Dim hKey As Long, Cnt As Long, sName As String, sData As String, Ret As Long, RetData As Long
        Const BUFFER_SIZE As Long = 255
        Ret = BUFFER_SIZE
        'ouverture de la clé
        If RegOpenKey(HKEY_LOCAL_MACHINE, "SYSTEM\ControlSet001\Control\DeviceClasses\{4d1e55b2-f16f-11cf-88cb-001111000030}", hKey) = 0 Then
            'creation du buffer buffer
            sName = Space(BUFFER_SIZE)
            'enumeration des clé
            While RegEnumKeyEx(hKey, Cnt, sName, Ret, ByVal 0&, vbNullString, ByVal 0&, ByVal 0&) <> ERROR_NO_MORE_ITEMS
                param = LCase(sName)
                param = Replace(param, "##?#", "Device=0;Path=\\?\")
                'visualisation de la clé
 
                'test de la clé
                If (test_Usb(param)) = "ack" Then
                
                'enregistrement de param
                    MsgBox "test reussi", vbDefaultButton1, "test USB"
                    Exit Sub
                End If
                
                'preparer la prochiane clé
                Cnt = Cnt + 1
                sName = Space(BUFFER_SIZE)
                Ret = BUFFER_SIZE
                
                ' test de la presence du composant usb
                
            Wend
            'fermeture de la clé
            RegCloseKey hKey
        Else
            Me.Print "  erreur lors de l'ouverture de la clé"
        End If

Conclusion :


petit changement dans la source... parce que ce n'été pas bon

voila amuser vous bien

Codes Sources

A voir également

Ajouter un commentaire Commentaires
iznogoud_59 Messages postés 9 Date d'inscription mardi 21 septembre 2004 Statut Membre Dernière intervention 4 juin 2006
25 mars 2005 à 13:04
va sur le site de bigonoff et tu trouveras toutes les informations que tu veux concernant les PIC.

www.bigonoff.org
medalscape Messages postés 14 Date d'inscription jeudi 10 mars 2005 Statut Membre Dernière intervention 21 mai 2005
25 mars 2005 à 12:45
J'ai Trouve que c tré tré DIFISSILLL...
petits montages electroniques ?

SVP iznogoud_59, Tu peu ajoutter une petit commentaire ici ! expliquer comment fait les montages electroniques ou un site pour cela ?

Merci , Un tré bonne Source 10/10.(mem j'ai rien compri)

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.