.版本 2 .支持库 EThread .支持库 iext .支持库 spec .程序集 窗口程序集_启动窗口 .子程序 _按钮1_被单击 启动线程 (&子程序1, , ) .子程序 子程序1 .局部变量 文本, 文本型 .局部变量 文本2, 文本型 .局部变量 文本3, 文本型 .局部变量 i, 整数型 .局部变量 时间, 整数型 编辑框1.内容 ＝ “” .计次循环首 (超级列表框1.取表项数 (), i) 透明标签1.标题 ＝ “正在检测” 透明标签1.文本颜色 ＝ #红色 文本 ＝ 到文本 (网页_访问 (“view-source://fanxing.kugou.com/index.php?action=userFans&id=” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “”)) 文本2 ＝ 文本_取出中间文本 (文本, #常量1, #常量2, ) 文本3 ＝ 编码_URL解码 (文本_取出中间文本 (文本, #常量3, #常量4, ), 真) 超级列表框1.置标题 (i － 1, 4, “正在检查”) 延迟 (10) .如果 (寻找文本 (文本3, “正在直播”, , 假) ＞ 0) 编辑框1.加入文本 (超级列表框1.取标题 (i － 1, 1) ＋ “的” ＋ “房间id:” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “>>>>正在直播” ＋ #换行符) 超级列表框1.置标题 (i － 1, 4, “正在直播”) .否则 超级列表框1.置标题 (i － 1, 4, “没有直播”) .如果结束 .计次循环尾 () 时钟1.时钟周期 ＝ 5000 透明标签1.标题 ＝ “检测完毕” 透明标签1.文本颜色 ＝ #蓝色 .子程序 _按钮2_被单击 .局部变量 文本, 文本型 .局部变量 单行文本, 文本型, , "0" .局部变量 i, 整数型 .局部变量 索引, 整数型 .局部变量 文本1, 文本型, , "0" 通用对话框1.打开 () 文本 ＝ 到文本 (读入文件 (通用对话框1.文件名)) 调试输出 (文本) 单行文本 ＝ 分割文本 (文本, #换行符, ) .计次循环首 (取数组成员数 (单行文本), i) 文本1 ＝ 分割文本 (单行文本 [i], “----”, ) 索引 ＝ 超级列表框1.插入表项 (-1, 到文本 (超级列表框1.取表项数 () ＋ 1), , , , ) 超级列表框1.保证显示 (索引) 超级列表框1.置标题 (索引, 1, 文本1 [1]) 超级列表框1.置标题 (索引, 2, 文本1 [2]) 超级列表框1.置标题 (索引, 3, 文本1 [3]) .计次循环尾 () .子程序 __启动窗口_创建完毕 透明标签1.标题 ＝ “等待检测” 透明标签1.文本颜色 ＝ #绿色 .子程序 _时钟1_周期事件 启动线程 (&子程序1, , ) .子程序 _按钮3_被单击 超级列表框1.全部删除 () 时钟1.时钟周期 ＝ 0