Как отловить адрес... (WWW)

[Хой]

как отловить адрес инт. страницы, на каторую в данный момент защёл пользователь через IE?

[RayShade]

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

set ie = getobject(,'"InternetExplorer.Application")
msgbox "Открыта страница: " & ie.locationurl

[Sebas]

Да недавно MEMBER выкладывал IE SPY

[Хой]

set ie = getobject(,'"InternetExplorer.Application")

ERROR: ActiveX can't create object

[Amed]

А у меня код

Dim ie As Variant
Set ie = GetObject(, "InternetExplorer.Application")
MsgBox "Открыта страница: " & ie.locationurl

работает без ашипокъ, но показывает msgbox с текстом типа "file:///C:\Download", если в Панели Задач первым окном запущен Проводник (Windows Exlporer), т.е. путь в окне explorer'а, иначе вообще не показывает путь

[Хой]

у меня опять таки ошибка..... мож это из за ОС? у меня ХР....
блин, я крутил и так и этак, а оно всё eroor-error!

[Amed]

У меня тоже XP...

Позволю себе поставить под сомнение правильность кода RayShade

[RayShade]

Правила читали? За сомнения в правильности всего написанного администрацией помните что полагается?

Код верен и работает. То, что он хватает первый запущенный экземпляр IE - особенности работы GetObject.

[Amed]

Да-да-да, конечно, я извиняюсь

Я всё читал, да-да-да
Только не в бан!!!

[RayShade]

Ну не надо было так бурно реагировать Это была милая шутка в понедельник с утра

[Amed]

Да знаю я шутки модераторов в понедельник с утра
Им лишь бы кого-нибудь забанить

P.S. Извиняюсь за оффтоп

[Sebas]

Да это сам контрол не ловит окна!
Он ловит только с классом IFrame(iexplorer.exe)

окна Эксплорера с другими классами(Проводник из пуска или жмак по столу(не помню этих двух классов)) могут не содержать дочернего окна "Internet Explorer_Server" поэтому ваш объект и не увидит его

[Хой]

Да это сам контрол не ловит окна!
Он ловит только с классом IFrame(iexplorer.exe)

окна Эксплорера с другими классами(Проводник из пуска или жмак по столу(не помню этих двух классов)) могут не содержать дочернего окна "Internet Explorer_Server" поэтому ваш объект и не увидит его

ну а в чём понт-то, всёже, как мне блин, отловить эти гадкие ссылки

[Sebas]

По правильному - никак!
Я общался на эту тему с сиплюцепцами))) они тоже умывают руки

А по кривому, искать перебирать все окна с классами
IEFrame
ExploreWClass
CabinetWClass
на предмет поиска дочернего окна которое есть адресная строка и вытащить текст.
Но ты понимаешь, что с текстом можно очень сильно лохануться......

[Хой]

ну вот ты говорищь что по-правильному-никак, тогда какже у RayShad'а работает?

[Sebas]

Я тебе написал как есть, а как у него работает, пусть он напишет....