- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 企业微信增加用户 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=151194)
-- 发布时间：2020/6/17 16:49:00
-- 企业微信增加用户
你好，我直接用下面代码增加用户(我删除用户已经成功了)报错，见附件，什么原因
另我想请教一下，这两行代码分别什么意思，我增加的用户不一样，这两行我应该写什么内容呢
此主题相关图片如下：报错增加用户.png
此主题相关图片如下：报错增加用户.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
-- 发布时间：2020/6/17 17:25:00
--
提示avatar_mediaid设置的值无效。看一下微信开发文档：https://work.weixin.qq.com/api/doc/90000/90135/90253
-- 发布时间：2020/6/17 19:52:00
--
你好，我看不懂
我就想请教一下，这两行字段增加的是什么内容，我增加用户的时候，这两行可不可以不要
jo("weixinid") = "zhangsan4dev"
jo("avatar_mediaid") = "2ajDqSlzedZ5A3eFCAb73lbjkSkkbliE0u0oq6xXNtM49xvyJ7O6k7JBC10V5wfR5IONGxoiqG9EOs5H9LB_dzw"
-- 发布时间：2020/6/18 9:00:00
--