以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助] 企业微信打开网址  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169201)
--  作者：zcgmxf
--  发布时间：2021/6/7 8:57:00
--  [求助] 企业微信打开网址
老师，本人没有网页基础。在企业微信菜单打开网址和foxtable打开网址不一样。在企业微信 如果 点击 rselfmenu_1_0 我想 打开“http://foxtable.com”这个代码该怎么写？谢谢！
--  作者：有点蓝
--  发布时间：2021/6/7 9:08:00
--  
企业微信菜单菜单是怎么创建的？

使用view类型菜单，直接在url里输入http://foxtable.com即可：https://work.weixin.qq.com/api/doc/90000/90135/90231
--  作者：zcgmxf
--  发布时间：2021/6/7 9:12:00
--  
老师，这个我知道，就是click 单击事件该怎么写？谢谢！
--  作者：有点蓝
--  发布时间：2021/6/7 9:23:00
--  
click类型菜单没有办法做跳转，只能使用view类型
--  作者：zcgmxf
--  发布时间：2021/6/7 9:47:00
--  

老师，下面的代码在自定义函数中 return 应该返回哪个值？谢谢！

 

            If DataTables("Message").Find("MsgID = \'" & xo("MsgId").ToString() & "\'") IsNot  Nothing Then \'如果有相同MsgID的信息直接返回
                Return
            End If
--  作者：有点蓝
--  发布时间：2021/6/7 9:53:00
--  
神仙才知道。没有前因后果，这段代码要干嘛，在什么地方调用，需要返回什么..........
--  作者：zcgmxf
--  发布时间：2021/6/7 10:22:00
--  

老师，这是企业微信接收信息的代码。在自定义函数中返回的值

    Dim xo As Foxtable.XObject = Foxtable.XObject.Parse(msg) \'接受用户消息
    Select Case xo("MsgType")
        Case "text","image","voice","video","shortvideo"
            If DataTables("Message").Find("MsgID = \'" & xo("MsgId").ToString() & "\'") IsNot  Nothing Then \'如果有相同MsgID的信息直接返回
                Return 
            End If

[此贴子已经被作者于2021/6/7 10:22:23编辑过]
--  作者：有点蓝
--  发布时间：2021/6/7 10:43:00
--  
随便返回什么东西，比如空字符串

Return “”
--  作者：zcgmxf
--  发布时间：2021/6/7 16:06:00
--  
老师，我通过企业微信获取了企业成员的openID ，是否可以给成员个人微信发送信息？谢谢！
--  作者：有点蓝
--  发布时间：2021/6/7 16:07:00
--  
参考：http://www.foxtable.com/mobilehelp/topics/0166.htm