- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 获取单个用户信息 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=170848)
-- 发布时间：2021/8/9 15:10:00
-- 获取单个用户信息
此主题相关图片如下：qq浏览器截图20210809150934.png
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
-- 发布时间：2021/8/9 15:13:00
--
无效的openid："ojDlHuAjZ8Z3eSm0gW1g0Lxbz54s"
用户关注不同公众号的openid都不一样的。检查是否这个公众号的openid
-- 发布时间：2021/8/9 15:23:00
--
自已输吗，不可以他自已关注就获取吗
-- 发布时间：2021/8/9 15:26:00
--
openid不是公开的，要自己写代码调用接口获取
-- 发布时间：2021/8/9 15:28:00
--
帮助里没有这个代码吗
-- 发布时间：2021/8/9 15:35:00
--
说明您连帮助都没有怎么看过
http://www.foxtable.com/mobilehelp/topics/0184.htm
-- 发布时间：2021/8/9 15:47:00
--
看不懂，你可以帮我弄一下不
-- 发布时间：2021/8/9 15:58:00
--
什么地方看不懂？看不懂多看几遍。
首先把微信的开发文档从头看几遍，在把foxtable的微信开发从头看几遍
-- 发布时间：2021/8/9 16:44:00
--
这个可以关注就获取，取消就删除吗
-- 发布时间：2021/8/9 16:45:00
--
http://www.foxtable.com/mobilehelp/topics/0180.htm