взаимодействие IE и проги на VB

[НиколайП]

Программа ,написанная на VB ,обрабатывает вэб страницы и сохраняет в бд часть информации из этих страниц. Проблемма в очень медленном интернете, модемное подключение. На основной странице очень много ссылок, мне необходимо обрабатывать все эти ссылки, после каждой ссылки приходится возвращаться на начальную страницу,времени на возврат уходит очень много ...
Хотелось бы узнать возможно ли сделать что бы в IE , при нажатии на ссылку правой кнопкой мыши появлялся ,к примеру, пункт "отправить ссылку в мою программу", или хотя бы сделать так что бы контрол WebBrowser1, в программе, при возврате открывал страницу из кэша, а не загружал её из инета поновой ...
Если возможен первый вариант , тогда подскажите пожалуйсто как это можно реализовать.

[GSerg]

Вариант первый.
Использовать winsock для загрузки текста страниц, а webbrowser не использовать.

Вариант второй.
Использовать два webbrowser - для начальной страницы и для текущей...

[НиколайП]

Вариант первый.
Использовать winsock для загрузки текста страниц, а webbrowser не использовать.

неприемлемо , пользователю программы необходимо видеть все рисунки и информацию на странице ...

я где то в инете находил информацию как можно в IE поставить свои кнопочки, но мне надо чуток другое ...

Вариант второй.
Использовать два webbrowser - для начальной страницы и для текущей...

вот по этому поводу надо подумать ... , есть ещё вариант - вывести в лист боксе все ссылки с этой страницы что бы не возвращаться ..., но первый вариант был бы идиальным, правда если можно такое реализовать

[GSerg]

А как ты возвращаешься на исходную?

[НиколайП]

А как ты возвращаешься на исходную?

WebBrowser1.GoBack

[Antonariy]

Как добавить пункт в контекстное меню.
http://bbs.vbstreets.ru/viewtopic.php?t=21748

Как сделать быстрый переход.
Полсле загрузки страницы сохрани в переменную ее текст:

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

Dim doc as IHTMLDocument
Set doc = WebBrowser1.Document
s = doc.documentElement.outerHTML

При возвращении на нее -

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

Dim doc as IHTMLDocument
Set doc = WebBrowser1.Document
doc.Write s

Однако, если на странице ссылки относителные, а не абсолютные, этот фокус не пройдет. Хотя можешь сам обрабатывать переход по ссылкам и при нужде подставлять абсолютный адрес.

[НиколайП]

Как добавить пункт в контекстное меню.
http://bbs.vbstreets.ru/viewtopic.php?t=21748

я конечно извиняюсь, но нифига не понял как это можно приспособить к моей проге ... , мне надо что бы при нажатии на ссылку правой кнопкой в стандартном IE, ссылка копировалась в переменную и в моей программе запускался WebBrowser1 с навигацией на эту ссылку.

Как сделать быстрый переход.
Полсле загрузки страницы сохрани в переменную ее текст:

Код:
Dim doc as IHTMLDocument
Set doc = WebBrowser1.Document
s = doc.documentElement.outerHTML

При возвращении на нее -

Код:
Dim doc as IHTMLDocument
Set doc = WebBrowser1.Document
doc.Write s

переменная s будет содержать в себе всегда текущий загруженный документ, как ей объяснить что надо использовать содержимое которое было в ней в предыдущий раз , для таких целей необходимо создавать как минимум масив переменных, но опять же на какую переменную возвращаться ???

[НиколайП]

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

[Antonariy]

я конечно извиняюсь, но нифига не понял как это можно приспособить к моей проге ... , мне надо что бы при нажатии на ссылку правой кнопкой в стандартном IE, ссылка копировалась в переменную и в моей программе запускался WebBrowser1 с навигацией на эту ссылку.

Что непонятного? Добавив, пару пунктов в реестр, получаем свой пункт в меню. В скрипте страницы, путь к которой прописан в реестре, у window.external.menuArguments.event.srcElement получаем его href. А потом запускаем прогу с полученной ссылкой в качестве параметра.
Кстати, из <script> defer нужно убрать.

переменная s будет содержать в себе всегда текущий загруженный документ, как ей объяснить что надо использовать содержимое которое было в ней в предыдущий раз , для таких целей необходимо создавать как минимум масив переменных, но опять же на какую переменную возвращаться ???

Да неужели??? Дык придумай какую-нибудь навигацию. Не все ж тебе на блюдечке.

к рисункам надо пути запоминать и потом при возврате указывать их ...

Если у рисунков прописан абсолютный путь, то такой проблемы не возникнет, а если относительный, то

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

Dim imgs as  IHTMLElementCollection
Set imgs =doc.getElementsByTagName("img")
For Each img In imgs
    img.src = "http://www.somehost.com" & img.src
Next img