菜单的删除和修改
删除所有菜单
请注意,在个性化菜单时,调用此接口会删除默认菜单及全部个性化菜单。
删除菜单的接口说明,请参考:
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判断得出这个结论。
微信服务器为用户匹配个性话菜单的时候,在匹配条件完全一致的情况下,优先匹配最新发布的菜单。