代码生成JSON 格式数据，向服务器提交时，一直提示401错误，后来发现有一个说明 ：“POST请求请在HTTP Header中设置 Content-Type:application/json，否则接口调用失败” 这个代码不知道如何下手了 我的代码如下：Dim url As String = "https://open.moxueyuan.com/api/v1/contacts/user/create?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("token")))
Dim upuser As New JObject
upuser("userid") = "10009"
upuser("name") = "王亚"
hc.Content = upuser.Tostring()
upuser = JObject.parse(hc.getdata())
If upuser("errcode") = "0" Then
MessageBox.show("创建成功")
Else
MessageBox.show("创建失败")
End If
加好友 
发短信
Post By：2022/3/16 15:04:00 [只看该作者]
