以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  通过QQ内置窗口 send 的内容 有没一个触发的事件?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=92467)
--  作者：ljh29206
--  发布时间：2016/11/4 8:35:00
--  通过QQ内置窗口 send 的内容 有没一个触发的事件?
如题

通过QQ内置窗口 send 的内容  有没一个触发的事件?

需要获取 send 的内容 及附件.
--  作者：有点蓝
--  发布时间：2016/11/4 8:51:00
--  
内置窗口发消息不会触发事件，你可以创建自定义菜单，通过菜单事件获取当前的聊天内容
--  作者：ljh29206
--  发布时间：2016/11/4 11:03:00
--  
例如我 现在 写一条信息  
给黄五
未发送出去

然后点 内置 菜单进行 获取?

教程 没有   获取当前写入 内容的  代码 
求指导

[此贴子已经被作者于2016/11/4 11:03:00编辑过]
--  作者：有点色
--  发布时间：2016/11/4 11:21:00
--  

 呃，自己动态绑定事件获取吧，做个计划任务，参考代码

 

Dim frm = windows.forms.form.activeform
If frm IsNot Nothing Then
    If frm.name = "frmTalker" Then
        For Each c As object In frm.controls("SplitContainer1").panel2.controls("C1DockingTab2").controls("C1DockingTabPage3").controls("SplitContainer2").panel2.controls
            output.show(c.name & " " & c.Gettype.name)
        Next
    End If
End If
--  作者：有点蓝
--  发布时间：2016/11/4 11:36:00
--  
回3楼，消息都没发出去，获取啥？

还是用代码发送吧，聊天窗口开不开都可以接收消息
--  作者：ljh29206
--  发布时间：2016/11/4 11:46:00
--  

CustomMenuClick

单击聊天窗口中的自定义菜单项目后触发。

e参数：

MenuText: 所单击菜单项目的标题
BuddyName:   字符型，返回内置聊天窗口当前选定用户名
Content:     字符型，返回内置聊天窗口当前选定的消息内容
ContentType: 整数型，返回内置聊天窗口单签选定的消息类型
Sender:      字符型，返回内置聊天窗口当前选定消息的发送者
SendTime:    日期时间星，返回内置聊天窗口当前选定消息的发送时间


帮助中 这样介绍


但是  


Select e.MenuText
    Case "自定义项目之一"
        
MessageBox.show(e.content)   \'这个代码什么都没有 出现\'
    Case "自定义项目之二"
        \'要执行的代码
    Case "自定义项目之三"
        \'要执行的代码
End Select


点击 自定义项目之一  没反应   , 已点击选定回话内容
[此贴子已经被作者于2016/11/4 11:49:34编辑过]
--  作者：有点蓝
--  发布时间：2016/11/4 11:56:00
--  
我用示例测试没有问题