关于弹出添加菜单弹出85005的错误 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于弹出添加菜单弹出85005的错误

共有1804人关注过本帖树形打印复制链接主题：关于弹出添加菜单弹出85005的错误

lzw001

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00

关于弹出添加菜单弹出85005的错误 发帖心情

Post By：2018/6/21 15:40:00 [显示全部帖子]

老师，这个添加菜单时弹出85005是什么问题呢？

此主题相关图片如下：qq截图20180621153952.png

lzw001

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：七尾狐帖子：1505 积分：9045 威望：0 精华：0 注册：2017/10/24 15:24:00

Post By：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"
            }]
       }]
 }