人人影视综艺剧集失效

zhangsheng

事件 多线程_综艺.取网页源码2完毕(源码 为 文本型)
        变量 剧名 为 文本型
        变量 类型 为 文本型       
        变量 年代 为 文本型
        变量 地区 为 文本型
        变量 播出 为 文本型
        变量 临时 为 文本型()
        变量 主持 为 文本型
        变量 影片介绍 为 文本型
        变量 循环变量 为 整数型
        标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
        标签_进度.标题 = 删首尾空(子文本替换(子文本替换(取指定文本2(源码,"tag\">","</p>"),"<span>",""),"</span>",""))
        标签_评分.标题=""
        类型=取指定文本2(取指定文本2(源码,"类型 ：</span>","</p>"),"_blank\">","</a>")
        年代=取指定文本2(源码,"年代 ：</span>","</p>")
        地区=取指定文本2(源码,"地区 ：</span>","</p>")
        播出=取指定文本2(源码,"播出 ：</span>","</p>")
        临时=取指定文本(取指定文本2(源码,"主持：</span>","</p>"),"\">","</a>")
        判断循环首 循环变量        < 取数组成员数(临时)
                主持=主持 & " " & 临时(循环变量)
                循环变量=循环变量+1
        判断循环尾
        影片介绍=取指定文本2(源码,"style=\"display:none;\"><span>简介 ：</span><p class=\"item-desc\">","<a href=\"#\" class=\"js-close btn\">")
        标签_简介正文.标题="\n类型：" & 类型 & "   年代：" & 年代 & "   地区：" & 地区 & "\n\n播出：" & 播出 & "\n\n主持：" & 主持 & "\n\n影片介绍：" & 影片介绍
       
        Id=取指定文本2(源码,"id : '","',")
        isByTime=取指定文本2(源码,"isByTime : ",",")
        Site=取指定文本2(源码,"site:'","'")
       
        '相关影人
        变量 主演源码 为 文本型
        变量 主演图片数据 为 文本型()
        变量 主演标题数据 为 文本型()
        变量 主演i 为 整数型
        ok图片小标列表1.清空项目()
        主演源码 = 取指定文本2(源码,"相关影人","</ul>")
        如果  主演源码 = "" 则
                标签_相关影人.可视 = 假
                标签_选集1.移动(标签_相关影人.左边,标签_相关影人.顶边,标签_相关影人.宽度,标签_相关影人.高度)
                ok选集列表框1.移动(ok选集列表框1.左边,ok图片小标列表1.顶边 + high(5),ok选集列表框1.宽度,ok选集列表框1.高度)
        否则
            标签_相关影人.可视 = 真
                主演图片数据 = 取指定文本(主演源码,"data-src=\"","\"")
                主演标题数据 = 取指定文本(主演源码,"alt=\"","\"")
                判断循环首 主演i < 取数组成员数(主演图片数据)
                        ok图片小标列表1.添加项目(主演图片数据(主演i),主演标题数据(主演i),"","","assets://apw.png","","","")
                        主演i=主演i+1
                判断循环尾
                ok图片小标列表1.刷新项目()
                ok图片小标列表1.刷新()
                图片列表框_剧集.可视 = 真
                ok选集列表框1.可视 = 假
                标签_选集1.移动(标签_选集1.左边,ok图片小标列表1.顶边 + ok图片小标列表1.取高度(),标签_选集1.宽度,标签_选集1.高度)
                图片列表框_剧集.移动(图片列表框_剧集.左边,ok图片小标列表1.顶边 + ok图片小标列表1.取高度() + 标签_选集1.取高度() + high(5),图片列表框_剧集.宽度,图片列表框_剧集.高度)
                'ok选集列表框1.移动(ok选集列表框1.左边,ok图片小标列表1.顶边 + ok图片小标列表1.取高度() + 标签_选集1.取高度() + high(5),ok选集列表框1.宽度,ok选集列表框1.高度)
        结束 如果
       
        '相关视频
        变量 临时文本 为 文本型
        变量 临时文本1 为 文本型()
        变量 临时计次 为 整数型
        变量 临时剧名 为 文本型
        变量 临时图片 为 文本型
        变量 临时地址 为 文本型
        图片列表框_猜你喜欢.清空项目()
        临时文本 = 取指定文本2(源码,"猜你喜欢","</ul>")
        如果 临时文本 = "" 则
                标签_猜你喜欢.可视 = 假
        标签_猜你喜欢底.可视 = 假
            图片列表框_猜你喜欢.可视 = 假
                标签_简介正文.顶边 = 标签_猜你喜欢.顶边
        否则
                临时文本1 = 取指定文本(临时文本,"<li","</li>")
                公用模块.Hint = 年代
                判断循环首 临时计次 < 取数组成员数(临时文本1)
                        临时地址 = 取指定文本2(临时文本1(临时计次),"href='","'")
                        临时图片 = 取指定文本2(临时文本1(临时计次),"data-src='","'")
                        临时剧名 = 取指定文本2(临时文本1(临时计次),"<p","</p>")
                        临时剧名 = 取指定文本2(临时剧名,"data-index=","/a>")
                        临时剧名 = 取指定文本2(临时剧名,">","<")
                        图片列表框_猜你喜欢.插入项目(临时计次,临时图片,临时剧名)
                        图片列表框_猜你喜欢.置项目标记(临时计次,临时地址)
                        临时计次 = 临时计次 + 1
                        如果 临时计次 = 4 则
                                退出
                        结束 如果
                判断循环尾
                标签_猜你喜欢底.高度 = 标签_猜你喜欢.高度 + 图片列表框_猜你喜欢.取高度() + 10
            标签_简介正文.顶边 = 标签_猜你喜欢.顶边 + 标签_猜你喜欢.高度 + 图片列表框_猜你喜欢.取高度() + 10
        结束 如果
       
        变量 计次循环 为 整数型 = 0
        变量 Take_Out 为 文本型
        变量 中文名称 为 文本型
        变量 英文名称 为 文本型
       
        如果 寻找文本(源码,"zd-down js-zdmore-list",0)=-1 则
                Take_Out=取指定文本2(源码,"now-site js-now-site","</div>")
                中文名称=取指定文本2(Take_Out,"btn\">","</span>")
                Cn_Site=分割文本(中文名称 & "-","-")
                En_Site=分割文本(Site & "-","-")
                '图片列表框_功能区.置项目图片(4,"c_" & En_Site(0) & ".png")
                下拉列表框_来源.清空项目()
                变量 局_计次1 为 整数型
                判断循环首 局_计次1 < 取数组成员数(Cn_Site)
                        下拉列表框_来源.添加项目("播放源" & 局_计次1 + 1)
                        局_计次1 = 局_计次1 + 1
                判断循环尾
                标签_视频来源.标题 = "来源：播放源1"
            视频源索引 = 0
                如果 isByTime="true" 则
                        isByTime="false"
                结束 如果
                多线程_综艺_剧集.开始取网页源码2("http://www."& 公用模块.视频页头 &".com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
        否则
                Take_Out=取指定文本2(源码,"zd-down js-zdmore-list","</ul>")
                创建表达式("<li><a data-cn=(.*?) data-site=(.*?) class=(.*?) href=\"#\">(.*?)</a></li>",真,真)
                开始匹配(Take_Out)
                判断循环首 匹配下一个()       
                        中文名称=中文名称 & 子文本替换(取子匹配文本(1) & "\n","\"","")
                    英文名称=英文名称 & 子文本替换(取子匹配文本(2) & "\n","\"","")
                        计次循环 = 计次循环 + 1
                判断循环尾
                Cn_Site = 分割文本(中文名称,"\n")
                En_Site = 分割文本(英文名称,"\n")
                '图片列表框_功能区.置项目图片(4,"c_" & En_Site(0) & ".png")
                下拉列表框_来源.清空项目()
                变量 局_计次1 为 整数型
                判断循环首 局_计次1 < 取数组成员数(Cn_Site)
                        下拉列表框_来源.添加项目("播放源" & 局_计次1 + 1)
                        局_计次1 = 局_计次1 + 1
                判断循环尾
                标签_视频来源.标题 = "来源：播放源1"
            视频源索引 = 0
                如果 isByTime="true" 则
                        isByTime="false"
                结束 如果
                多线程_综艺_剧集.开始取网页源码2("http://www."& 公用模块.视频页头 &".com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
        结束 如果
        容错处理首
                分支 否则
                        弹出提示("")
        容错处理尾
结束 事件
事件 多线程_综艺_剧集.取网页源码2完毕(源码 为 文本型)
        变量 计次循环 为 整数型 = 0
        变量 标题 为 文本型
        变量 副标 为 文本型
        变量 地址 为 文本型
        变量 图片 为 文本型
    变量 data_src 为 文本型()
    创建表达式("<a href=(.*?) data-daochu=to=(.*?) class='js-link'><div class='w-newfigure-imglink g-playicon js-playicon'> <img src='https://p0.ssl.qhimg.com/d/_hao360/default.png' data-src=(.*?) alt=(.*?)  /><span class='w-newfigure-hint'>(.*?)</span></div>",真,真)
        开始匹配(子文本替换(源码,"\\/","/"))
        判断循环首 匹配下一个()
                标题=标题 & UCS2解码(子文本替换(取子匹配文本(5) & "\n","'",""))
                副标=副标 & UCS2解码(子文本替换(取子匹配文本(4) & "\n","'",""))
                图片=图片 & UCS2解码(子文本替换(取子匹配文本(3) & "\n","'",""))
                地址=地址 & 子文本替换(取子匹配文本(1) & "\n","'","")
                计次循环 = 计次循环 + 1
        判断循环尾
        data_src=分割文本(图片,"\n")
        Data_Num=分割文本(标题,"\n")
        Subtitle=分割文本(副标,"\n")
        Href = 分割文本(地址,"\n")
        图片列表框_剧集.列数 = 3
        图片列表框_剧集.字体大小=7
        图片列表框_剧集.副标题字体大小=8
        图片列表框_剧集.图片宽度=100
        图片列表框_剧集.图片高度=70
        图片列表框_剧集.显示副标题()
        变量 局_计次 为 整数型
        判断循环首 局_计次 < 取数组成员数(Data_Num)
                图片列表框_剧集.添加项目(data_src(局_计次),Subtitle(局_计次))
                图片列表框_剧集.置项目副标题(局_计次,Data_Num(局_计次))
                局_计次 = 局_计次 + 1
        判断循环尾
        Tab特效选集.初始内容(Data_Num)
       
        如果 公用模块.索引<>""则
                Tab特效选集.置现行选择项(公用模块.索引)
                公用模块.置现行索引(图片列表框_剧集,公用模块.索引)
                标签_播放状态.标题="正在播放：第" & Data_Num(公用模块.索引)
                ok弹出提示1.弹出("上次观看到 第" & Data_Num(公用模块.索引),1,4)
                开始播放(Href(公用模块.索引))
        否则
            Tab特效选集.置现行选择项(0)
                公用模块.置现行索引(图片列表框_剧集,0)
                标签_播放状态.标题="正在播放：第" & Data_Num(0)
                开始播放(Href(0))
        结束 如果
        容错处理首
                分支 否则
                        弹出提示("")
        容错处理尾
结束 事件

zx2018

什么玩意，截图或者放源码

叶子

域名在公用库，谁知道你采集哪的资源，怎么给你修复

443083227

不在这个多线程里面，在获取综艺 剧集的多线程里面

zhangsheng

443083227 发表于 2020-2-26 00:16
不在这个多线程里面，在获取综艺 剧集的多线程里面

我发出来的就是取综艺剧集这里

zhangsheng

叶子 发表于 2020-2-25 22:48
域名在公用库，谁知道你采集哪的资源，怎么给你修复

就是360的

yudave

就来看看了

443083227

我说了不在这里就是不在这里，我给人家修复了那么多，我还不知道吗，

443083227

多线程_综艺_剧集.取网页源码2完毕  请到这个事件里面修复

443083227

              多线程_综艺_剧集.开始取网页源码2("http://www."& 公用模块.视频页头 &".com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
        否则
                Take_Out=取指定文本2(源码,"zd-down js-zdmore-list","</ul>")
               创建表达式("<li><a data-cn=(.*?) data-site=(.*?) class=(.*?) href=\"####\">(.*?)</a></li>",真,真)
                开始匹配(Take_Out)
                判断循环首 匹配下一个()        
                        中文名称=中文名称 & 子文本替换(取子匹配文本(1) & "\n","\"","")
                    英文名称=英文名称 & 子文本替换(取子匹配文本(2) & "\n","\"","")
                        计次循环 = 计次循环 + 1
                判断循环尾
                Cn_Site = 分割文本(中文名称,"\n")
                En_Site = 分割文本(英文名称,"\n")
                '图片列表框_功能区.置项目图片(4,"c_" & En_Site(0) & ".png")
                下拉列表框_来源.清空项目()
                变量 局_计次1 为 整数型
                判断循环首 局_计次1 < 取数组成员数(Cn_Site)
                        下拉列表框_来源.添加项目("播放源" & 局_计次1 + 1)
                        局_计次1 = 局_计次1 + 1
                判断循环尾
                标签_视频来源.标题 = "来源：播放源1"
            视频源索引 = 0
                如果 isByTime="true" 则
                        isByTime="false"
                结束 如果
                多线程_综艺_剧集.开始取网页源码2("http://www."& 公用模块.视频页头 &".com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
        结束 如果
        容错处理首
                分支 否则
                        弹出提示("")
        容错处理尾
结束 事件
事件 多线程_综艺_剧集.取网页源码2完毕(源码 为 文本型)
        变量 计次循环 为 整数型 = 0
        变量 标题 为 文本型
        变量 副标 为 文本型
        变量 地址 为 文本型
        变量 图片 为 文本型
    变量 data_src 为 文本型()
    创建表达式("<a href=(.*?) data-daochu=to=(.*?) class='js-link'><div class='w-newfigure-imglink g-playicon js-playicon'> <img src='https://p0.ssl.qhimg.com/d/_hao360/default.png' data-src=(.*?) alt=(.*?)  /><span class='w-newfigure-hint'>(.*?)</span></div>",真,真)
        开始匹配(子文本替换(源码,"\\/","/"))
        判断循环首 匹配下一个()
                标题=标题 & UCS2解码(子文本替换(取子匹配文本(5) & "\n","'",""))
                副标=副标 & UCS2解码(子文本替换(取子匹配文本(4) & "\n","'",""))
                图片=图片 & UCS2解码(子文本替换(取子匹配文本(3) & "\n","'",""))
                地址=地址 & 子文本替换(取子匹配文本(1) & "\n","'","")
                计次循环 = 计次循环 + 1
        判断循环尾
        data_src=分割文本(图片,"\n")
        Data_Num=分割文本(标题,"\n")
        Subtitle=分割文本(副标,"\n")
        Href = 分割文本(地址,"\n")
        图片列表框_剧集.列数 = 3
        图片列表框_剧集.字体大小=7
        图片列表框_剧集.副标题字体大小=8
        图片列表框_剧集.图片宽度=100
        图片列表框_剧集.图片高度=70
        图片列表框_剧集.显示副标题()
        变量 局_计次 为 整数型
        判断循环首 局_计次 < 取数组成员数(Data_Num)
                图片列表框_剧集.添加项目(data_src(局_计次),Subtitle(局_计次))
                图片列表框_剧集.置项目副标题(局_计次,Data_Num(局_计次))
                局_计次 = 局_计次 + 1
        判断循环尾
        Tab特效选集.初始内容(Data_Num)
        
        如果 公用模块.索引<>""则
                Tab特效选集.置现行选择项(公用模块.索引)
                公用模块.置现行索引(图片列表框_剧集,公用模块.索引)
                标签_播放状态.标题="正在播放：第" & Data_Num(公用模块.索引)
                ok弹出提示1.弹出("上次观看到 第" & Data_Num(公用模块.索引),1,4)
                开始播放(Href(公用模块.索引))
        否则
            Tab特效选集.置现行选择项(0)
                公用模块.置现行索引(图片列表框_剧集,0)
                标签_播放状态.标题="正在播放：第" & Data_Num(0)
                开始播放(Href(0))
        结束 如果
        容错处理首
                分支 否则
                        弹出提示("")
        容错处理尾
结束 事件