将JSON对象作为POST请求发送时出错[VB.NET]

我正在尝试从VB.NET应用程序（3.5框架）发送JSON对象

我正在使用以下代码：

 Private Function sendSMS()
        Dim objHTTP As Object
        Dim json As String
        Dim result As String
        Dim URL As String

        json = fJSON()
        objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
        URL = "https://api.XXXXXXXXX.com/api/3.0/sms/send"
        objHTTP.Open("POST", URL, False)
        objHTTP.setRequestHeader("Content-type", "application/json")
        objHTTP.send(json)
        result = objHTTP.responseText
        objHTTP = Nothing    
    End Function

    Private Function fJSON() As String
        fJSON = "{"
        fJSON = fJSON & """api_key"":""XXXXXXXXXXXXXXXXXXX"","
        fJSON = fJSON & """concat"":1,"
        fJSON = fJSON & """fake"":1,"
        fJSON = fJSON & """messages"":["
        fJSON = fJSON & "{"
        fJSON = fJSON & """from"":""SHOP"","
        fJSON = fJSON & """to"":""3400000000"","
        fJSON = fJSON & """text"":""LOREM IPSUM"""
        fJSON = fJSON & "}]}"
    End Function

但是我在行代码中得到了这个错误：

行代码：

objHTTP.setRequestHeader("Content-type", "application/json")

错误：

System.Runtime.InteropServices.COMException（0x80004005）：无特殊错误ADO

---

怎么了？

有时用户没有足够的权限运行某些COM方法。这里，您的异常显示为“System.Runtime.InteropServices.COMException（0x80004005）”，它基于System.Runtime.InteropServices.COMException。为了解决这个问题，您是否可以以管理员身份运行Visual Studio并检查逻辑是否适合您？

我不是vb.net专家，但fJSON（）函数不应该返回值？@mast3rd3mon是的，它返回一个字符串。现在我尝试以管理员身份运行，但我遇到了相同的错误。