Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перехват ошибок в WebBrowser! 
V
    Опции темы
velltar
Дата 26.9.2009, 18:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.9.2009

Репутация: нет
Всего: нет



Здравствуйте!
У меня появилась проблемка и как ее решить не понятно  smile 
На форме использую компонент WebBrowser в котором должна загружаться страница. Эта страница периодически загружается, а периодически нет и вот когда она не загружается, то появляется класическое окошко с красным круглешком и с крестиком внутри smile со словами "Не удалось открыть узел ...такойто. Операция прервана" Ну и соответственно кнопочка OK. Так вот у меня вопрос. Можно ли перехватить как то это сообщение об ошибке? Тогда бы я перенаправил выполнение программы и это окошко бы не вылезало smile. Надеюсь на помощь!!! Заранее спасибо
PM MAIL   Вверх
eldar22
Дата 26.9.2009, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1



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

Код

Private Sub Command1_Click()
If WebBrowser1.LocationURL = "http://radik.ho.ua/404.html"  Then  WebBrowser1.Navigate "http://www.mail.ru"
End Sub

Private Sub Form_Load()
 WebBrowser1.Navigate "http://radik.ho.ua/404.html"

End Sub

PM MAIL WWW   Вверх
velltar
Дата 26.9.2009, 21:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.9.2009

Репутация: нет
Всего: нет



Я конечно не уверен, что это именно то, но щас попробуемс smile Все равно в любом случаи спасибо smile О результатах напишу, может кому потом пригодится smile
PM MAIL   Вверх
velltar
Дата 27.9.2009, 15:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.9.2009

Репутация: нет
Всего: нет



В общем это не то и до сих пор не могу найти ответ :(
PM MAIL   Вверх
velltar
Дата 27.9.2009, 15:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.9.2009

Репутация: нет
Всего: нет



Думал попробовать решить проблему с помощью _NavigateError, но выяснилось то что _NavigateError срабатывает позже вылета этого окна с критической ошибкой. Попытался решить так же эту проблему с помощью body.innerText, но данные об странице которую не может загрузить соответственно в body.innerText даже не заносит - не успевает 
Может кто-нибудь сталкивался с аналогичной проблемой? Помогите кто чем сможет, плиз.
PM MAIL   Вверх
velltar
Дата 27.9.2009, 16:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.9.2009

Репутация: нет
Всего: нет



проблема решена. Всем спасибо за проявленный интерес  smile 
PM MAIL   Вверх
eldar22
Дата 27.9.2009, 17:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 149
Регистрация: 22.9.2008

Репутация: нет
Всего: 1



velltar,  Если не секрет расскажите как решили проблему может кому то будет полезна  информация
PM MAIL WWW   Вверх
GoblinOdnorukiy
Дата 5.10.2009, 01:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 13
Регистрация: 3.5.2009

Репутация: нет
Всего: нет



Цитата(eldar22 @ 27.9.2009,  17:34)
velltar,  Если не секрет расскажите как решили проблему может кому то будет полезна  информация

Ельдар22, я попробую ответить за Велтара...

Я покажу свой код, а ты уж подкорректируй под себя.

Код

Public Function OpenWebPage(page)
    
    Err.Clear
    On Error Resume Next
        
    Set objIE = Form1.WebBrowser1

    If (Err.Number <> 0) Then
        MsgBox "Error: NE MAGU SOZDAT OBJECT!!!"
        Err.Clear
    End If
    
    
    objIE.Navigate page
    If (Err.Number <> 0) Then
        MsgBox "Error: PRABLEMA SA STRANICHKOY!"
        Err.Clear
    End If

    While objIE.ReadyState <> READYSTATE_COMPLETE
        DoEvents
    Wend
    
    Set objIE = Nothing
    
End Function



В  коде я расставил MsgBox-ы. Их нужно закоментарить, тогда эта функция молча отработает даже если будет куча ошибок. Конечно нужно понимать что при наличии ошибок не загрузится веб страничка, поэтому нужно с умом обработать все ситуации когда появляются ошибки.

PM MAIL   Вверх
velltar
Дата 31.10.2009, 13:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 20
Регистрация: 24.9.2009

Репутация: нет
Всего: нет



Просто нужно в коде прописать 
Код

WebBrowser1.Silent = True


Но именно в коде самой программы, а не в препертисах объекта. Если в препертисах просто поставить True то у меня по крайней мере не пашет
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0699 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.