ear (Все сообщения пользователя)

Как отловить ошибку в MSXML2.XMLHTTP60, Запрос через браузер (любой) к вебстранице загружает ее без проблем. Аналогичный запрос через VBA возвращает код другой страницы.

ear Пользователь Сообщений: 6 Регистрация: 12.04.2017	# 13.04.2017 10:51:54 Провел небольшой эксперемент с использованием вебпрокси. В этом случае редирект не происходит https://yadi.sk/i/0yhbpDcw3GvTxw
	Перейти

ear Пользователь Сообщений: 6 Регистрация: 12.04.2017	# 13.04.2017 10:40:06 Отработка запроса в Fiddler https://yadi.sk/i/Z5Y07YmX3GvSeH
	Перейти

ear

Пользователь

Сообщений: 6 Регистрация: 12.04.2017

13.04.2017 10:09:28

Ссылка в родительской категории на сайте исходника не имеет параметров https://yadi.sk/i/sNPaG01W3GvNB3

Предполагаю: Видимо сервер через javascript или php перехватывает ссылку идентифицируя ее по классу или "как внутреннюю". Далее переадресует или нет.

Не уверен, что решение существует для Vba скрипта, чтобы обойти переадресацию. У меня не хватает опыта в данном вопросе, чтобы сделать правильный эксперимент. Видимо решение м.б. в кастомном запросе.

Так что буду благодарен за любую помощь.

Перейти

ear

Пользователь

Сообщений: 6 Регистрация: 12.04.2017

13.04.2017 09:59:24

Игорь,
большое спасибо за помощь.

Пока что результат отрицательный. Вот что получилось. Я использовал Ваш код в новом файле. VBA 7. Он рабочий и сохраняет файл, но это не целевая страница, а редирект, так же как и у меня. Добавление параметра к URL не оказался в данном случае действенным методом.

Целевая страница на сайте исходнике: https://yadi.sk/i/fINLLyUb3GvMBP
test.rar: сохраненный файл html страницы
test_file: файл с кодом скрипта

Сервер не переадресует страницу при переходе по внутренней ссылке с соответствующей родительской категории, но при прямом вызове url происходит переадресация. Браузер с настройкой "отключенное метаобновление" переадресацию не выполняет, без этой опции переадресация происходит аналогично работе скрипта. Никакие танцы с бубном пока не позволили добиться такого результата.

Перейти

ear

Пользователь

Сообщений: 6 Регистрация: 12.04.2017

12.04.2017 19:22:35

Цитата
Игорь написал: А проще загрузить страницу не пробовали?

Это по сути оно и есть. Вопрос в том, что идет переадресация. Есть ли способ эффективно ее блокировать.

метод .setRequestHeader "AllowAutoRedirect", "False" - оказался не действенным

Перейти

ear

Пользователь

Сообщений: 6 Регистрация: 12.04.2017

12.04.2017 11:36:35

Запрос через браузер (любой) к вебстранице загружает ее без проблем. Аналогичный запрос через VBA возвращает код другой страницы.

Вот фрагмент кода запроса:

Код

                Set xhr = New MSXML2.XMLHTTP60
                    With xhr
                            .Open "GET", url$, False
                            .send
                        If .readyState = 4 And .status = 200 Then
                            Set doc = New MSHTML.HTMLDocument
                            doc.body.innerHTML = .responseText
                        Else
                            MsgBox "Error" & vbNewLine & "Ready state: " & .readyState & _
                            vbNewLine & "HTTP request status: " & .status
                        End If
                    End With

запрашиваемая страница "https://f.ua/amica/optima-14p.html"
страница в ответе "https://f.ua/amica/optima-18.html"
копипаст через браузер https://yadi.sk/i/_YG_ksXp3GtVnm дает верный ответ без редиректа

Очень нужна помощь в этом вопросе, совершенно не понимаю, как подступиться к решению проблемы.

Перейти