Key des elements usb dans le registre

Soyez le premier à donner votre avis sur cette source.

Vue 12 212 fois - Téléchargée 1 056 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
Messages postés
9
Date d'inscription
mardi 21 septembre 2004
Statut
Membre
Dernière intervention
4 juin 2006

va sur le site de bigonoff et tu trouveras toutes les informations que tu veux concernant les PIC.

www.bigonoff.org
Messages postés
14
Date d'inscription
jeudi 10 mars 2005
Statut
Membre
Dernière intervention
21 mai 2005

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.