你好，我直接用下面代码增加用户(我删除用户已经成功了)报错，见附件，什么原因
另我想请教一下，这两行代码分别什么意思，我增加的用户不一样，这两行我应该写什么内容呢
此主题相关图片如下：报错增加用户.png
jo("weixinid") = "zhangsan4dev" jo("avatar_mediaid") = "2ajDqSlzedZ5A3eFCAb73lbjkSkkbliE0u0oq6xXNtM49xvyJ7O6k7JBC10V5wfR5IONGxoiqG9EOs5H9LB_dzw"
Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/create?access_token={0}"
Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessTokentxl")))
Dim jo As New JObject
jo("userid") = "13750"
jo("name") = "韩晓鑫"
jo("department") = New Jarray(3) '部门ID为3和9
jo("position") = "产品经理"
jo("mobile")= "18641713540"
jo("gender") = "1"
'jo("email") = "zhangsan@gzdev.com"
jo("weixinid") = "zhangsan4dev"
jo("avatar_mediaid") = "2ajDqSlzedZ5A3eFCAb73lbjkSkkbliE0u0oq6xXNtM49xvyJ7O6k7JBC10V5wfR5IONGxoiqG9EOs5H9LB_dzw"
hc.Content = Jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.Show("用户创建成功")
Else
MessageBox.Show(jo.ToString)
End If
加好友 
发短信
Post By：2020/6/17 16:49:00 [显示全部帖子]
