Frage : GUID von einem ActiveX OCX

Ich versuche, das Haupt-GUID von einem ActiveX OCX gerade vom vollen Weg des OCX.
1. zu erhalten. Es kann nicht geregistriert werden, also kann ich es nicht von Registry.
2. erhalten. Ich kann TlbInf32.Dll nicht verwenden, weil der Programmgebrauch ITypeLib, dependencies.

Here zu beseitigen der Code ist, den ich verwende:
http://www.jsware.net/jswa re/zips/tlbread.zip
Article ist hier:
http://www.jsware.net/jswa re/vbcode.php3#tlbc

Antwort : GUID von einem ActiveX OCX

Betrachten wie nach wie:

Funktion IsLike (Wert, Muster)
Schwaches regEx
   
    regEx = CreateObject („vbscript.regexp“) einstellen
        Mit regEx
            . Global = ausrichten
            .IgnoreCase = ausrichten en
            . Muster = „^“ u. ersetzen (Muster, „*“,“. {0,} ") u. „$“
            IsLike =. Prüfen (Wert)
        Mit beenden
    regEx einstellen = nichts
Funktion beenden

Annimmt Steuercodes zwischen den Schnüren während d

Funktion IsLike (ByVal TextVal, ByVal Muster)
  Schwaches RXP
  IsLike = falsch
  Einstellen RXP = neues RegExp
    Mit RXP
      . Global = ausrichten
      .IgnoreCase = ausrichten en
      . Muster = „^“ u. ersetzen (Muster, „*“,“ [\ x20- \ x7E] *") u. „$“
      IsLike =. Prüfen (TextVal)
    Mit beenden
  Einstellen RXP = nichts
Funktion beenden

Sicherstellt ktion, dass die einzigen Buchstaben zwischen den Bestandteilen Alphanumerik und allgemeine Interpunktion sind.

Chris