- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 关于弹出添加菜单弹出85005的错误 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120666)
-- 发布时间：2018/6/21 15:40:00
-- 关于弹出添加菜单弹出85005的错误
老师，这个添加菜单时弹出85005是什么问题呢？
此主题相关图片如下：qq截图20180621153952.png
-- 发布时间：2018/6/21 15:58:00
--
贴出你所写代码。
-- 发布时间：2018/6/21 16:40:00
--
按钮代码：
Dim URL As String = "https://api.weixin.qq.com/cgi-bin/menu/addconditional?access_token={0}"
Dim hc As New HttpClient(CExp(URL,Functions.Execute("GetAccessToken")))hc.Content = e.Form.Controls("TextBox1").Text
Dim jo As JObject = JObject.Parse(hc.GetData)
If jo("errcode") Is Nothing Then
MessageBox.Show("菜单设置成功, menuid为: " & jo("menuid").ToString())
Else
MessageBox.Show(jo("errcode"))
End If
文本代码：
{
"button":[
{
"type":"click",
"name":"今日歌曲",
"key":"V1001_TODAY_MUSIC"
},
{
"name":"菜单",
"sub_button":[
{
"type":"view",
"name":"搜索",
"url":"http://www.soso.com/"
},
{
"type":"miniprogram",
"name":"wxa",
"url":"http://mp.weixin.qq.com",
"appid":"wx286b93c14bbf93aa",
"pagepath":"pages/lunar/index"
},
{
"type":"click",
"name":"赞一下我们",
"key":"V1001_GOOD"
}]
}]
}-- 发布时间：2018/6/21 16:52:00
--
这段删除，后者红色改成自己的appid
{
"type":"miniprogram",
"name":"wxa",
"url":"http://mp.weixin.qq.com",
"appid":"wx286b93c14bbf93aa",
"pagepath":"pages/lunar/index"
},
-- 发布时间：2018/6/21 17:06:00
--
删除可以行，改成自己的appid还是显示85005，是不是因为表格还是空的呢，还没有一行
-- 发布时间：2018/6/21 17:11:00
--
URL改成自己的了
-- 发布时间：2018/6/21 17:31:00
--
| type | 是 | 菜单的响应动作类型，view表示网页类型，click表示点击类型，miniprogram表示小程序类型 |
你公众号有绑定什么小程序吗？如果没有的话，不能用 "type":"miniprogram"
-- 发布时间：2018/6/21 17:33:00
--
没有绑定
-- 发布时间：2018/6/21 17:34:00
--
好的，谢谢