菜单的删除和修改

删除所有菜单

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

删除菜单的接口说明,请参考:

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判断得出这个结论。

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


本页地址:http://www.foxtable.com/mobilehelp/topics/0202.htm