Как удалить заголовок HTTP? (URL перенаправления?) - PullRequest
0 голосов
/ 10 января 2019

Я установил надстройку в своем браузере, которая позволяет мне видеть все заголовки HTTP, которые идут назад и вперед от моего Firefox и веб-сервера.

Это простой код, который я использовал:

Set WinHttpReq = CreateObject("MSXML2.ServerXMLHTTP")
WinHttpReq.Open "GET", "Initial_URL.com", False
WinHttpReq.Send

Ниже приведен заголовок http:

https://Initial_URL.com
Host: Initial_URL.com
User-Agent: Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:56.0) Gecko/20100101 Firefox/56.0
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: en-US,en;q=0.5
GET: HTTP/1.1 302 Moved Temporarily
content-length: 2361
content-type: text/html

date: Wed, 09 Jan 2019 19:46:06 GMT
location: Redirected_to.com
Set-Cookie: PD-S-SESSION-ID=1_2_0_ud2NmPnh++62VQCPVkwxb8xp0wuMBDhqmfZiqltbPrgksUAf; 

Первая часть заголовка - это то, что HTTP-заголовок отправил на сервер, а затем ответ от сервера.

Мне нужно получить некоторые из этих полей (например, местоположение, Set-Cookie). Я проанализировал WinHttpReq.ResponseText, но это чистый HTTP-код, вообще без заголовков. Любое руководство?

1 Ответ

0 голосов
/ 10 января 2019

Если вам нужна информация заголовка, вы можете получить ее из метода getAllResponseHeaders.

Вот небольшая демонстрация:

Sub GetHeaders()
    Dim headers As String

    With CreateObject("MSXML2.ServerXMLHTTP")
        .Open "GET", "/10268542/kak-udalit-zagolovok-http-url-perenapravleniya"
        .send
        headers = .getAllResponseHeaders
        Debug.Print headers
    End With
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...