"使用 XMLHTTP 的请求不是通过 VBA 工作，而是使用 Fiddler Composer"

Question

我的一个 HTTP 请求（POST）不能通过 VBA 代码工作。 但是通过 Fiddler Composer 工作。 我检查了使用相同的 Cookie 和 Body，但经过大量调查后，我未能修复它。 我感谢任何形式的支持。 VBA 代码和 Fiddler 作曲家快照如下：

On Error GoTo line1
Dim xmlhttp As Object
Dim response As String
Dim getcookres As String
Dim html As New HTMLDocument

line1:
Set xmlhttp = CreateObject("MSXML2.ServerXMLHTTP.6.0")
cook = Worksheets("Links").Range("G2").Value
bodyk = Worksheets("Links").Range("F8").Value

Sheets("Sheet1").Rows(10).Clear

URL = "https://trade.axxxdirect.in/orderInstructionEq.do?method=processOI"
xmlhttp.Open "POST", URL, False
xmlhttp.setRequestHeader "Host", "trade.axxxdirect.in"
xmlhttp.setRequestHeader "Connection", "keep-alive"
xmlhttp.setRequestHeader "Content-Length", "900"
xmlhttp.setRequestHeader "sec-ch-ua", "Microsoft Edge;v=97, Chromium;v=97, Not;A Brand;v=99"
xmlhttp.setRequestHeader "Accept", "application/json, text/javascript, */*; q=0.01"
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=UTF-8"
xmlhttp.setRequestHeader "X-Requested-With", "XMLHttpRequest"
xmlhttp.setRequestHeader "sec-ch-ua-mobile", "?0"
xmlhttp.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/97.0.4692.99 Safari/537.36 Edg/97.0.1072.76"
xmlhttp.setRequestHeader "sec-ch-ua-platform", "Windows"
xmlhttp.setRequestHeader "Origin", "https://trade.axxxdirect.in"
xmlhttp.setRequestHeader "Sec-Fetch-Dest", "empty"
xmlhttp.setRequestHeader "Sec-Fetch-Mode", "cors"
xmlhttp.setRequestHeader "Sec-Fetch-Site", "same-origin"
xmlhttp.setRequestHeader "Referer", "https://trade.axxxdirect.in/authenticate.do?"
xmlhttp.setRequestHeader "Accept-Encoding", "identity"
xmlhttp.setRequestHeader "Accept-Language", "en-US,en;q=0.9"
xmlhttp.setRequestHeader "Cookie", "_ga=GA1.2.411414563.1643367033; _gid=GA1.2.1193448772.1643604050; _......JSESSIONID=29A615417CE7E470E5700F1730305444"

xmlhttp.send "responseType=JSON&exch=NSE&inst=OPTIDX&.....symbol=NIFTY&actionType=N"


Debug.Print xmlhttp.responseText
MsgBox xmlhttp.responseText