Работа с несколькими экземплярами IE

[agat344]

Как работать с одним экземпляром Internet Explorer я знаю -

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

Dim WithEvents wbrowser1 As SHDocVw.InternetExplorer

Private Sub Form_Load()
Set wbrowser1 = CreateObject("InternetExplorer.Application")
wbrowser1.Navigate ("http://www.mail.ru")
End Sub

Private Sub Wbrowser1_DocumentComplete(ByVal pDisp As Object, url As Variant)
MsgBox "Загрузка завершена"
End Sub



А как создать и главное обрабатывать события нескольких IE мне не понятно.

Единственное что мне пришло в голову, это объявить объект как массив элементов и создавать новый экземпляр как элемент этого массива -

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

Dim wbrowser1(20) As Object
index = 0

Set wbrowser1(index) = CreateObject("InternetExplorer.Application")
index = index + 1

wbrowser1(index).Navigate "http://www.mail.ru"



В этом случае всё создаётся правильно, но как обрабатывать события этих экземпляров не понятно.

Есть какие-нибудь варианты?
Желательно с текущим кодом.
[/list]

[Хакер]

agat344
Создать класс IEWindowEventHooker, а в нём написать

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

Public WithEvents MyWB As SHDocVw.InternetExplorer
Public EventServer As SomeOtherClassForExampleForm1
Private Sub MyWB_КакоеТоСобытиеКотороеТыХочешьОтловить
     EventServer.Event_КакоеТоСобытиеКотороеТыХочешьОтловить MyWB
End Sub

Private Sub MyWB_КакоеТоСобытие2КотороеТыХочешьОтловить(КакиеТоАргументы)
     EventServer.Event_КакоеТоСобытие2КотороеТыХочешьОтловить MyWB, КакиеТоАргументы
End Sub

Private Sub MyWB_КакоеТоСобытие3КотороеТыХочешьОтловить(КакиеТоАргументы1, КакиеТоАргументы2)
     EventServer.Event_КакоеТоСобытие3КотороеТыХочешьОтловить MyWB, КакиеТоАргументы1, КакиеТоАргументы2
End Sub


также создать класс SomeOtherClassForExampleForm1 (или использовать уже имеющуюся форму, в ней разместить

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

Private Sub Event_КакоеТоСобытиеКотороеТыХочешьОтловить (ByVal EventSender As SHDocVw.InternetExplorer)
    ' Судя сваливаются все события всех окон IE.
    ' Пользуясь аргументом EventSender, можем определить, от какого окна событие
End Sub

Private Sub Event_КакоеТоСобытие2КотороеТыХочешьОтловить (ByVal EventSender As SHDocVw.InternetExplorer, КакиеТоАргументы)
    ' Судя сваливаются все события всех окон IE.
    ' Пользуясь аргументом EventSender, можем определить, от какого окна событие
End Sub

Private Sub Event_КакоеТоСобытиеКотороеТыХочешьОтловить (ByVal EventSender As SHDocVw.InternetExplorer, КакиеТоАргументы1, КакиеТоАргументы2)
    ' Судя сваливаются все события всех окон IE.
    ' Пользуясь аргументом EventSender, можем определить, от какого окна событие
End Sub


При создании новых окон IE также создавать новые экземпляры IEWindowEventHooker (Set NewIEWindowEventHooker = new IEWindowEventHooker ) и делать им

Set NewIEWindowEventHooker.MyWB = wbrowser1(index)
Set NewIEWindowEventHooker.EventServer = Me

Разумеется, ссылки на объекты-хукеры надо держать (например, поместив их в коллекцию).

[agat344]

Ну я понимаю, что нужно написать примерно так -

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

Private Sub Wbrowser1_DocumentComplete(index As Integer, ByVal pDisp As Object, url As Variant)
MsgBox "Загрузка завершена"
End Sub



Здесь "index" будет передавать номер открытого окна массива.
Но как описать события несуществующего пока объекта?

Ведь так не опишешь -

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

Dim WithEvents wbrowser1(20) As SHDocVw.InternetExplorer


Это не работает.

[Хакер]

Ну я понимаю, что нужно написать примерно так

Нет, так писать не нужно. Нужно делать так, как я описал.

Ты, судя по всему, совершенно не понял ничего из того, что я описал. Жалко. Много времени потратил на описание.

[agat344]

Ты, судя по всему, совершенно не понял ничего из того, что я описал. Жалко. Много времени потратил на описание.

Нет, это я всё понял. Просто хотелось как-нибудь проще.
Например, как в WebBrowser, который добавлен на форму.

[Antonariy]

http://bbs.vbstreets.ru/viewtopic.php?p=156790