Получить URL

[Space]

А есть какой-нить универсальный способ получить URL от любого браузера в активном окне? Если нет, то как получить его в IE и других браузерах, кто знает, напишите, плиз...

[Хакер]

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

url$ = InputBox("Укажите адрес страницы, которая открыта в настоящий момент в обозревателе")

[Space]

А как на счёт перебора всех сombo полей и анализа их значения?

[iGrok]

:D А как на счёт перебора всех сombo полей и анализа их значения?

Перебирай.. Кто ж тебе мешает?

[Хакер]

:D А как на счёт перебора всех сombo полей и анализа их значения?

Как и любой другой вариант, который посчитает диалог «Пуск->Выполнить» — броузером, этот вараинт заслуживает своё почётное место в списке глупостей.

[Space]

ну так скажи не глупый вариант, коль такой умный

[Хакер]

Не существует умных ответов, удовлетворящих автора глупых вопросов.

[Space]

существует. Если знаешь Если тя беспокоит глупость моих вопросов, то ты просто учти, что я шагаю от универсального к худшему. Я знаю, что вопрос с вероятностью 99% не решим, но не задать его не могу, т.к. может быть, я чего-то не знаю, а решение существует. А ты тут хаешь меня...

[NashRus]

>> А ты тут хаешь меня...

У Хакера просто манера общения такая. У каждого манера как бы своя. Так что привыкай и не обижайся.

[awl100Alex]

Space
Не знаю, как насчет любого браузера... Но список всех открытых URL в IE можно получить Хакер’ским способом...

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

'Reference --> Microsoft Internet Controls
Private Sub Form_Load()
Dim wCollection As ShellWindows
  Set wCollection = New ShellWindows
  For Each br In wCollection
    If br.Name = "Windows Internet Explorer" Then _
       MsgBox br.LocationURL
  Next br
End Sub

Можно подумать, как «отсеять» лишнее.
А вообще ответ на твой вопрос поищи на http://www.sql.ru – где-то там точно есть ответ.