Вопрос : GUID ActiveX OCX

Я пытаюсь получить главное GUID ActiveX OCX от как раз полного курса OCX.
1. Оно не может быть зарегистрирован поэтому я не могу получить его от Registry.
2. Я не могу использовать TlbInf32.Dll потому что пользами ITypeLib программы исключить dependencies.

Here будут Кодий, котор я использую: rel= " nofollow " " _blank " " target= " http://www.jsware.net/jsware/zips/tlbread.zip href=
re/zips/tlbread.zip
Article http://www.jsware.net/jswa здесь: rel= " nofollow " " _blank " " target= " http://www.jsware.net/jsware/vbcode.php3#tlbc href=
re/vbcode.php3#tlbc http://www.jsware.net/jswa class=

Ответ : GUID ActiveX OCX

Смотреть на как для как:

Функция IsLike (значение, картина)
Тусклое regEx
   
    Установите regEx = CreateObject («vbscript.regexp»)
        С regEx
            . Глобально = True
            .IgnoreCase = True
            . Картина = «^» & заменяет ть (картина, «*»,». {0,} ") & «$»
            IsLike =. Испытайте (значение)
        Закончитесь с
    Установите regEx = ничего
Закончите функцию

Признавает Кодих управления между шнурами тогда как

Функция IsLike (ByVal TextVal, картина ByVal)
  Тусклое RXP
  IsLike = ложно
  Установите RXP = новое RegExp
    С RXP
      . Глобально = True
      .IgnoreCase = True
      . Картина = «^» & заменяет ть (картина, «*»,» [\ x20- \ x7E] *") & «$»
      IsLike =. Испытайте (TextVal)
    Закончитесь с
  Установите RXP = ничего
Закончите функцию

Обеспечит единственными характерами между компонентами будут alphanumerics и обычный пунктуацией.

Крис