http 响应文本获取不完整 html

Question

我在 excel vba 中有一个代码（下面给出）可以获取网页源代码 html。该代码工作正常，但它获取的 html 不完整。当执行 webpageSource = oHttp.ResponseText 行时，变量 webpageSource 包含 "DOCTYPE html PUBLIC ....... etc etc till the end /html"，这就是它应该的样子。到这里为止一切都是正确的。但是下一行 debug.print webpageSource 只打印一半 html from "(adsbygoogle = window.adsbygoogle || []).push({}); ......等等直到end /html” 为什么会这样？我想从返回的响应文本中找到一些字符串，但由于它不完整，我无法这样做。有人可以解释一下吗？

谢谢

Sub source()
    Dim oHttp As New WinHttp.WinHttpRequest
    Dim sURL As String
    Dim webpageSource As String
    sURL = "http://www.somewebsite.com"
    oHttp.Open "GET", sURL, False
    oHttp.send
    webpageSource = oHttp.ResponseText
    debug.print webpageSource
End Sub

编辑：我也试过 .WaitForResponse 没有帮助:(

Answer 1

Debug.Print and/or 直接 window 有限制。但是他们没有记录在案。

所以尝试将 webpageSource 写入文件：

Sub source()
    Dim oHttp As New WinHttp.WinHttpRequest
    Dim sURL As String
    Dim webpageSource As String
    sURL = "http://www.google.com"
    oHttp.Open "GET", sURL, False
    oHttp.send
    webpageSource = oHttp.ResponseText

    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set oFile = FSO.CreateTextFile("webpageSource.txt")
    oFile.Write webpageSource
    oFile.Close

    Shell "cmd /C start webpageSource.txt"

End Sub

文件是否包含所有内容？

http 响应文本获取不完整 html

http response text fetching incomplete html

vba

excel

responsetext

winhttprequest