.版本 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号码))