Коротше, ситуація в наступному:
1) element.attachEvent другим параметром приймає об'єкт JScriptTypeInfo, так що AddressOf - не альо.
2) об'єкт JScriptTypeInfo можна отримати так: Set r = Doc.All.plus.onclick якщо у елемента прописано цю подію.
3) скрипт можна додати за допомогою Doc.appendChild попередньо вирвавши його з іншого документа або запхнувши текстом в DIV, але працювати він все одно не буде. Точно так само можна отримати JScriptTypeInfo, але і він працювати не буде. Схоже IE Не брати до уваги скрипти на льоту. Працювати будуть тільки ті скрипти, які були в тексті документа на момент завантаження.
Обійти можна наступним чином - створити документ зі скриптами, іфреймом і яким-небудь невидимим елементом, на події якого садять скрипти. Решта документів вантажити в іфрейм і вже там аттачем події з невидимки.
Поготов Поготов. Я людина не оч кмітливий і не все биро розумію, так що поясни на пальцях, чого потрібно домогтися, а то я з попередніх постів мало що зрозумів.
А взагалі - скрипт можна виконати через Код: Виділити все Window.execscript
Поясни по докладніше.
Спочатку поясню, чого потрібно було мені. Якщо це не допоможе, пиши, що потрібно тобі, разом допінаем.
Наскільки я зрозумів, як обробника події ти хочеш використовувати пріаттаченую vb-шную процедуру. Мабуть, це неможливо. Доведеться оголошувати withevents відповідний HTML-елемент і обробляти elm_onclick () або діяти так, як я описав в своєму попередньому пості.
Н-да, Window.execscript я якось не помітив вчасно. В принципі, він підійшов би. Але простіше написати , ніж
Код: Виділити все Private Function Doc_onclick # 40; # 41; As Boolean
Dim elm As Object
Set elm = Doc.parentWindow.event.srcElement
End Function
а потім з'ясовувати span цей elm, чи потрібен йому execscript і який скрипт конкретно.
'References: Microsoft HTML Object Library
'Controls: Microsoft Internet Controls
'Додати на форму WebBrowser з ім'ям WebBrowser1
2 Antonariy
- задавай питання на одному форумі, а то всюди тобі відповідати доводиться.