通过手机号获取企业微信通讯录信息 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过手机号获取企业微信通讯录信息

共有3227人关注过本帖树形打印复制链接主题：通过手机号获取企业微信通讯录信息

jiushian

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

等级：婴狐帖子：9 积分：197 威望：0 精华：0 注册：2021/11/24 17:36:00

通过手机号获取企业微信通讯录信息 发帖心情

Post By：2021/12/9 9:21:00 [显示全部帖子]

我想通过手机号获取企业微信通讯录信息，不通过userid怎么实现？下面代码报错。

'Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/get?access_token={0}&userid={1}"

'ul= CExp(ul,Functions.Execute("GetQYAccessToken"),UserId)

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/get?access_token={0}&mobile={1}"

ul= CExp(ul,Functions.Execute("GetQYAccessToken"),mobile)

jiushian

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

等级：婴狐帖子：9 积分：197 威望：0 精华：0 注册：2021/11/24 17:36:00

Post By：2021/12/9 16:09:00 [显示全部帖子]

我自己加上的，理解错了。下面代码这样写可以获取到mobile手机号吗？想通过手机号验证。

If e.GetValues.ContainsKey("code") Then '如果通过授权链接跳转而来,就根据传递过来的code参数调用接口,获取用户的UserId

Dim ul As String = "https://qyapi.weixin.qq.com/cgi-bin/user/getuserinfo?access_token={0}&code={1}"

ul = CExp(ul,Functions.Execute("GetQYAccessToken"),e.GetValues("code"))

Dim hc As new HttpClient(ul)

Dim jo As JObject = JObject.Parse(hc.GetData)

'If jo("UserId") IsNot Nothing Then

If jo("mobile") IsNot Nothing Then

'UserId = jo("UserId")

mobile = jo("mobile")

End If

Else

'UserId = e.Cookies("uid")

mobile = e.Cookies("mobile")

End If

主题：通过手机号获取企业微信通讯录信息