以http setRequestHeader

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"不管我投入的請求頭字段。以http setRequestHeader

我得到的錯誤：Run-time error '-2147467259(80004005)' Unspecified error如果我註釋掉setRequestHeader線，那麼它工作正常，但API返回，我缺少頭字段（預期）我已經參加MS XML v3.0和v6.0，我完全出出主意......

來源

2017-08-11 Reed

嘗試打開請求後這樣做。 – Bob77

這是它，謝謝！隨意張貼的答案，所以我可以選擇它作爲最好的。 – Reed

打開請求後設置你的請求頭。

來源

2017-08-11 16:35:52 Bob77

以http setRequestHeader

回答

相關問題