Связать IE с уже существующим.

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
dr-vic
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 13.01.2004 (Вт) 0:05

Связать IE с уже существующим.

Сообщение dr-vic » 29.10.2004 (Пт) 7:13

Подскажите, есть ли в ВБ возможность связать свой собственный IE или WebBrowser с уже существующим объектом InternetExplorer? Ситуация примерно такая - в эксплорер загружена некая страница и необходимо ее обработать прогой, которая запускается после прогрузки ХТМЛа по правому клику на ней.
Заранее благодарен.

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 29.10.2004 (Пт) 9:00

можно, ищи по форуму "IE spy" выкладывал Member(или нет? кто у нас в авартаре в уa.ru господ посылал?)
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

marvan
Бывалый
Бывалый
 
Сообщения: 269
Зарегистрирован: 22.06.2004 (Вт) 13:26
Откуда: Москва

Сообщение marvan » 29.10.2004 (Пт) 9:34


alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 29.10.2004 (Пт) 12:28

Что-то я не понял, а разве спрашивалось не о GetObject (вместо CreateObject)?
Lasciate ogni speranza, voi ch'entrate.

dr-vic
Обычный пользователь
Обычный пользователь
 
Сообщения: 65
Зарегистрирован: 13.01.2004 (Вт) 0:05

Сообщение dr-vic » 30.10.2004 (Сб) 22:11

Господа, спасибо! Я посидел ударно ночь и сам разобрался - через коллекцию ShellWindows из shdocvw.dll:
Private IE As InternetExplorer
Private SW As ShellWindows

Set obj = New ShellWindows

Private Sub ListIEWindows()
Dim i As Integer
Dim IEDoc As HTMLDocument
If obj.Count = 0 Then MsgBox "Нет открытых Веб-страниц!": Exit Sub
For i = 0 To SW.Count - 1
Set IEDoc = SW.Item(i).document
List1.AddItem IEDoc.Title
Next
End Sub


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 43

    TopList