以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 企业微信打开网址  (http://foxtable.net/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