- 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=128461)
-- 发布时间：2018/12/7 15:15:00
-- 拉黑用户有错误
Dim r As Row=bjt.current
Dim url As String = "https://api.weixin.qq.com/cgi-bin/tags/members/batchblacklist?access_token={0}"
Dim hc As New HttpClient(CExp(url,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
Dim ja As New JArray
ja.Add(appid) \'要拉黑的用户OpenID
ja.Add("ojDlHuOzrMnI90y6P0m7uQ79eZQQ")
jo("openid_list") = ja
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
MessageBox.Show("已经成功拉黑")
Else
MessageBox.Show(jo.ToString)
End If
此主题相关图片如下：无标题.png
-- 发布时间：2018/12/7 16:05:00
--
appid和OpenID不匹配。它们的值不正确，或者OpenID不是这个appid的。同一个微信关注不同的公众号，得到的OpenID是不一样的
-- 发布时间：2018/12/7 16:14:00
--
删除红色代码吧，同时确保你的OpenId的值是正确的。
ja.Add(appid) \'要拉黑的用户OpenID
ja.Add("ojDlHuOzrMnI90y6P0m7uQ79eZQQ")
-- 发布时间：2018/12/7 16:21:00
--
3楼代码成功