建议列名和接口返回信息的键名保持一致(包括大小写)，以方便编码。
获取用户信息
获取用户信息的接口参考：
https://developers.weixin.qq.com/doc/offiaccount/User_Management/Get_users_basic_information_UnionID.html#UinonId
首先设计结构如下图所示的表，表名为WXUsers，用于保存用户的信息：
建议列名和接口返回信息的键名保持一致(包括大小写)，以方便编码。
获取单个用户信息
获取单个用户的信息，可以参考：
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
获取全部用户信息
如果希望批量刷新所有用户的信息，可以参考以下代码。
代码首先要获取所有用户的OpenID，且每次只能获取1万个，然后获取用户详情，且每次只能获取100个用户的详情，所以存多个嵌套的循环，是本文档关于微信开发部分最复杂的一段代码。
学习以下代码的时候，请务必结合接口说明来理解。
对于部分用户来说，这段代码可能过于复杂了，如果你确实理解不了，也没有关系，直接使用即可，但如果你真的消化吸收了这段代码，估计今后的第三方接口再也难不倒你了。
具体代码：
DataTables("WXUsers").DataRows.Clear()
Dim
ul As
String = "https://api.weixin.qq.com/cgi-bin/user/get?access_token={0}&next_openid={1}"
'获取用户OpenID列表接口
Dim
il = "https://api.weixin.qq.com/cgi-bin/user/info/batchget?access_token={0}"
'批量获取用户信息接口
Dim
nms() As
String = {"openid","nickname","sex","city","country","province","headimgurl","groupid","remark","language"}
'列名
Dim
hc As
New HttpClient(CExp(ul,
Functions.Execute("GetAccessToken"),""))
Dim
ids As
New List(of
String)
'OpenId集合,每次获取10000个
Dim
ba As
New Jarray
'准备用来获取用户信息的OpenId列表,一次不能超过100个
Dim
jo As
JObject = JObject.Parse(hc.GetData)
Do
'循环获取,一次只能获取10000个OpenID
If jo("errcode")
Is Nothing
Then
Dim cnt
As Integer =
jo("count")
If cnt
= 0 Then
'如果已经获取完所有用户'
Exit Do
End If
For Each
jk As
JToken In
jo("data")("openid")
ids.Add(jk)
Next
For i
As Integer =
0 To
ids.Count -
1
'循环获取用户详情,一次不能超过100个用户
Dim uo
As New
JObject
uo("openid")
= ids(i)
ba.Add(uo)
If ba.Count
= 100 OrElse
i = ids.Count
- 1 Then
'每满100个就获取一次
Dim
bo As
New Jobject
bo("user_list")
= ba
hc =
New HttpClient(CExp(il,
Functions.Execute("GetAccessToken")))
hc.Content
= bo.ToString()
Dim ro
As JObject =
JObject.Parse(hc.GetData)
If ro("errcode")
Is Nothing
Then
Dim
ia As
JArray = ro("user_info_list")
'获取的用户信息列表
For
Each jt As
JToken In
ia
Dim
dr As
DataRow = DataTables("WXUsers").Find("openid
= '" & jt("openid").ToString()
& "'")
If
dr Is
Nothing Then
dr =
DataTables("WXUsers").AddNew()
End
If
For
Each nm
As String
In nms
dr(nm)
= jt(nm)
Next
dr("tagid_list")
= CompressJSON(jt("tagid_list"))
Next
Else
MessageBox.Show(ro.ToString)
Exit
For
End
If
ba.Clear()
'清除集合,准备获取下一批用户详情,每批只能100个.
End If
Next
ids.Clear
'清除已经获取的OpenID.,准备接收下一批OpenID
hc = New
HttpClient(CExp(ul,
Functions.Execute("GetAccessToken"),jo("next_openid").Tostring))
'获取下一批OpenID
jo = JObject.Parse(hc.GetData)
Else
MessageBox.Show(jo.ToString)
Exit Do
End
If
Loop
DataTables("WXUsers").Save()
获取全部用户信息是一项比较耗时的操作，建议实际开发的时候，用一个进度条显示获取进度。