Добрый день
вопрос вот в чем. Есть задача получить исходный код веб-страницы в текстовую переменную. Данный код прекрасно справляется в большинстве простых случаев:
Сама искомая веб-страница вот:
дальше начинаются сложности - в браузере страница отображается корректно, а при выполнении кода:
ответ сервера содержит только информацию, что роботам данные не предоставляются.
Собственно сам вопрос - чем отличается запрос от браузера и от макроса, и, главное, как убедить сервер дать корректный ответ?
Спасибо.
вопрос вот в чем. Есть задача получить исходный код веб-страницы в текстовую переменную. Данный код прекрасно справляется в большинстве простых случаев:
| Код |
|---|
Sub sample()
sURL = "https://yandex.ru"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.send
If .Status = 200 Then txt = .responseText
End With
MsgBox (txt)
End Sub |
Сама искомая веб-страница вот:
дальше начинаются сложности - в браузере страница отображается корректно, а при выполнении кода:
| Код |
|---|
Sub sample()
sURL = "http://www.manta.com/ic/mtq599v/ca/45th-street-limited-partnership"
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
With oXMLHTTP
.Open "GET", sURL, False
.send
If .Status = 200 Then txt = .responseText
End With
MsgBox (txt)
End Sub |
ответ сервера содержит только информацию, что роботам данные не предоставляются.
Собственно сам вопрос - чем отличается запрос от браузера и от макроса, и, главное, как убедить сервер дать корректный ответ?
Спасибо.
