Question : GUID d'un ActiveX OCX

J'essaye d'obtenir le GUID principal d'un ActiveX OCX juste du plein chemin de l'OCX.
1. Il ne peut être enregistré ainsi je ne peux pas l'obtenir de Registry.
2. Je ne peux pas employer TlbInf32.Dll parce que les utilisations ITypeLib de programme d'éliminer dependencies.

Here est le code que j'emploie : le rel= " nofollow " de " _blank " de target= de " http://www.jsware.net/jsware/zips/tlbread.zip " de href= du
le re/zips/tlbread.zip
Article de http://www.jsware.net/jswa est ici : rel= " nofollow " de " _blank " de target= de " http://www.jsware.net/jsware/vbcode.php3#tlbc " de href= du
re/vbcode.php3#tlbc de http://www.jsware.net/jswa class= de

Réponse : GUID d'un ActiveX OCX

Regarder comme pour comme :

Fonction IsLike (valeur, modèle)
Faible regEx
   
    Placer le regEx = le CreateObject (« vbscript.regexp »)
        Avec le regEx
            . Global = rectifier
            .IgnoreCase = rectifient
            . Le modèle = « ^ » et remplacent (modèle, « * », ». {0,} ") et « $ »
            IsLike =. Examiner (valeur)
        Finir avec
    Placer le regEx = rien
Finir la fonction

Acceptera des codes de commande entre les cordes tandis que

Fonction IsLike (ByVal TextVal, modèle de ByVal)
  Faible RXP
  IsLike = faux
  Placer RXP = nouveau RegExp
    Avec RXP
      . Global = rectifier
      .IgnoreCase = rectifient
      . Le modèle = « ^ » et remplacent (modèle, « * », » [\ x20- \ x7E] *") et « $ »
      IsLike =. Examiner (TextVal)
    Finir avec
  Placer RXP = rien
Finir la fonction

S'assurera que les seuls caractères entre les composants sont des alphanumériques et ponctuation commune.

Chris