以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=152494)
--  作者：李孝春
--  发布时间：2020/7/13 15:59:00
--  怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！

在帮助中

成员接口

和公众号人人都能关注不同，企业号只有在通讯录中的用户才能关注，只能获取通讯录中的用户信息，对于非通讯录信息没有帮助内容……


那么怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！
--  作者：有点蓝
--  发布时间：2020/7/13 16:10:00
--  
用户关注微信，会推送关注事件：http://www.foxtable.com/mobilehelp/topics/0216.htm

先过一遍微信的开发文档：https://work.weixin.qq.com/api/doc/90000/90135/92109
--  作者：李孝春
--  发布时间：2020/7/13 17:07:00
--  回复：（有点蓝）用户关注微信，会推送关注事件：http...
有点蓝老师

https://work.weixin.qq.com/api/doc/90000/90136/90515

通过agentConfig注入应用的权限    以下的代码怎么弄成狐表模式下的语句呢？

  1. wx.agentConfig({
  2.     corpid: \'\', // 必填，企业微信的corpid，必须与当前登录的企业一致
  3.     agentid: \'\', // 必填，企业微信的应用id （e.g. 1000247）
  4.     timestamp: , // 必填，生成签名的时间戳
  5.     nonceStr: \'\', // 必填，生成签名的随机串
  6.     signature: \'\',// 必填，签名，见附录-JS-SDK使用权限签名算法
  7.     jsApiList: [\'selectExternalContact\'], //必填
  8.     success: function(res) {
  9.         // 回调
  10.     },
  11.     fail: function(res) {
  12.         if(res.errMsg.indexOf(\'function not exist\') > -1){
  13.             alert(\'版本过低请升级\')
  14.         }
  15.     }
  16. });
--  作者：有点蓝
--  发布时间：2020/7/13 17:12:00
--  
jssdk的用法参考：http://www.foxtable.com/mobilehelp/topics/0248.htm
--  作者：李孝春
--  发布时间：2020/7/13 18:13:00
--  回复：（有点蓝）jssdk的用法参考：http://www.foxtab...
命令窗口中运行如下代码
Dim hc As New HttpClient("https://qyapi.weixin.qq.com/cgi-bin/externalcontact/get?access_token=_Svs8u9LZw71zozNHwiGu3cWBFiaGIkCWrqd1bUwBOYFtGJeBW4Uy71Yt3jzFCth66A2Uj4KdOb6EH6tK35jrkMXOlzPnPT0-ZeKlfkoR_2viBS0W_AYVAJ4HvIzcz2M4WKnfBrVd71TsH37t57iSANN__z_M9jFNZ_BVyjXtSDs2beEjQ3DKaquheD-XgzJZZk9DihLKIA89ovNP89wTQ&external_userid=wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w")
Dim dt As String = hc.GetData()
output.Show(dt)
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
    For Each jt As JToken In jo("external_contact")
        output.show(jt("external_userid"))
        output.show(jt("name"))
    Next
Else
    MessageBox.Show(jo.ToString)
End If


其中dt的值为
{"errcode":0,"errmsg":"ok","external_contact":{"external_userid":"wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w","name":"瓮安县百信办公设备有限公司 四哥","type":1,"avatar":"http://wx.qlogo.cn/mmhead/cGNScwnYvk7D3micjE6UyupT8ZvxJkgqsan4YKan8hROC7Ribn6QSmdw/0","gender":1},"follow_user":[{"userid":"LiXiaoChun","remark":"瓮安县百信办公设备有限公司 四哥","description":"","createtime":1561513866,"tags":[],"remark_mobiles":[]}]}

红色部分弹出如下错误提示：
想获取指定外部联系人详细信息  却提示
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2020.5.29.8
错误所在事件：
详细错误信息：
请求被中止: 连接被意外关闭。


获取客户详情


https://work.weixin.qq.com/api/doc/90000/90135/92114

企业可通过此接口，根据外部联系人的userid（如何获取?），拉取客户详情。

请求方式：GET（HTTPS）
请求地址：https://qyapi.weixin.qq.com/cgi-bin/externalcontact/get?access_token=ACCESS_TOKEN&external_userid=EXTERNAL_USERID

[此贴子已经被作者于2020/7/13 18:14:57编辑过]
--  作者：有点蓝
--  发布时间：2020/7/13 20:23:00
--  
output.Show(dt)
Dim jo As JObject = JObject.Parse(dt)
--  作者：李孝春
--  发布时间：2020/7/14 8:50:00
--  回复：（有点蓝）output.Show(dt)Dim jo As JObject =...
老师  按楼上做了检查  还是报错
Dim hc As New HttpClient("https://qyapi.weixin.qq.com/cgi-bin/externalcontact/get?access_token=ARFBN1RjASm-wik2oNGiWyRnltnKbjKfnFqLVcu9SVQN2AKbfuqMUYA1HKA-Xi35CpbLwF85_1zsDHdEfFZ-TS-FyUwBho3x-F8oxb_owC0kJMa7E9LD2IhK_GUXEl5yeHkmLRu_8LSSbWC-N4-Yhrhpx8er7gYbugunmUcqVLexIlHTkySZIMq4kRqIqGBL85w__hLOlKmhyYD-beAYRw&external_userid=wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w")
Dim dt As String = hc.GetData()
output.Show(dt)
Dim jo As JObject = JObject.Parse(dt)
If jo("errcode") = "0" Then
    For Each jt As JToken In jo("external_contact")
        \'output.show(jt("external_userid"))
        output.show(jt("name"))
    Next
Else
    MessageBox.Show(jo.ToString)
End If
注意：access_token两个小时内有效
在命令窗口运行上述代码后提示如下：

图片点击可在新窗口打开查看此主题相关图片如下：捕获.jpg
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2020/7/14 9:07:00
--  
json解析出错：http://www.foxtable.com/mobilehelp/topics/0140.htm
--  作者：李孝春
--  发布时间：2020/7/14 14:55:00
--  回复：（有点蓝）json解析出错：http://www.foxtable....
有点蓝老师  麻烦指导下哦   代码命令窗口运行得到的结果 不是很完美  麻烦老师指导下 怎么实现dt里面所有的内容都完美解析出来呢？谢谢

代码：
Dim hc As New HttpClient("https://qyapi.weixin.qq.com/cgi-bin/externalcontact/get?access_token=RL5_GndVovz1zPp3ktarEnHNEUf17i0bwJmWGmSQ337cTPh2-2UQZocx6-GWMPSxUvpKaF0GxSSaUq4UbR94C1_jbZGZQFMmAUV077F94WFZJ2JWjYHCg1M95nmB9-nycBS2AJwDHg7x1xjsSSmZlvo33XQuvAJWi_4sjW2yb6oyr4kMfiIc5WKoKZU52evPMTGMKJjpVzv9rgl0ifUh7A&external_userid=wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w")
Dim dt As String = hc.GetData()
output.Show(dt)
Dim jo As JObject = JObject.Parse(dt)
Output.Show("【外部联系人id】"  & jo("external_contact")("external_userid").Tostring)
Output.Show("【外部联系人姓名】"  & jo("external_contact")("name").Tostring)
Output.Show("【外部联系人类别】"  & jo("external_contact")("type").Tostring)
Output.Show("【外部联系人识别码】"  & jo("external_contact")("avatar").Tostring)
Output.Show("【组别】"  & jo("external_contact")("gender").Tostring)


运行结果：
{"errcode":0,"errmsg":"ok","external_contact":{"external_userid":"wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w","name":"瓮安县百信办公设备有限公司 四哥","type":1,"avatar":"http://wx.qlogo.cn/mmhead/cGNScwnYvk7D3micjE6UyupT8ZvxJkgqsan4YKan8hROC7Ribn6QSmdw/0","gender":1},"follow_user":[{"userid":"LiXiaoChun","remark":"瓮安县百信办公设备有限公司 四哥","description":"","createtime":1561513866,"tags":[],"remark_mobiles":[]}]}

【外部联系人id】wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w
【外部联系人姓名】瓮安县百信办公设备有限公司 四哥
【外部联系人类别】1
【外部联系人识别码】http://wx.qlogo.cn/mmhead/cGNScwnYvk7D3micjE6UyupT8ZvxJkgqsan4YKan8hROC7Ribn6QSmdw/0
【组别】1
--  作者：有点蓝
--  发布时间：2020/7/14 15:03:00
--  
不就这样用么。还有什么问题！