QQ收发消息源码更新支持最新版

新版本QQ取消了聊天窗口界面消息列表的节点挂载，因为IAccessible接口本身就是程序编写方自行提供的接口，而非程序本身就存在，界面节点貌似随机挂载了。

消息列表节点仍存在，只是不能经过遍历得到（因为不在属性树上面），只能通过Point屏幕点的方式得到，那这样的话还不如截图识别，故原思路在最新版QQ上已经无效。

现有两种新方法，其中一种已在源码中体现，至于是哪两种就不指出了。

' 程序思路：主要用于无人看管环境，实时监测类似服务器上的程序运行情况，理论上激活句柄即可发送和读取消息
' 应该会有其他情况发生，比如消息过多后需要进行其他操作（如清屏）才能保证稳定性
Params.QQ ＝ “*********”
Params.WindowName ＝ “阴天快乐” ' 有备注则为备注名，无备注为QQ昵称
Params.SelfName ＝ “Halfason” ' 自己昵称，用作过滤消息发起方
Params.Select ＝ 2 ' 新版本QQ可后台不激活窗口的形式接收发送消息（因为最小化后，并不能通过命令将其置顶，原因不明）
Params.FuncAddr ＝ 到整数 (&消息回调处理)

调试输出 (QQ消息.初始化 (Params)) ' 若只需要发消息，则子程序地址传0即可
' QQ消息.发送QQ消息 (“消息测试1”)
' QQ消息.发送QQ消息 (, #测试图片)
' QQ消息.发送QQ消息_剪辑板 (“消息测试2”, , 23, #测试图片)
' QQ消息.发送QQ消息_剪辑板 (“消息测试3”, 取运行目录 () ＋ #TempImgFile, 28)
QQ消息.接收QQ消息 ()

.子程序 消息回调处理, 文本型
.参数 Msg, 文本型
.局部变量 Text, 文本型, , , 易语言会自动进行参数初始化，无论局部变量还是静态变量

.判断开始 (Msg ＝ “#TIME”) ' 分析命令，回传处理后的文本
Text ＝ 到文本 (取现行时间 ())
.判断 (Msg ＝ “#END”) ' 分析命令，直接进行操作
结束 ()
.判断 (Msg ＝ “#PPP”) ' 分析命令，直接进行操作，并返回空文本，具体适用自测
Text ＝ “其他操作程序执行” ＋ 选择 (其他操作程序 (), “成功”, “失败”)
.默认
Text ＝ “命令无效”
.判断结束
返回 (Text)