此主题相关图片如下：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
加好友 
发短信
Post By：2021/8/9 15:10:00 [只看该作者]
