- Код: Выделить всё
Do While Ie.Busy
DoEvents
Loop
Но этот код не работает! Как-то можно подругому?
Do While Ie.Busy
DoEvents
Loop
Amed писал(а):а) WebBrowser1.ReadyState = READYSTATE_COMPLETE
б) WebBrowser1.Document.Readystate = "complete"
Я открываю IE указываю URL и загружаю, вот как мне в Осле дождаться полной загрузки.
Крост писал(а):neic
Я не совсем понял, тебе в твоей программе надо отловить полную загрузку осла? Т.е. именно ОТДЕЛЬНОГО окна IE... А не контрола в твоей проге? )
Крост писал(а):Открываешь осёл, вводишь урл....и ждёшь
Dim IE as new InternetExplorer
IE.Visible=True
IE.Navigate "ya.ru"
Do While IE.ReadyState <> READYSTATE_COMPLETE
DoEvents
Loop
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 93