Foxtable(狐表) → 用户栏目 → 专家坐堂 → 拉黑用户有错误


  共有1461人关注过本帖树形打印复制链接

主题：拉黑用户有错误
帅哥哟，离线，有人找我吗？
lihe60
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		拉黑用户有错误  发帖心情 Post By：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
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106097 积分：539590 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/12/7 16:05:00 [只看该作者]

appid和OpenID不匹配。它们的值不正确，或者OpenID不是这个appid的。同一个微信关注不同的公众号，得到的OpenID是不一样的

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/7 16:14:00 [只看该作者]

删除红色代码吧，同时确保你的OpenId的值是正确的。

 

ja.Add(appid) '要拉黑的用户OpenID
ja.Add("ojDlHuOzrMnI90y6P0m7uQ79eZQQ")
 回到顶部
帅哥哟，离线，有人找我吗？
lihe60
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：6806 积分：43043 威望：0 精华：0 注册：2009/3/2 14:07:00 		  发帖心情 Post By：2018/12/7 16:21:00 [只看该作者]

3楼代码成功

 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 4 次数据查询