菜单的删除和修改

删除所有菜单

请注意，在个性化菜单时，调用此接口会删除默认菜单及全部个性化菜单。

删除菜单的接口说明，请参考：

https://developers.weixin.qq.com/doc/offiaccount/Custom_Menus/Deleting_Custom-Defined_Menu.html

代码很简单：

Dim ur As String = "https://api.weixin.qq.com/cgi-bin/menu/delete?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.Show("菜单删除成功")
Else
    MessageBox.Show(jo("errcode"))
End If

删除个性化菜单

删除个性化菜单的接口说明，请参考：

https://developers.weixin.qq.com/doc/offiaccount/Custom_Menus/Personalized_menu_interface.html#1

代码参考：

Dim ur As String = "https://api.weixin.qq.com/cgi-bin/menu/delconditional?access_token={0}"
Dim hc As new HttpClient(Cexp(ur,Functions.Execute("GetAccessToken")))
Dim jo As New JObject
jo("menuid") = 407808988 '要删除的个性化菜单ID
hc.Content = jo.ToString()
jo = JObject.Parse(hc.GetData)
If jo("errcode") = "0" Then
    MessageBox.Show("菜单删除成功")
Else
    MessageBox.Show(jo("errcode"))
End If

关于修改菜单

修改默认菜单很简单，重新发布一次即可。

个性化菜单是没有办法修改的，即使重新发布一个匹配条件完全一样的个性化菜单，也不会覆盖原来的菜单，而是生成一个新的菜单，你可以从返回的MenuID判断得出这个结论。

微信服务器为用户匹配个性话菜单的时候，在匹配条件完全一致的情况下，优先匹配最新发布的菜单。