繁星检测主播开播状态

.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 _按钮1_被单击

启动线程 (&子程序1, , )

.子程序 子程序1
.局部变量 文本, 文本型
.局部变量 文本2, 文本型
.局部变量 文本3, 文本型
.局部变量 i, 整数型
.局部变量 时间, 整数型

编辑框1.内容 ＝ “”
.计次循环首 (超级列表框1.取表项数 (), i)

    透明标签1.标题 ＝ “正在检测”
    透明标签1.文本颜色 ＝ #红色
    文本 ＝ 到文本 (网页_访问 (“view-source:http://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

@你好我的太阳