ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / WebBrowser. Странное поведение Navigate
7 сообщений из 7, страница 1 из 1
WebBrowser. Странное поведение Navigate
    #36596437
Максим М.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Максим М.
Участник
Был абсолютно рабочий код, добывавший HTML код страницы в интернете:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
    Dim ie As WebBrowser
    Dim res As String
                        
    Set ie = CreateObject("InternetExplorer.Application")

    ie.Navigate "http://www.somesite.ru/"

    While ie.Busy
        DoEvents
    Wend

    While ie.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    res = ie.Document.documentElement.innerHTML

Запускался под WinXP в Excel2003. Работал замечательно, окно ie ни разу отображалось, что вполне меня устраивало.
Теперь понадобилось запустить тот же код под Vista в Excel2007. И вот тут начались сюрпризы:
После выполнения ie.Navigate во весь экран разворачивается окно Internet Explorer, а любое обращение к ie кончалось ошибкой "The remote server machine does not exist or is unavailable"

Вспомнив совет Antonariy, перед Navigate сделал окно ie видимым:
Код: plaintext
1.
2.
3.
4.
    
    Set ie = CreateObject("InternetExplorer.Application")
    ie.Visible = True
    ie.Navigate "http://www.somesite.ru/"

и вот тут начался вообще врыв мозга:
После ie.Visible = True на экране появляется пустое окно IE.
После ie.Navigate появляется ЕЩЕ ОДНО окно IE, где собственно и происходит загрузка страницы. При этом первое окно, так и остается пустым, а его ReadyState остается нулевым... Соттветсвенно цикл While ie.ReadyState <> READYSTATE_COMPLETE становится вечным...

Почему такое происходит? Как отучить Navigate ходить налево? =)
...
Рейтинг: 0 / 0
24.04.2010, 20:35
| Ответить | Цитировать | Написать  
WebBrowser. Странное поведение Navigate
    #36597016
Максим М.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Максим М.
Участник
На худой конец, как мне обратиться к новому окну InternetExplorer, чтобы уже из него получить HTML страницы ?
...
Рейтинг: 0 / 0
25.04.2010, 16:50
| Ответить | Цитировать | Написать  
WebBrowser. Странное поведение Navigate
    #36597164
Максим М.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Максим М.
Участник
Отчаявшись, забил на IE. Нашел на форумах следующий способ получения HTML-кода страницы:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Function GetHTML(URL As String)
    Dim runReq As Object
    
    Set runReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    
    runReq.Open "GET", URL, False
    runReq.Send
    GetHTML = runReq.ResponseText
    
    Set runReq = Nothing
End Function

Вот. Может еще кому-нибудь пригодится. =)

PS: И все же интересно, как победить IE? =)
...
Рейтинг: 0 / 0
25.04.2010, 19:22
| Ответить | Цитировать | Написать  
WebBrowser. Странное поведение Navigate
    #36611439
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Подскажите пожалуйста, а в Вашем коде где указано имя страницы с которой Выберёте значение, чтобы его опробовать с чего надо начинать
...
Рейтинг: 0 / 0
04.05.2010, 17:42
| Ответить | Цитировать | Написать  
WebBrowser. Странное поведение Navigate
    #36611442
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Подскажите пожалуйста, а в Вашем коде где указано имя страницы с которой Выберёте значение, чтобы его опробовать с чего надо начинать
...
Рейтинг: 0 / 0
04.05.2010, 17:44
| Ответить | Цитировать | Написать  
WebBrowser. Странное поведение Navigate
    #36625657
Vic65
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vic65
Гость
ссылка на страницу в переменной URL
...
Рейтинг: 0 / 0
13.05.2010, 14:05
| Ответить | Цитировать | Написать  
WebBrowser. Странное поведение Navigate
    #36625680
Фотография Андрей159
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей159
Участник
Не знаю точно, но у меня был сюрприз по жестче "...ляля...ошибку...и приложения будет закрыто" и всегда вместе с моим проэктом. Я решил это методом разрешения java сценариев, а то почемуто они были отключены. И много настроек были настроены в сторону максимальной защиты. Это произошло как только я решил перейти на "лучшую" зборку виндовс.
...
Рейтинг: 0 / 0
13.05.2010, 14:12
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / WebBrowser. Странное поведение Navigate
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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