Foxtable(狐表)用户栏目专家坐堂 → [求助]微信个性化菜单出现40054错误?


  共有2472人关注过本帖树形打印复制链接

主题:[求助]微信个性化菜单出现40054错误?

帅哥哟,离线,有人找我吗?
新福星
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
[求助]微信个性化菜单出现40054错误?  发帖心情 Post By:2020/2/11 14:02:00 [只看该作者]

按照教材中微信菜单接口->用数据表管理多个菜单来创建个性化菜单,程序片断如下.红色语句那一行拼接的问题。

出现了40054错误. 查了一下好象说的是Ur的格式不对.可是反复的验证,甚至用微信平台说明比对,都没有发现问题.

验证Token没有错误。

怎么查找?谢谢

 

......

 

MO("button") = FButtons
    If MenuRow.IsNull("matchrule") = False  '如果设置了过滤条件,那就是个性化菜单了
        Dim FO As New JObject
        Dim fts() As String = MenuRow("matchrule").Split("&")
        For Each ft As String In fts
            Dim  kv() As  String = ft.Split("=")
            FO(kv(0)) = kv(1)
        Next
        MO("matchrule") = FO
        ur =  "https://api.weixin.qq.com/cgi-bin/menu/addconditional?access_token={0}"
      Else
        ur =  "https://api.weixin.qq.com/cgi-bin/menu/create?access_token={0}"
    End If
    Dim urx As String=CExp(ur,Functions.Execute("GetAccessToken"))
    hc = New HttpClient(urx)
    hc.Content = MO.ToString()
    RO = JObject.Parse(hc.GetData)
    If  RO("menuid") IsNot Nothing Then
        menuRow("MenuID") = RO("menuid")
    ElseIf RO("errcode") <> "0" Then
        Dim su As Row=Tables("操作记录").AddNew
        su("数据来源")="AddMune1"
        su("时间戳")=Date.now
        su("信息2")=urx
        su.save
       
        MessageBox.Show("X00101  " & RO("errcode").Tostring)
    End  If

......


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/11 14:12:00 [只看该作者]

不是接口地址有问题,而是上传的菜单里面的view类型的按钮绑定的url有问题

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110744 积分:563646 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2020/2/11 14:12:00 [只看该作者]

https://blog.csdn.net/qq_35893120/article/details/84999014

 回到顶部
帅哥哟,离线,有人找我吗?
新福星
  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1964 积分:15604 威望:0 精华:0 注册:2011/7/16 20:59:00
  发帖心情 Post By:2020/2/11 17:09:00 [只看该作者]

料事如神!按你说的进行检查调整错误后,解决了!非常感谢


 回到顶部