41001问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

代码一出现 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

主题：41001问题