撤回应用消息

可以撤回24小时内通过发送应用消息接口推送的消息，仅可撤回企业微信端的数据，微信插件端的数据不支持撤回。

企业微信撤回引用消息的代码参考：

Dim ur As String = "https://qyapi.weixin.qq.com/cgi-bin/message/recall?access_token={0}"

Dim atk As String = Functions.Execute("GetQYAccessToken") 'AccessToken

Dim hc As new HttpClient(CExp(ur, atk))

Dim jo As New JObject

jo("msgid") = "vcT8gGc-7dFb4bxT35ONjBDz901sLlXPZw1DAMC_Gc26qRpK-AK5sTJkkb0128t"

hc.Content = jo.ToString

jo = JObject.Parse(hc.GetData)

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

    MessageBox.Show("消息已经被撤回")

Else

    MessageBox.Show(jo.ToString)

End If