Как передать объект в web-броузер?

[ANDLL]

Есть веб-броузер контрол(IE) в него загружена страница, на странице есть

Код: Выделить всё

function A(s)
{
///working with s
}


Как из хост-приложения вызвать функцию A и передать в нее свой объект автоматизации?

[Хакер]

Создай какой-нибудь элемент на странице, например DIV:

Код: Выделить всё

<div id="jsfuncdispatcher"></div>

В скриптах создай у этого дива свойства-делегаты для своих JS-функций:

Код: Выделить всё

function ChangeCaption(s)
{
      s.Caption = "Привет гастраному";
}

function Maximize(s)
{
     s.WindowState = 2;
}

// Делегаты
jsfuncdispatcher.delegate_for_ChangeCaption = ChangeCaption;
jsfuncdispatcher.delegate_for_Maximize = Maximize;

В хост приложении:

Код: Выделить всё

Dim dispatcher As Object

Set dispatcher = WB.document.getElementById("jsfuncdispatcher")

' А теперь сами вызовы

dispatcher.delegate_for_ChangeCaption Me
MsgBox "Ы?"
dispatcher.delegate_for_Maximize Me

З.Ы. А можно самому script-элементу дать ID и использоваться в качестве диспетчера его.

[ANDLL]

Оо
Спасибо

[Хакер]

Всё-таки интуиция мне подсказывает о наличии IDispatch-свойства наподобие CodeObject. Или я путаю со ScriptControl'ом?

[ANDLL]

Я не нашел... Но этот метод в высшей степени подходит

[Sebas]

Зачётно