Тема: VBA: MSXML2.XMLHTTP: множественные запросы
Здравствуйте, уважаемые. Написал макрос в Excel, который отправляет данные на страницу сайта методом POST:
Dim XMLHTTP As MSXML2.XMLHTTP, step as Integer, flag As Boolean
Set XMLHTTP = New MSXML2.XMLHTTP
step = 1: flag = True
Do
XMLHTTP.Open "POST", "http://www.site.ru/page.php?val=1", True
XMLHTTP.SetRequestHeader "Host", "http://www.site.ru"
XMLHTTP.SetRequestHeader "Content-type", "application/x-www-form-urlencoded"
XMLHTTP.SetRequestHeader "Cache-Control", "no-store, no-cache"
XMLHTTP.SetRequestHeader "Pragma", "no-cache"
XMLHTTP.SetRequestHeader "User-agent", "Mozilla/5.0 (Windows; U; Windows NT 6.0; ru; rv:1.9.2.3) Gecko/20100401 Firefox/3.6.3 ( .NET CLR 3.5.30729)"
zapros = ""
' далее в zapros формируются данные, количество символов примерно 250000
XMLHTTP.SetRequestHeader "Content-Length", CStr(Len(zapros))
XMLHTTP.send zapros
Do While XMLHTTP.readyState <> 4
DoEvents
Loop
step = step + 1
If step > 10 Then flag = False
Loop Until flag = False
XMLHTTP.abort
Set XMLHTTP = Nothing
С запросами HTTP работаю первый раз, поэтому данный код предоставляю на "суд" - что лишнее в данном кода, что отсутствует, как можно оптимизировать и т.п.?. Передача данных осуществляется "крайне" долго, по сравнению с браузером. Конкретные вопросы отсутствуют, надеюсь, что при обсуждении появятся. Спасибо.