Fråga : GUID av en ActiveX OCX

Pröva förmiddag I att få den huvudsakliga GUIDEN av en ActiveX OCX från precis den fulla banan av OCX.1. Den kan inte registreras, så jag kan inte få den från Registry.
2. Jag kan inte använda TlbInf32.Dll, därför att programbruket ITypeLib att avlägsna dependencies.

Here är förmiddagen för kodifiera I using: för href=" http://www.jsware.net/jsware/zips/tlbread.zip " för
http://www.jsware.net/jswa re/zips/tlbread.zip
Article är här: för href=" http://www.jsware.net/jsware/vbcode.php3#tlbc " för
http://www.jsware.net/jswa re/vbcode.php3#tlbc " klar "

Svar : GUID av en ActiveX OCX

Se på något liknande för något liknande:

Fungera IsLike (värdera, mönstra),
Dunkel regEx
   
    Fastställd regEx = CreateObject (”vbscript.regexp”)
        Med regEx
            . Globalt = True
            .IgnoreCase = True
            . Mönstra = ”^” & byt ut (mönstra, ”*”,”. {0,} ”) & ”$”,
            IsLike =. Testa (värdera),
        Avsluta med
    Fastställd regEx = ingenting
Avsluta fungerar

Ska acceptera kontrollerar kodifierar mellan stränger eftersom

Fungera IsLike (ByVal TextVal, ByVal mönstrar),
  Dunkel RXP
  IsLike = falskt
  Uppsättning RXP = nya RegExp
    Med RXP
      . Globalt = True
      .IgnoreCase = True
      . Mönstra = ”^” & byt ut (mönstra, ”*”,” [\ x20- \ x7E] * ") & ”$”,
      IsLike =. Testa (TextVal)
    Avsluta med
  Uppsättning RXP = ingenting
Avsluta fungerar

Ska se till att de enda teckenen mellan delarna är visningar och vanligt interpunktion.

Chris