多线程_youku2.开始取网页源码2("http://www.soku.com/search_video/q_"&URL编码(公用模块.解析_视频标题,"UTF-8"),"UTF-8")
事件 多线程_youku2.取网页源码2完毕(源码 为 文本型)
如果 源码 <> "" 则
变量 大数组_数据 为 文本型()
变量 数组_数据 为 文本型()
变量 数据 为 文本型
变量 链接 为 文本型
变量 集数 为 文本型
变量 信息 为 文本型
变量 简介 为 文本型
变量 计次 为 整数型 = 0
大数组_数据 = 取指定文本(源码,"<div class=\"s_dir\">","进入自频道")
数据=取指定文本2(大数组_数据(0),"<ul class=\"clearfix\">","</ul>")
数组_数据=取指定文本(大数组_数据(0),"<li>","</li>")
'信息框("",取数组成员数(数组_数据),"")
x_PLAYER.高级列表框_剧集列表.清空项目()
判断循环首 计次<取数组成员数(数组_数据)
链接 = "http:" & 取指定文本2(数组_数据(计次),"href=\"","\"")
信息 = 取指定文本2(数组_数据(计次),"title=\"","\"")
x_PLAYER.高级列表框_剧集列表.添加项目("icon_list_folder20.png",公用模块.解析_视频标题&"第"&计次+1&"集",链接,"","")
计次 = 计次+1
判断循环尾
置准备播放视频()
否则
关闭进度对话框()
弹出提示("未获取到剧集")
结束 如果
结束 事件
ShareLife博客站 , 版权所有丨如未注明 , 均为原创|E4A交流群730898463
