Foxtable(狐表) → 用户栏目 → 专家坐堂 → 怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！

共有5182人关注过本帖树形打印复制链接主题：怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！

李孝春

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！ 发帖心情

Post By：2020/7/13 15:59:00 [显示全部帖子]

在帮助中

成员接口

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

那么怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！

李孝春

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）用户关注微信，会推送关注事件：http... 发帖心情

Post By：2020/7/13 17:07:00 [显示全部帖子]

有点蓝老师

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

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

wx.agentConfig({
    corpid: '', // 必填，企业微信的corpid，必须与当前登录的企业一致
    agentid: '', // 必填，企业微信的应用id （e.g. 1000247）
    timestamp: , // 必填，生成签名的时间戳
    nonceStr: '', // 必填，生成签名的随机串
    signature: '',// 必填，签名，见附录-JS-SDK使用权限签名算法
    jsApiList: ['selectExternalContact'], //必填
    success: function(res) {
        // 回调
    },
    fail: function(res) {
        if(res.errMsg.indexOf('function not exist') > -1){
            alert('版本过低请升级')
        }
    }
});

李孝春

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）jssdk的用法参考：http://www.foxtab... 发帖心情

Post By：2020/7/13 18:13:00 [显示全部帖子]

命令窗口中运行如下代码

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"))

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编辑过]

李孝春

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）output.Show(dt)Dim jo As JObject =... 发帖心情

Post By：2020/7/14 8:50:00 [显示全部帖子]

老师按楼上做了检查还是报错

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"))

Else

MessageBox.Show(jo.ToString)

End If

注意：access_token两个小时内有效

在命令窗口运行上述代码后提示如下：

此主题相关图片如下：捕获.jpg

李孝春

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）json解析出错：http://www.foxtable.... 发帖心情

Post By：2020/7/14 14:55:00 [显示全部帖子]

有点蓝老师麻烦指导下哦代码命令窗口运行得到的结果不是很完美麻烦老师指导下怎么实现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)

运行结果：

【外部联系人id】wmNgc2CwAA5zTob2HA_HS8IWSqqhU1-w

【外部联系人姓名】瓮安县百信办公设备有限公司四哥

【外部联系人类别】1

【外部联系人识别码】http://wx.qlogo.cn/mmhead/cGNScwnYvk7D3micjE6UyupT8ZvxJkgqsan4YKan8hROC7Ribn6QSmdw/0

【组别】1

李孝春

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（有点蓝）不就这样用么。还有什么问题！ 发帖心情

Post By：2020/7/14 16:02:00 [显示全部帖子]

想看看老师有没有更高效的解析方法

能够完整解析这个dt所有的内容

下一主题 >> << 上一主题

主题：怎么获取通过普通个人微信关注企业微信的用户信息呢？并且给个人微信用户推送信息！

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

获取客户详情

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