批量查询QQ是否在线与获取昵称源码

批量查询QQ是否在线与获取昵称源码附一键多线程模块。

.计次循环首 (超级列表框1.取表项数 (), i)
在线 ＝ 超级列表框1.取标题 (i － 1, 2)
.如果 (在线 ＝ “在线”)
文本 ＝ 文本 ＋ “ID：” ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “ QQ：” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “ 状态：” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “ 昵称：” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ #换行符
.否则

.如果结束

.计次循环尾 ()
通用对话框1.类型 ＝ 1
通用对话框1.过滤器 ＝ “文本文件（*.txt）|*.txt”
通用对话框1.默认文件后缀 ＝ “.txt”
通用对话框1.打开 ()
判断 ＝ 写到文件 (通用对话框1.文件名, 到字节集 (文本))
.如果 (判断)
信息框 (“导出成功”, 0, “提示”, _启动窗口)
.否则
信息框 (“导出失败”, 0, “提示”, _启动窗口)