主题：[求助]access_token获取不到怎么回事

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

我是申请的正式服务号， 但是按照说明做，就是获取不到access_token,

照着这里做了吗？你怎么写代码的？

 

http://www.foxtable.com/mobilehelp/scr/0199.htm

 

就是完全按照代码写的，修改了ID和secret，token，其他一样， 就是不行，用的也是本身自带的例子。。。不知道哪里问题。

 

贴出所写代码，贴出设置的json数据。

 

把帮助文档卡一下，用文档json数据测试

 

https://mp.weixin.qq.com/wiki?t=resource/res_main&id=mp1421141013

 

用微信测试号就可以啊， 代码完全一样。。。。

改为自己的id、密匙，执行下面代码，看弹出什么内容

终于查出来了， 没有设置白名单IP， 整个才跳出41001的错误， TOKEN检查也检查不出来。。。谢谢老师！

企业微信报errcode:41001

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