以http setRequestHeader

Question

Public Function WebRequest(url As String, sVal1 As String, sVal2 As Integer) As String 
    Dim xmlhttp As MSXML2.xmlhttp 
    Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP") 
    xmlhttp.setRequestHeader "Content-Type", "application/json" 
    'xmlhttp.setRequestHeader "Accept", "text/xml" 
    'xmlhttp.setRequestHeader "Value1", sVal1 
    'xmlhttp.setRequestHeader "Value2", sVal2 

    xmlhttp.open "GET", url, False 
    xmlhttp.send 

    WebRequest = xmlhttp.responseText 
    Set xmlhttp = Nothing 
End Function 

当我运行该功能运行时错误，甚至与其他PARAMATERS注释掉，它在该行失败：xmlhttp.setRequestHeader "Content-Type", "application/json"不管我投入的请求头字段。

我得到的错误：Run-time error '-2147467259(80004005)' Unspecified error如果我注释掉setRequestHeader线，那么它工作正常，但API返回，我缺少头字段（预期）我已经参加MS XML v3.0和v6.0，我完全出出主意......

Answer 1

打开请求后设置你的请求头。