- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]access_token获取不到怎么回事 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=119315)
-- 发布时间：2018/5/22 17:02:00
-- [求助]access_token获取不到怎么回事
此主题相关图片如下：2.jpg
我是申请的正式服务号， 但是按照说明做，就是获取不到access_token,
另消息啥的设置都可以， 就是自定义菜单做不了
此主题相关图片如下：1.jpg
[此贴子已经被作者于2018/5/22 17:04:17编辑过]
-- 发布时间：2018/5/22 17:15:00
--
照着这里做了吗？你怎么写代码的？
http://www.foxtable.com/mobilehelp/scr/0199.htm
-- 发布时间：2018/5/22 17:22:00
--
就是完全按照代码写的，修改了ID和secret，token，其他一样， 就是不行，用的也是本身自带的例子。。。不知道哪里问题。
[此贴子已经被作者于2018/5/22 17:22:34编辑过]
-- 发布时间：2018/5/22 18:06:00
--
以下是引用lin1221在2018/5/22 17:22:00的发言：
就是完全按照代码写的，修改了ID和secret，token，其他一样， 就是不行，用的也是本身自带的例子。。。不知道哪里问题。
就是完全按照代码写的，修改了ID和secret，token，其他一样， 就是不行，用的也是本身自带的例子。。。不知道哪里问题。
[此贴子已经被作者于2018/5/22 17:22:34编辑过]
贴出所写代码，贴出设置的json数据。
-- 发布时间：2018/5/22 18:14:00
--
把帮助文档卡一下，用文档json数据测试
https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1421141013
-- 发布时间：2018/5/22 20:03:00
--
用微信测试号就可以啊， 代码完全一样。。。。
-- 发布时间：2018/5/22 20:30:00
--
改为自己的id、密匙，执行下面代码，看弹出什么内容
Dim AppId As String= "wx8acdb7df5beb68fd" \'开发者ID
Dim AppSecret As String = "a5a3b06a790d4200a151e6b13c3dc263" \'开发者密匙
Dim url As String = "https://api.weixin.qq.com/cgi-bin/token?grant_type=client_credential&appid={0}&secret={1}"
Dim hc As New HttpClient(CExp(url,AppId,AppSecret))
Dim ret As String = hc.GetData()
msgbox(ret)
-- 发布时间：2018/5/23 10:37:00
--
终于查出来了， 没有设置白名单IP， 整个才跳出41001的错误， TOKEN检查也检查不出来。。。谢谢老师！
-- 发布时间：2019/2/19 13:54:00
--
企业微信报errcode:41001
CorpID 正确，Secret试过用自定义应用的和通信录的，都报errcode:41001
消息接口-接受用户消息正常
一筹莫展。
-- 发布时间：2019/2/19 13:56:00
--
Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/user/list?access_token={0}&department_id=1&fetch_child=1&status=0"
Dim hc As New HttpClient(CExp(ur,Functions.Execute("GetQYAccessToken")))
Dim jo As JObject = JObject.Parse(hc.GetData())
If jo("errcode") = "0" Then
DataTables("Users").DataRows.Clear
Dim nms() As String = {"userid","name","position","mobile","gender","email","weixinid","avatar","status"} \'""
For Each jt As JToken In jo("userlist")
Dim dr As DataRow = DataTables("Users").AddNew()
For Each nm As String In nms
dr(nm) = jt(nm)
Next
If dr("department") IsNot Nothing
dr("department") = CompressJson(jt("department")).Trim("[","]")
End If
If jt("extattr") IsNot Nothing Then
dr("extattr") = ComPressJson(jt("extattr")("attrs")).Trim("[","]")
End If
Next
DataTables("Users").Save()
Else
MessageBox.Show(jo.ToString)
End If
测试获取成员详情列表报错