403 Ошибка при HTTP-запросе

-1

Я искал похожие потоки «403», но не смог найти ответ.403 Ошибка при HTTP-запросе

У меня есть следующий URL, который действует и работает - www.investing.com/equities/apple-computer-inc-earnings

И мой код:

Sub GetSourceCode() 

    Dim XMLHTTP As Object 
    Dim URL As String 
    Dim data As String 

    URL = "http://www.investing.com/equities/apple-computer-inc-earnings" 
    Set XMLHTTP = CreateObject("WinHttp.WinHttpRequest.5.1") 
    XMLHTTP.Open "GET", URL, False 
    XMLHTTP.send 
    data = XMLHTTP.responseText 
End Sub

Однако «данные» строка возвращается с «403 Forbidden» ошибка вместо исходный код, которого я пытаюсь достичь.

Любое решение или обходное решение (или дублирующая ссылка) были бы высоко оценены.

Благодаря

источник

2016-05-16 David912

Что вы пытаетесь получить в эту строку? Вы, конечно, не ожидаете получить все, что видите на веб-сайте, в эту строку. Могу ли я предложить вам взглянуть на это решение и попробовать: http://stackoverflow.com/questions/8798260/html-parsing-of-cricinfo-scorecards/8846791#8846791 Даже если это решение не используется, может по крайней мере помочь вам лучше идентифицировать товар (ы), который вы хотите получить с веб-сайта. – Ralph

Спасибо, я посмотрю на это, но я также хочу добавить, что если URL-адрес заменен URL = "http://www.google.com", он, похоже, работает так, как ожидалось, и исходный код полностью сохраняется в строке. Конечно, меня интересует только небольшая часть данных из этой строки, но сначала я должен загрузить ее полностью, нет? – David912

Короткий ответ: нет, вам не нужно загружать весь сайт. – Ralph

В запросе заголовок непосредственно перед .send

XMLHTTP.SetRequestHeader "User-Agent", "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"

источник

2017-07-11 08:03:58 Pawel

403 Ошибка при HTTP-запросе

ответ

Смежные вопросы