WebBrowser и обновление страниц

[serj2008]

Открываю страницы, до этого код работал 3 мес, щас стал выдавать старые данные(страница обновляется каждый час). И где он их только берет. че делать?

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

Do While AdrPos(1, schet) <> ""

Npos = AdrPos(1, schet)
Apos = AdrPos(2, schet)
schet = schet + 1
WebBrowser1.Navigate Apos

Do Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
DoEvents
Loop

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

[Antonariy]

Потрясающе информативно.

[serj2008]

А что конкретно не понятно. Данный код открывает страницы на которых данне 2-х дневной давности. Почему это происходит понять не могу. Сами страницы обновляются регулярно ,проверено.

[Antonariy]

Огрызок кода выглядит бредово (навигация в цикле) в отрыве от остального, и бессмысленно его постить — актуальность страницы от навигации не зависит. Почисти кэш IE.

[serj2008]

После очистки кэша IE все заработало , только я вручника чистил. А какой командой в VB это сделать?? ?? Спасибо за совет

[Antonariy]

Есть специальные api для работы с кэшем, ищи примеры на planetsourcecode.com по словам IE cache. C их помощью можно чистить кеш конкретного урла, а не все подряд. Ну а если страница с таблицами твоя, то лучше прописать в ней запрет кеширования.

[damc]

а покажь пример Apos.... у меня похожая фигня была... вышел путем добавления в адрес ненужного мусора в хвосте ссылки, который фигачил дата+таймером.... и вроде адрес новый каждый раз был и все норм обновлялось...

[SSecurity]

После очистки кэша IE все заработало , только я вручника чистил. А какой командой в VB это сделать?? ?? Спасибо за совет

Отгадай что хранится в папочке C:\Documents and Settings\[curuser name]\Local Settings\Temporary Internet Files\Content.IE5
все сносишь из папочек ... программно и вот все чисто

А вообще я бы рекомендовал ориентироваться на событие DocumnetComplite объекта WebBrowser'а

[kifiro]

А если на странице есть фрэйм который обновляется, каким образом можно узнать readystate?
Пробовал как:

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

W1.Document.frames("main").readysate


не работает