删除群发消息

群发之后，随时可以通过该接口删除群发。

注意：

• 只有已经发送成功的消息才能删除。
• 删除消息是将消息的图文详情页失效，已经收到的用户，还是能在其本地看到消息卡片。
• 删除群发消息只能删除图文消息和视频消息，其他类型的消息一经发送，无法删除。
• 如果多次群发发送的是一个图文消息，那么删除其中一次群发，就会删除掉这个图文消息也，导致所有群发都失效

参考代码：

Dim url As String = "https://api.weixin.qq.com/cgi-bin/message/mass/delete?access_token={0}"

Dim hc As New HttpClient(CExp(url, Functions.Execute("GetAccessToken")))

Dim jo As New JObject()

jo("msg_id") = 30124 '之前发送出去返回的消息ID

jo("article_idx") = 1 '要删除的文章在图文消息中的位置,第一篇编号为1,该字段不填或填0会删除全部文章

hc.Content = jo.ToString()

jo = JObject.Parse(hc.GetData)

If jo("errcode") = "0" Then

    MessageBox.Show("删除群发消息成功")

Else

    MessageBox.Show(jo("errmsg"))

End If