Опять Internet exploer

[petroff]

Вопрос заезженый , но все таки ... Обясните на палцах , как контролировать internet exploer ? Прочесть адрес в адресной строке ,записать туда адрес , закрыть ехплоер.
В поиске нашел чудесный пример как можно все это делать , он мне подходит , но хотелось бы разобратся как все таки работает , а там всего и много и ни строчки коментариев . А я начинаюший .....
Пожалуйста , выложите работаюший,прокоментированый пример , хотя бы считывание адреса из адресной строки

[Anubis]

Легко например создаёшь textBox и даешь ему имя Adress
Ну конечно до этого помещаешь на форму элемент браузера...

И пишешь в событии кнопки перейти (тоже созданной тобой)

webWindow.navigate = adress.text

И получишь переход на указанный в боксе адресс )

[Anubis]

З.Ы. имена взял произвольные, так что webWindow это имя элемента веб браузера...

[petroff]

Понятно , это не сложно , но надо для internet exploera а не для компоненета веббраузера.
Как я понял надо это делать с помошью айпи , берем хендли интернет ехплоера .... а дальше ?

[Anubis]

С апи не работал, незнаю... подожди АТЦОФ
Тока вот зачем тебе доп. адресное поле?

[kibernetics]

petroff
ищи по теме
"узнать хендл чужого приложения" или чтото в этом роде

получив хендл, ищи в нём хендл експлоревского текстбокса...
а там дальше сендмессджами получишь строку из
текстбокса

[Antonariy]

Тынц?

[petroff]

Я как раз за этот пример и говорил , беда в том что там мне ,как начинаюшему очень трудно разабратся , там не одна строчка не прокоментирована . Смутно понимаю принцип .

[Belkin]

petroff
Посмотри здесь
Там есть пример.

[petroff]

Там тоже самое

[petroff]

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()
For Each ShellWindow In ShellWindows
If TypeOf ShellWindow.Document Is HTMLDocument Then
Set Document = ShellWindow.Document
Document.url = "http://www.ya.ru"
End If
Next
End Sub
Что-то не работает

[keks-n]

ShellWindow.navigate "http://ya.ru"

[ssv22]

Я как раз за этот пример и говорил , беда в том что там мне ,как начинаюшему очень трудно разабратся , там не одна строчка не прокоментирована . Смутно понимаю принцип .

Я в таких случаях запускаю отладку в пошаговом режиме(F8, по-моему) и смотрю значения переменных: как, что меняется и тд.

PS. я довольно много сделал небольших программ-дополнений для SolidWorks`a, иногда попадались примеры без коментариев...
Помогало

[petroff]

Dim ShellWindows As New ShellWindows
Dim WithEvents WebBrowser As WebBrowser
Dim WithEvents Document As HTMLDocument
Private Sub Form_Load()
For Each ShellWindow In ShellWindows
If TypeOf ShellWindow.Document Is HTMLDocument Then
Set Document = ShellWindow.Document
Document.url = "http://www.ya.ru"
End If
Next
End Sub

ошибка shellwindow variable not defiendi

[Viper]

Ну правильно, она действительно не объявлена, объяви.

[petroff]

Ув. я говорил что плохо разбераюсь , обявить как что ? int,string , привязать какому-то обекту ?

[Belkin]

petroff
Объяви переменную или удали строку
Option Explicit