всем доброго времени!
Помогите плиз разобраться с загрузкой страницы, на которой предусмотрена дозагрузка содержимого. Вот пример:
http://www.gazeta.ru/archive.shtml?article=1&p=archive&start=03.04.2014
Внизу есть кнопка "Показать еще", после нажатия на которую на странице появляется дополнительный контент. Задача в том, чтобы загрузить страницу целиком, т.е. с дополнительным контентом.
Пробую так:

Function download_web_page(addr$) As String
Dim fNameArr$()
Set IE = CreateObject("InternetExplorer.Application"): On Error Resume Next

IE.Navigate addr$
While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
Sleep (1000)
Set IEDoc = IE.Document

IEDoc.getElementById("other_clickA").Click
While IE.busy Or (IE.readyState <> 3): DoEvents: Wend
Sleep (1000)
IE.Navigate addr$
Set IEDoc = IE.Document

txt$ = IE.Document.body.innerText
IE.Quit: Set IE = Nothing
download_web_page = txt
End Function

readyState установлено в "3", т.к. "4" никогда не достигается (процесс подвисает бесконечно)
на всякий случай продублировал это паузой в 1 секунду (Sleep)
проблема в том, что загружается по-прежнему исходная страница (с кнопкой "Показать еще"), то есть событие Click не происходит или я как-то неправильно его обрабатываю. Буду благодарен за помощь.

простите, разобрался. Лишняя IE.Navigate addr$ во втором случае. Сам спросил, сам ответил. Нормально, чо )