使用Visual Studio 2013在VB中发布Jsondata，结果显示消息：“您可以；无效参数"；

我正在使用有效的url和有效的APIkey（用户名）调用PostJsontext。 过帐jsontext会导致行中出现“无效参数”消息： .send（Jsontext）

将相同的例程用于： .Open（“GET”，Xurlget，False，StrUsername，”） .send（） 生成有效的.responsetext

不知道去哪里或做什么，以便张贴所有的数据。 为什么那条线会产生一个错误？如何修复

Public Sub PostJsonText(ByVal xurl As String, ByVal Xurlget As String, ByVal StrUsername As String, ByVal StrPassword As String, ByRef xJsonText As String, ByRef OkAuthenticateCredentials As Boolean, ByRef Credstatus As Int32)

    Dim Jsonservice As Object = CreateObject("MSXML2.XMLHTTP.6.0")
    Dim Jsontext As String


    jsontext =
        "{""idvatgroup"":3996,""idsupplier"":111,""productcode"":""tester2"",""name"":""tester2"",""price"":22,""fixedstockprice"":22,""productcode_supplier"":""22""}"


    With Jsonservice
        .Open("POST", Xurlget, False, StrUsername, "")

        .setRequestHeader("Content-Type", "application/json")
        .setRequestHeader("Accept", "application/json")

       .setRequestHeader("Authorization", "Basic " & StrUsername)
       .send(jsontext)

        Credstatus = .Status
        If .Status <> 401 Then
            jsontext = .Responsetext
            OkAuthenticateCredentials = True
        Else
            OkAuthenticateCredentials = False
            JsonText = "Error: Invalid Credentials!"
        End If
    End With
    Jsonservice = Nothing

Public Sub PostJsonText（ByVal xurl作为字符串，ByVal xurl作为字符串，ByVal strusterName作为字符串，ByVal StrPassword作为字符串，ByRef xJsonText作为字符串，ByRef OkAuthenticateCredentials作为布尔值，ByRef Credstatus作为Int32）
Dim Jsonservice As Object=CreateObject（“MSXML2.XMLHTTP.6.0”）
Dim Jsontext作为字符串
jsontext=
{“idvatgroup”：3996，“idsupplier”：111，“productcode”：“tester2”，“name”：“tester2”，“price”：22，“fixedstockprice”：22，“productcode\u supplier”：“22”}
使用Jsonservice
.Open（“POST”，Xurlget，False，StrUsername，”）
.setRequestHeader（“内容类型”、“应用程序/json”）
.setRequestHeader（“接受”、“应用程序/json”）
.setRequestHeader（“授权”、“基本”和StrUsername）
.send（jsontext）
Credstatus=.Status
如果。状态401那么
jsontext=.Responsetext
OkAuthenticateCredentials=True
其他的
OkAuthenticateCredentials=False
JsonText=“错误：无效凭据！”
如果结束
以
Jsonservice=Nothing

请修复标签请修复标签