Не работает WebBrouser.

[SeRRg]

Здравствуйте!
Мне нужна помощь: я использую компонент WebBrouser. У меня в программе происходит переход на

ссылку Web1.Navigate(.....). Если я отлаживаю программу в пошаговом режиме, то все проходит

идеально, но если я запускаю просто на выполнение, то он не переходит. Я пробовал делать

различные задержки, но он почему-то так и остается на READYSTATE_LOADING. Подскажите

пожалуйста, почему это происходит и как от этого избавиться. Вот мой нерабочий кусок кода.

Web1.Navigate "...."

Do
Web1.Refresh
DoEvents

If Web1.ReadyState = READYSTATE_COMPLETE Then GoTo start
Loop
start:

Сорри, если вопрос простейший. Я только учусь его использовать.
Заранее спасибо.

[tyomitch]

Do
Web1.Refresh
DoEvents

If Web1.ReadyState = READYSTATE_COMPLETE Then GoTo start
Loop
start:

А почему не

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

Do
Web1.Refresh
DoEvents

Loop Until Web1.ReadyState = READYSTATE_COMPLETE


Смысл тот же, а гораздо понятнее.

[vvs_adm]

Смысл-то тотже, но такая же фигня получается. Нахрена тебе вечный рефреш?

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

wbrWebBrowser.Navigate "куды нада"

Do While wbrWebBrowser.ReadyState  = READYSTATE_COMPLETE
   DoEvents
Loop

[vvs_adm]

P.S.: а пошагово у тебя страница успевает загрузиться. А при выполнении не успевает нихрена

[FaKk2]

Я делал так:
Делал флаговую переменную

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

Dim ContentDloaded As Boolean

Потом в событии DocumentComplete писал:

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

ContentDloaded=True

А в нужном месте писал:

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


ContentDloaded=False
web1.navigate2 "www.blabla.com"
do while not contentdloaded
doevents
loop


Причем учти, если контрол скрыт (Visible=False) документ никогда не загрузится.

[marvan]

может стоит проверять длину:
Len(WebBrowser.document.body.outerHTML)
с определённым интервалом и если она перестала увеличиваться - считать страницу загруженной?

[FaKk2]

marvan
Не катит. Фишка не в том, что страница загрузилась, а в том что она вся отпарсирована.

[SeRRg]

2FAKK2
Spasibo!!! Poluchilos!

[FaKk2]

SeRRg
Всегда пожалуйста