【COM】使用 XMLHTTP 组件提交 JSON 格式的 POST 请求

xLeaves（xxrpa） 发布于 2023年06月02日 10:50:53

---

函数代码如下：

' HTTP 协议提交 JSON 请求（POST）
function HttpPostJson(sURL As String, sJson As String) as String
    Object objHttp = CreateObject("Msxml2.XMLHTTP")
    if IsObject(objHttp) then
        objHttp.open("POST", sURL, false)
        objHttp.setRequestHeader("Content-Type", "application/json")
        objHttp.send(sJson)
        if objHttp.readyState = 4 then
            Dim sRet As String = objHttp.responseText
            ReleaseObject(objHttp)
            return sRet
        end if
    end if
    ReleaseObject(objHttp)
    return ""
end function

---

若无特殊声明，上述内容为本站原创，未经授权禁止转载！