易语言简单的获取yy主播是否开播源码

易语言简单的获取yy主播是否开播源码

@aSimon

.版本 2

.程序集 窗口程序集_启动窗口, , , ' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _选择框1_被单击
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 啦啦啦, 文本型

.如果真 (选择框1.选中 ＝ 假)
    选择框1.标题 ＝ “开启检测”
    标签3.标题 ＝ “直播状态”
    时钟1.时钟周期 ＝ 0
.如果真结束
.如果真 (选择框1.选中 ＝ 真)
    选择框1.标题 ＝ “正在检测”
    局_网址 ＝ “http://www.yy.com/u/” ＋ 编辑框1.内容
    局_方式 ＝ 0
    局_结果 ＝ 网页_访问 (局_网址, 局_方式, , , , , , , , )
    局_返回 ＝ 到文本 (编码_编码转换对象 (局_结果))
    输出调试文本 (局_返回)
    啦啦啦 ＝ 文本_取出中间文本 (局_返回, #TEXT1, #TEXT2)
    .如果 (啦啦啦 ＝ “直播中”)
        标签3.标题 ＝ “正在直播”  ' _切换频道_被单击 ()
    .否则
        标签3.标题 ＝ “未直播”  ' _退出频道_被单击 ()
    .如果结束
    时钟1.时钟周期 ＝ 120000
.如果真结束


.子程序 _时钟1_周期事件

_选择框1_被单击 ()

.子程序 __启动窗口_创建完毕