TROUVER LA CLASSID D'UNE DLL ACTIVEX

Signaler
Messages postés
15814
Date d'inscription
jeudi 8 août 2002
Statut
Modérateur
Dernière intervention
4 mars 2013
-
Messages postés
51
Date d'inscription
samedi 21 octobre 2000
Statut
Membre
Dernière intervention
10 octobre 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/41466-trouver-la-classid-d-une-dll-activex

Messages postés
51
Date d'inscription
samedi 21 octobre 2000
Statut
Membre
Dernière intervention
10 octobre 2011

Effectivement, mais il m'a semblé utile d'en citer l'existence
pour qui était intéressé par le sujet. 8)
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
En effet il existe d'autres methodes... hors celle que tu mentionne utilise une dll tierce partie et quand on peux s'en passé c'est encore mieu ;p

@+
Messages postés
51
Date d'inscription
samedi 21 octobre 2000
Statut
Membre
Dernière intervention
10 octobre 2011

Bonjour Ebartsoft,
Comme j'ai tendance à lire en diagonale,
il est possible que je n'ai pas saisi le but exact de l'exercice
(trouver le GUID et les CLSID ou les convertir).
Juste pour compléter cette file, il existe une librairie méconnue
qui gère cet exercice : TLI (Typelib Informations) -

Sub getCLSID(fullFileName As String)
Dim clsTLI As New TLIApplication, objTLI As New TypeLibInfo, i As Long

Set objTLI = clsTLI.TypeLibInfoFromFile(fullFileName)
Debug.Print "GUID de la librairie: "; vbTab & objTLI.GUID
Debug.Print String(64, "-")
For i = 1 To objTLI.CoClasses.Count 'shows GUID of each class
Debug.Print " Classe: "; objTLI.CoClasses(i).Name
Debug.Print Space(12) & "=====> CLSID: "; objTLI.CoClasses(i).GUID
Next
Debug.Print
End Sub
Messages postés
4525
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
9
Oui pas eu le temps de repondre mais il suffit d'aller piocher la clef HKEY_CLASSES_ROOT\CLSID\{CLSID}\InprocServer32
Afficher les 8 commentaires