以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  41001问题  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=138453)
--  作者：xluoping
--  发布时间：2019/7/31 14:55:00
--  41001问题
代码一 出现 41001 错误，但代码二确没有问题，这是什么原因，请帮助：
{
  "errcode": 41001,
  "errmsg": "access_token missing hint: [ECkEWA09453401!]"
}

1、代码一
Dim url As String = "https://api.weixin.qq.com/cgi-bin/user/info?access_token={0}&openid={1}&lang=zh_CN"
url = CExp(url, Functions.Execute("GetAccessToken"), "ojDlHuAjZ8Z3eSm0gW1g0Lxbz54s")
Dim hc As New HttpClient(url)
Dim jo As JObject = Jobject.Parse(hc.GetDaTa)
If jo("errcode") Is  Nothing Then
    Dim dr As DataRow = DataTables("WXUsers").AddNew()
    Dim nms() As String = {"openid","nickname","sex","city","country","province","headimgurl","groupid","remark","language"}
    For Each nm As String In nms
        dr(nm) = jo(nm)
    Next
    If jo("tagid_list") IsNot Nothing Then
        dr("tagid_list") = CompressJson(jo("tagid_list")).Trim("[","]")
    End If
    dr.Save()
Else
    MessageBox.Show(jo.ToString)
End If

2、代码二
                    Dim url As String = "https://api.weixin.qq.com/cgi-bin/user/info?access_token={0}&openid={1}&lang=zh_CN"
                    url = CExp(url,Functions.Execute("GetAccessToken"), xo("FromUserName"))
                    Dim hc As New HttpClient(url)
                    Dim jo As JObject = Jobject.Parse(hc.GetDaTa)
                    If jo("errcode") IsNot Nothing Then
                        MessageBox.Show(jo.ToString)
                    Else
                    end if
--  作者：有点蓝
--  发布时间：2019/7/31 15:15:00
--  
无法获取access_token，或者access_token不正确

检查GetAccessToken函数的appid和appscrect是否正确
--  作者：xluoping
--  发布时间：2019/8/1 0:35:00
--  
白名单没有设置好，加入ip现在好了