Question

我想提取网页的响应正文。我需要的信息是在60页的43页的回复正文中。我尝试使用其他解决方案，从响应机构给我一些中文文本，我想它是加密的。

我已经尝试了一些代码，它给出了响应文本，这里不需要。您可以在开发者工具中查看页面的响应正文 - ＆gt;网络 - ＆gt;详细信息 - ＆gt;响应正文。

只有在您单击网络流量捕获按钮然后刷新页面时才会加载。它将跟踪所有请求和响应。

任何帮助都将受到高度赞赏。

由于

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

Function GetHTML(Url As String) As String
    Dim request As Object
    Set request = CreateObject("Msxml2.XMLHTTP.3.0")
    Dim converter 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
End Function

如何使用VBA从网页获取响应正文（不是响应文本）

1 个答案: