VBA中WinHTTPRequest的responseText在MsgBox与Debug.Print显示不一致问题

我在编写纯VBA简易JavaScript引擎时遇到异常：用WinHTTPRequest获取网页内容，MsgBox显示的是浏览器查看源码时的完整HTML及JavaScript代码，但Debug.Print、写入文件或单元格时，显示的却是提示“未使用QuickBase API抓取页面”的不同HTML。已检查变量类型无异常，排除服务器端问题，查阅文档后仍无法解决，特求助。

相关代码：

grab = CreateObject("WinHttp.WinHttpRequest.5.1")
grab.Open
.SetRequestHeaders "irrelevant", "Really doesn't matter what I'm setting as my headers"
grab.send
' Here's the weird part...
resptext = grab.responseText
respbody = grab.responseBody
debug.print(resptext)
MsgBox(resptext)
string_of_byte_array = StrConv(respbody, vbUnicode)
debug.print(string_of_byte_array)
MsgBox(string_of_byte_array)

• 核心原因：字符串处理逻辑与编码差异
  MsgBox和Debug.Print对字符串的解析规则不同：

  1. Debug.Print遇到字符串中的null字节（Chr(0)）会直接截断后续内容，只显示截断前的部分；而MsgBox能忽略这类控制字符，完整渲染所有内容。服务器返回的内容里，可能在“未使用QuickBase API”提示后存在null字节，之后才是完整HTML——这就导致两者显示结果不一致。
  2. 直接用StrConv(respbody, vbUnicode)转换二进制内容存在编码风险：如果网页返回UTF-8编码，vbUnicode（对应UTF-16）的转换规则会导致乱码或截断，而MsgBox可能自动识别了编码，所以显示正常。

• 解决步骤

  1. 过滤null字节：输出前清除字符串中的null字节，避免Debug.Print截断：

     resptext = Replace(grab.responseText, Chr(0), "")
     Debug.Print resptext
     

  2. 正确处理编码转换：用ADODB.Stream替代StrConv，适配UTF-8编码：

     Dim stream As Object
     Set stream = CreateObject("ADODB.Stream")
     stream.Type = 1 '二进制模式
     stream.Open
     stream.Write grab.responseBody
     stream.Position = 0
     stream.Type = 2 '文本模式
     stream.Charset = "UTF-8"
     resptext = stream.ReadText
     stream.Close
     

  3. 补全浏览器请求头：服务器可能根据请求头返回不同内容，模拟浏览器的请求头参数，比如：

     grab.SetRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/114.0.0.0 Safari/537.36"
     grab.SetRequestHeader "Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8"
     

内容的提问来源于stack exchange，提问作者Pete Marise