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