以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  获取企业微信成员的openid  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=126982)

--  作者:1498351234
--  发布时间:2018/11/2 10:27:00
--  获取企业微信成员的openid

老师好!我公司用的是企业微信,我通过样例能够获得企业成员的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合成到要访问的地址里面。谢谢!

 

 

 

 


--  作者:有点甜
--  发布时间: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
--  发布时间:2018/11/2 10:50:00
--  openid

问题解决了。谢谢老师!