易语言获取本机登陆QQ源码

易语言获取本机登陆QQ源码

.版本 2
.支持库 spec

.程序集 启动程序

.子程序 _启动子程序, 整数型
.局部变量 登录QQ数量, 整数型
.局部变量 登录QQ号码, 文本型, , "0"
.局部变量 i, 整数型

登录QQ数量 ＝ 获取本机登陆QQ (登录QQ号码)
.计次循环首 (登录QQ数量, i)
    调试输出 (“第” ＋ 到文本 (i) ＋ “个登录的QQ号码：” ＋ 登录QQ号码 [i])
.计次循环尾 ()
调试输出 (“共登录” ＋ 到文本 (登录QQ数量) ＋ “个QQ号码”)
返回 (0)

.子程序 获取本机登陆QQ, 整数型, , 返回的QQ号数量
.参数 QQ号码, 文本型, 参考 数组, 返回的QQ号数组
.局部变量 局_窗口信息, 精易_窗口信息, , "0"
.局部变量 局_QQ, 文本型
.局部变量 局_i, 整数型

清除数组 (QQ号码)
.计次循环首 (窗口_枚举 (局_窗口信息), 局_i)
    .如果真 (到大写 (局_窗口信息 [局_i].窗口类名) ＝ “5B3838F5-0C81-46D9-A4C0-6EA28CA3E942”)
        加入成员 (QQ号码, 取文本右边 (局_窗口信息 [局_i].窗口标题, 取文本长度 (局_窗口信息 [局_i].窗口标题) － 倒找文本 (局_窗口信息 [局_i].窗口标题, “_”, , 假)))
    .如果真结束

.计次循环尾 ()
数组_反转 (QQ号码)
返回 (取数组成员数 (QQ号码))