易语言取电脑登录过的QQ,历史登录QQ

.版本 2
.支持库 shell

.程序集 程序集1
.程序集变量 数字, 文本型, , "0"

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 s, 文本型, , "0"
.局部变量 i, 整数型

QQ_取历史QQ (s)
.计次循环首 (取数组成员数 (s), i)
    信息框 (s [i], 0, , )
.计次循环尾 ()
返回 (0)  ' 可以根据您的需要返回任意数值

.子程序 QQ_取历史QQ, , , 取已登陆过的QQ
.参数 接收QQ数组, 文本型, 参考 数组
.局部变量 文件, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 j, 整数型
.局部变量 x, 整数型

文件_枚举 (取特定目录 (8) ＋ “Tencent\QQ\Misc”, “*.*”, 文件, 假)
' 调试输出 (文件)
数字 ＝ 分割文本 (#常量_数字, #换行符, )
.计次循环首 (取数组成员数 (文件), i)
    .计次循环首 (取数组成员数 (数字), j)
        .判断开始 (取文本左边 (文件 [i], 1) ＝ 数字 [j])
            加入成员 (接收QQ数组, 文件 [i])
            跳出循环 ()
        .默认

        .判断结束

    .计次循环尾 ()
.计次循环尾 ()

@DarkWod