powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как определить недоступный URL в InternetExplorer.Application.Navigate URL
9 сообщений из 9, страница 1 из 1
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35796442
kefi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Например :
Set ie = CreateObject("InternetExplorer.Application") ' New InternetExplorer
URL="тратата недоступно"
With ie
.Navigate URL
' Как здесь понять , что перешли на недоступный URL ?
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35796685
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Словить событие NavigateError. Если дело происходит в скриптах, то вероятно никак.
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35796955
kefi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Дело происходит в скриптах (в смысле , Вы имели ввиду в скриптах не на html странице).

А можно тогда каким-то с помощью какого-ни другого объекта определить , что заданный URL недоступен ?
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35796977
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Попробуй тынц , последний пример.

По-другому можно проанализировать html-документ и поискать 404 и другие ошибки. И только.
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35797397
kefi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
попробовал, чей-то не получилось :

Dim ie
Set ie = CreateObject("InternetExplorer.Application")
WScript.ConnectObject ie, "ie_" ' <- ЗДесь ОШИБКА "Не удается подключить объект , неверный адрес управяющего блока памяти"

ie.Navigate "трататаURL"

Sub ie_NavigateError ( _
ByVal pDisp , _
ByVal URL , _
ByVal TargetFrameName , _
ByVal StatusCode , _
ByRef Cancel )

end sub
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35797510
kefi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да , кстати, а проанализировать html документ как - если нет этих ошибок на странице, - не могу если соединиться с сервером вообще ?

А вообще, есть другие способы кроме InternetExplorer.Application ?
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35797886
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На каждую ошибку у любого броузера есть встроенная страница, которая отображается в случае ее возникновения.
Еще можно использовать XMLHTTP, но он вроде бы возвращает те же страницы.
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35797918
kefi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Во! понял, как можно в WSH поймать событие : http://skinglex.class.ru/text/print/302/3998828.html

Но ! Все же вопрос остается - отчего же другой способ с WScript.ConnectObject ie, "ie_" не работает !? Или IE не выставляет свои события, вроде , раз CreateObject(obj,prefx) работает, то - выставляет ... что ж тогда м.б. c ConnectObject ?
...
Рейтинг: 0 / 0
Как определить недоступный URL в InternetExplorer.Application.Navigate URL
    #35798257
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Х.з., работать с событиями в WSH нужды не возникало.
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / HTML, JavaScript, VBScript, CSS [игнор отключен] [закрыт для гостей] / Как определить недоступный URL в InternetExplorer.Application.Navigate URL
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]