部分代码:
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.子程序 _按钮_发送_被单击
.子程序 _按钮_添加_被单击
载入 (窗口_添加QQ, , 真)
.子程序 子_获取QQ
.参数 参_返回的QQ, 文本型, 参考 数组
.局部变量 局_获取, 整数型, , "0"
.局部变量 局_次数, 整数型
清除数组 (参_返回的QQ)
窗口_模糊遍历窗口 (, , “qqexchangewnd_shortcut_prefix_”, 局_获取)
.计次循环首 (取数组成员数 (局_获取), 局_次数)
加入成员 (参_返回的QQ, 文本_取右边 (窗口_取标题 (局_获取 [局_次数]), “qqexchangewnd_shortcut_prefix_”, , ))
调试输出 (参_返回的QQ)
.计次循环尾 ()
.子程序 子_关闭多余窗口
.局部变量 局_窗口列表, 整数型, , "0"
.局部变量 局_次数, 整数型
窗口_模糊遍历窗口 (, “TXGuiFoundation”, “添加”, 局_窗口列表)
.计次循环首 (取数组成员数 (局_窗口列表), 局_次数)
窗口_关闭 (局_窗口列表 [局_次数])
.计次循环尾 ()
.子程序 子_取窗口句柄, 整数型, , 获得QQ添加窗口句柄
.局部变量 局_窗口列表, 整数型, , "0"
.判断循环首 (取数组成员数 (局_窗口列表) = 0)
窗口_模糊遍历窗口 (, “TXGuiFoundation”, “添加”, 局_窗口列表)
.判断循环尾 ()
返回 (局_窗口列表 [1])
.子程序 _按钮_群发_被单击
载入 (窗口_群发, , 真)