QQ简单群发例程源码

部分代码：

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕



.子程序 _按钮_发送_被单击



.子程序 _按钮_添加_被单击

载入 (窗口_添加QQ, , 真)

.子程序 子_获取QQ
.参数 参_返回的QQ, 文本型, 参考 数组
.局部变量 局_获取, 整数型, , "0"
.局部变量 局_次数, 整数型

清除数组 (参_返回的QQ)
窗口_模糊遍历窗口 (, , “qqexchangewnd_shortcut_prefix_”, 局_获取)
.计次循环首 (取数组成员数 (局_获取), 局_次数)
    加入成员 (参_返回的QQ, 文本_取右边 (窗口_取标题 (局_获取 [局_次数]), “qqexchangewnd_shortcut_prefix_”, , ))
    调试输出 (参_返回的QQ)
.计次循环尾 ()

.子程序 子_关闭多余窗口
.局部变量 局_窗口列表, 整数型, , "0"
.局部变量 局_次数, 整数型

窗口_模糊遍历窗口 (, “TXGuiFoundation”, “添加”, 局_窗口列表)
.计次循环首 (取数组成员数 (局_窗口列表), 局_次数)
    窗口_关闭 (局_窗口列表 [局_次数])
.计次循环尾 ()

.子程序 子_取窗口句柄, 整数型, , 获得QQ添加窗口句柄
.局部变量 局_窗口列表, 整数型, , "0"

.判断循环首 (取数组成员数 (局_窗口列表) ＝ 0)
    窗口_模糊遍历窗口 (, “TXGuiFoundation”, “添加”, 局_窗口列表)
.判断循环尾 ()
返回 (局_窗口列表 [1])

.子程序 _按钮_群发_被单击

载入 (窗口_群发, , 真)

@pengyibei