Как получить тело ответа (не текст ответа) с веб-страницы с помощью VBA

Question

Я хочу извлечь тело ответа веб-страницы. информация, в которой я нуждаюсь, находится в ответном теле из 43 страниц из 60. Я попытался использовать другое решение, которое дает мне некоторые китайские тексты из тела ответа, я предполагаю, что он зашифрован.

Я пробовал код, который дает мне текст ответа, который здесь не является обязательным. вы можете проверить, что тело ответа страницы можно увидеть в инструментах разработчика -> network -> details -> body response.

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

всякая помощь была бы высоко оценена.

Благодаря

Answer 1

это код, который дает мне первое тело ответа, но хотите, чтобы перебрать все органы отклика веб-страницы.

Sub HTMLsearch() Dim Html As String Html = GetHTML ("https://portal.mylink.com/vspace/")

' Cyrillic characters are supported in Office, so they will appear correctly 
rsbody= Html 

End Sub

Функция GetHTML (URL As String) As String запроса Dim As Object Set request = CreateObject («Msxml2.XMLHTTP.3.0») Дим-преобразователь As New ADODB.stream

' fetch page 
request.Open "GET", Url, False 
request.send 

' write raw bytes to the stream 
converter.Open 
converter.Type = adTypeBinary 
converter.Write request.ResponseBody 

' read text characters from the stream 
converter.Position = 0 
converter.Type = adTypeText 
converter.Charset = "Windows-1251" 

' set return value, close the stream 
GetHTML = converter.ReadText 
converter.Close 

Конечная функция