Vraag : GUID van een ActiveX OCX

Ik probeer om belangrijkste GUID van een ActiveX OCX van enkel de volledige weg van OCX.
1 te krijgen. Het kan niet worden geregistreerd zodat kan ik niet het van Registry.
2 krijgen. Ik kan geen TlbInf32.Dll gebruiken omdat het programmagebruik ITypeLib om dependencies.

Here te elimineren de code is ik gebruik:
http://www.jsware.net/jswa re/zips/tlbread.zip
Article is hier:
http://www.jsware.net/jswa re/vbcode.php3#tlbc

Antwoord : GUID van een ActiveX OCX

Het bekijken gelijkaardig voor gelijkaardig:

Functie IsLike (Waarde, Patroon)
Schemerige regEx
   
    Reeks regEx = CreateObject („vbscript.regexp“)
        Met regEx
            . Globaal = Waar
            .IgnoreCase = Waar
            . Het patroon = „^“ & vervangt (Patroon, „*“,“. {0,} „) & „$“
            IsLike =. Test (Waarde)
        Eind met
    Reeks regEx = niets
De Functie van het eind

Controlecodes tussen de koorden terwijl zal goedkeuren

Functie IsLike (Patroon ByVal TextVal, ByVal)
  Schemerige RXP
  IsLike = Vals
  Vastgesteld RXP = Nieuwe RegExp
    Met RXP
      . Globaal = Waar
      .IgnoreCase = Waar
      . Het patroon = „^“ & vervangt (Patroon, „*“,“ [\ x20- \ x7E] * ") & „$“
      IsLike =. Test (TextVal)
    Eind met
  Vastgesteld RXP = niets
De Functie van het eind

Zal verzekeren de enige karakters tussen de componenten alphanumerics en gemeenschappelijke punctuatie zijn.

Chris