DLL, COM. Как создать методы вызваемые из того же VBScript?

[Человек_Борща]

Доброго времени суток!

Написал некое расширение IE, последний штрих - контекстное меню. Надо создавать HTML, а в нем скрипт который дергает COMофский метод некой DLL.

Почему-то этот метод не вызывается. почему?

type
  TMySuperCOM = class(TComObject, IDispatch, IOleCommandTarget,
    IObjectWithSite)
  private
    fIBrowser: IWebBrowser2;
    fDoc: IHTMLDocument2;
    fIObject: IInterface;
    fITarget: IOleCommandTarget;
  public
    // IDispatch
    function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
    function GetTypeInfo(Index, LocaleID: Integer; out TypeInfo): HResult; stdcall;
    function GetIDsOfNames(const IID: TGUID; Names: Pointer; NameCount, LocaleID: Integer;
      DispIDs: Pointer): HResult; stdcall;
    function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer; Flags: Word;
      var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
    // IOleCommandTarget
    function QueryStatus(CmdGroup: PGUID; cCmds: Cardinal; prgCmds: POleCmd;
      CmdText: POleCmdText): HResult; stdcall;
    function Exec(CmdGroup: PGUID; nCmdID, nCmdexecopt: DWORD; const vaIn: OleVariant;
      var vaOut: OleVariant): HResult; stdcall;
    // IObjectWithSite
    function SetSite(const pUnkSite: IUnknown): HResult; stdcall;
    function GetSite(const riid: TIID; out site: IUnknown): HResult; stdcall;
    
//А вот мой суперский метод, который не работает!
function Msg(aMsg: OleVariant): HResult; stdcall;
  end;

  TBHOFactory = class(TComObjectFactory)
  private
    procedure InstallRegistryKey;
    procedure RemoveRegistryKey;
  public
    procedure UpdateRegistry(Register: Boolean); override;
  end;

Регистрация:

initialization

begin
  InitialiseShellType;
  ComServer.PerUserRegistration := False; // )
  //Class_Interf: TGUID     = '{86AD1872-2523-460E-8289-10F56B25AD7D}';
  TBHOFactory.Create(ComServer, TMySuperCOM, Class_Interf,
    'IeSuperBHO',
    'IE Test BHO', ciMultiInstance,
    tmApartment);
end;

Регистрирую через RegSvr32, все работает как надо. Но пункт в контекстном меню сайта не работает.

Вызывается такой HTML:

<SCRIPT language="VBScript">
On Error Resume Next
set SO = CreateObject("<ЧТО ПИСАТЬ ЗДЕСЬ?>")
if err<>0 then
  MsgBox("ActiveX automation object placed in IETEST.DLL is not registered or corrupted.")
else
  call SO.Msg(external.menuArguments.document.title)
end if
</SCRIPT>

Скрипты выполняется, но метод Msg не вызывается. Что я делаю не так?

[Stilet]

CreateObject("IeSuperBHO")

Судя по всему.

[Человек_Борща]

Нет, не получается. пробовал и просто ClassName и DLLName.ClassName и ничего.

[eval]

так вы в реестре то нашли чего зарегили?

[Человек_Борща]

Зарегистрирован DLLName.ClassName. Скрипт выполняется, метод не вызывает, отладчик не даже не заходит в вызываемый метод.

[eval]

по клсиду пробовали?

[Человек_Борща]

Пробовал. Метода Msg не находит и все тут.

[Stilet]

отладчик не даже не заходит в вызываемый метод.

А он случайно в настройках безопасности не залочен? Есть у меня одна такая прожка-дурка использующая ActiveX. Требует для запуска только IE и с полным доступом и максимально попушенной безопасностью.

[Человек_Борща]

нет, все нормально. В методах наследуемых интерфейсов отладчик работает)

[eval]

вы пробовали в тестовом проекте смотреть? кому то фиолетово кто его юзает