Foxtable(狐表)用户栏目专家坐堂 → 获取企业微信成员的openid


  共有2493人关注过本帖树形打印复制链接

主题:获取企业微信成员的openid

帅哥哟,离线,有人找我吗?
1498351234
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1969 威望:0 精华:0 注册:2017/2/19 9:09:00
获取企业微信成员的openid  发帖心情 Post By:2018/11/2 10:27:00 [只看该作者]

老师好!我公司用的是企业微信,我通过样例能够获得企业成员的userid。但在“在线练习”样例中要求用成员的openid,问了下微信客服,说是可以参考api文档(https://work.weixin.qq.com/api/doc#11279)进行互换,不知道用foxtable,怎样写句子才能用userid返回成员的openid;或直接获得成员的openid也行。麻烦老师指导一下。api文档给定的请求地址是(https://qyapi.weixin.qq.com/cgi-bin/user/convert_to_openid?access_token=ACCESS_TOKEN),关键是如何把userid 和 token=ACCESS_TOKEN合成到要访问的地址里面。谢谢!

 

 

 

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/11/2 10:41:00 [只看该作者]

参考代码

 

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/convert_to_openid?access_token={0}"
Dim hc As New HttpClient(CExp(ul,Functions.Execute("GetQYAccessToken")))
Dim jo As New JObject
jo("userid") = "zhaoliu"
hc.Content = Jo.ToString
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.Show("成功")
    msgbox(jo("openid"))
Else
    MessageBox.Show(jo.ToString)
End If


 回到顶部
帅哥哟,离线,有人找我吗?
1498351234
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:150 积分:1969 威望:0 精华:0 注册:2017/2/19 9:09:00
openid  发帖心情 Post By:2018/11/2 10:50:00 [只看该作者]

问题解决了。谢谢老师!


 回到顶部