Key des elements usb dans le registre

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.