Foxtable(狐表)用户栏目专家坐堂 → [求助] 企业微信打开网址


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

主题:[求助] 企业微信打开网址

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


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
[求助] 企业微信打开网址  发帖心情 Post By:2021/6/7 8:57:00 [显示全部帖子]

老师,本人没有网页基础。在企业微信菜单打开网址和foxtable打开网址不一样。在企业微信 如果 点击 rselfmenu_1_0 我想 打开“http://foxtable.com”这个代码该怎么写?谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2021/6/7 9:12:00 [显示全部帖子]

老师,这个我知道,就是click 单击事件该怎么写?谢谢!

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2021/6/7 9:47:00 [显示全部帖子]

老师,下面的代码在自定义函数中 return 应该返回哪个值?谢谢!

 

            If DataTables("Message").Find("MsgID = '" & xo("MsgId").ToString() & "'") IsNot  Nothing Then '如果有相同MsgID的信息直接返回
                Return
            End If


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


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
zcgmxf
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1657 积分:14768 威望:0 精华:0 注册:2014/6/6 8:42:00
  发帖心情 Post By:2021/6/7 16:06:00 [显示全部帖子]

老师,我通过企业微信获取了企业成员的openID ,是否可以给成员个人微信发送信息?谢谢!

 回到顶部