Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / WebBrowser. Странное поведение Navigate / 7 сообщений из 7, страница 1 из 1
24.04.2010, 20:35
    #36596437
Максим М.
Максим М.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
Был абсолютно рабочий код, добывавший 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
| Ответить | Цитировать | Написать  
25.04.2010, 16:50
    #36597016
Максим М.
Максим М.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
На худой конец, как мне обратиться к новому окну InternetExplorer, чтобы уже из него получить HTML страницы ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
25.04.2010, 19:22
    #36597164
Максим М.
Максим М.
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
Отчаявшись, забил на 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
| Ответить | Цитировать | Написать  
04.05.2010, 17:42
    #36611439
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
Подскажите пожалуйста, а в Вашем коде где указано имя страницы с которой Выберёте значение, чтобы его опробовать с чего надо начинать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2010, 17:44
    #36611442
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
Подскажите пожалуйста, а в Вашем коде где указано имя страницы с которой Выберёте значение, чтобы его опробовать с чего надо начинать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2010, 14:05
    #36625657
Vic65
Vic65
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
ссылка на страницу в переменной URL
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.05.2010, 14:12
    #36625680
Андрей159
Андрей159
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
WebBrowser. Странное поведение Navigate
Не знаю точно, но у меня был сюрприз по жестче "...ляля...ошибку...и приложения будет закрыто" и всегда вместе с моим проэктом. Я решил это методом разрешения java сценариев, а то почемуто они были отключены. И много настроек были настроены в сторону максимальной защиты. Это произошло как только я решил перейти на "лучшую" зборку виндовс.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / WebBrowser. Странное поведение Navigate / 7 сообщений из 7, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 285ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2159802]:
 0ms
get settings:
 5ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 31ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 24ms
get tp. blocked users:
 1ms
others: 201ms
total:  285ms
x
x
Закрыть


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