Опять Internet exploer

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

Опять Internet exploer

Сообщение petroff » 30.11.2007 (Пт) 1:44

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

Anubis
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 02.11.2007 (Пт) 10:18

Сообщение Anubis » 30.11.2007 (Пт) 14:16

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

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

webWindow.navigate = adress.text

И получишь переход на указанный в боксе адресс )
Мы родились на этот свет, и ни кто не в праве его выключать!

Anubis
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 02.11.2007 (Пт) 10:18

Сообщение Anubis » 30.11.2007 (Пт) 14:17

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

petroff
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 09.09.2003 (Вт) 23:28
Откуда: Зимбабуа

Сообщение petroff » 30.11.2007 (Пт) 14:52

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

Anubis
Обычный пользователь
Обычный пользователь
 
Сообщения: 53
Зарегистрирован: 02.11.2007 (Пт) 10:18

Сообщение Anubis » 30.11.2007 (Пт) 15:19

С апи не работал, незнаю... подожди АТЦОФ :)
Тока вот зачем тебе доп. адресное поле?
Мы родились на этот свет, и ни кто не в праве его выключать!

kibernetics
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 949
Зарегистрирован: 03.05.2006 (Ср) 13:31
Откуда: Minsk

Сообщение kibernetics » 30.11.2007 (Пт) 15:49

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

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

Antonariy
Повелитель Internet Explorer
Повелитель Internet Explorer
Аватара пользователя
 
Сообщения: 4824
Зарегистрирован: 28.04.2005 (Чт) 14:33
Откуда: Мимо проходил

Сообщение Antonariy » 30.11.2007 (Пт) 15:56

Лучший способ понять что-то самому — объяснить это другому.

petroff
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 09.09.2003 (Вт) 23:28
Откуда: Зимбабуа

Сообщение petroff » 30.11.2007 (Пт) 18:24

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

Belkin
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 63
Зарегистрирован: 02.11.2007 (Пт) 18:02
Откуда: Рязань

Сообщение Belkin » 30.11.2007 (Пт) 18:32

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

petroff
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 09.09.2003 (Вт) 23:28
Откуда: Зимбабуа

Сообщение petroff » 30.11.2007 (Пт) 19:37

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

petroff
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 09.09.2003 (Вт) 23:28
Откуда: Зимбабуа

Сообщение petroff » 30.11.2007 (Пт) 20:02

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
Доктор VB наук
Доктор VB наук
Аватара пользователя
 
Сообщения: 2509
Зарегистрирован: 19.09.2005 (Пн) 17:17
Откуда: г. Москва

Сообщение keks-n » 30.11.2007 (Пт) 20:14

ShellWindow.navigate "http://ya.ru"
Изображение

ssv22
Обычный пользователь
Обычный пользователь
 
Сообщения: 89
Зарегистрирован: 06.11.2005 (Вс) 8:47

Сообщение ssv22 » 30.11.2007 (Пт) 22:57

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


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

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

petroff
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 09.09.2003 (Вт) 23:28
Откуда: Зимбабуа

Сообщение petroff » 30.11.2007 (Пт) 23:58

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 :oops:

Viper
Артефакт VBStreets
Артефакт VBStreets
Аватара пользователя
 
Сообщения: 4394
Зарегистрирован: 12.04.2005 (Вт) 17:50
Откуда: Н.Новгород

Сообщение Viper » 01.12.2007 (Сб) 7:06

Ну правильно, она действительно не объявлена, объяви.
Весь мир матрица, а мы в нем потоки байтов!

petroff
Обычный пользователь
Обычный пользователь
 
Сообщения: 79
Зарегистрирован: 09.09.2003 (Вт) 23:28
Откуда: Зимбабуа

Сообщение petroff » 01.12.2007 (Сб) 14:15

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

Belkin
Обычный пользователь
Обычный пользователь
Аватара пользователя
 
Сообщения: 63
Зарегистрирован: 02.11.2007 (Пт) 18:02
Откуда: Рязань

Сообщение Belkin » 02.12.2007 (Вс) 14:37

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


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

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

Сейчас этот форум просматривают: PetalBot и гости: 22

    TopList