以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 公众号 接收菜单事件  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154112)
--  作者：zcgmxf
--  发布时间：2020/9/3 21:52:00
--  [求助] 公众号 接收菜单事件
老师，公众号接收菜单事件代码不知道如何着手，请指导。谢谢！
      Case "CLICK" \'普通单击事件
          Filesys.WriteAllText(logFile , OpenId & "于" & CreateTime & "单击按钮:" & key & vbcrlf, True)
            如果单击的是按钮的 key =  rselfmenu_0_0 
            dim dr as datarow = datatable(表A).find("第一列 = ”你好“")
            if dr isnot nothing then
                 则主动发送消息内容  dr("第二列")
            end if
这个代码不知道如何入手
--  作者：有点蓝
--  发布时间：2020/9/3 22:04:00
--  
如果单击的是按钮的 key =  rselfmenu_0_0 ：https://developers.weixin.qq.com/doc/offiaccount/Custom_Menus/Custom_Menu_Push_Events.html
if xo("EventKey") = “ rselfmenu_0_0 ”