.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 局_网址, 文本型
.局部变量 局_方式, 整数型
.局部变量 局_结果, 字节集
.局部变量 局_返回, 文本型
.局部变量 UIDS1, 文本型
.局部变量 UIDS, 文本型, , "0"
局_网址 = “http://www.yy.com/u/follow/” + 编辑框2.内容
局_方式 = 0
局_结果 = 网页_访问 (局_网址, 局_方式, , , , , , , , )
局_返回 = 到文本 (编码_编码转换对象 (局_结果))
输出调试文本 (局_返回)
UIDS1 = 文本_取出中间文本 (局_返回, #TEXT1, #TEXT2)
UIDS = 分割文本 (UIDS1, “/”, )
.如果真 (取数组成员数 (UIDS) = 4)
标签3.标题 = UIDS [4]
.如果真结束
作者: aSimon
易语言简单的获取yy主播是否开播源码
.版本 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_被单击 ()
.子程序 __启动窗口_创建完毕