求解决ok2018播放器替换ok金山播放器的问题

jywwlq 发表于 2020-1-1 17:53:02

直接在E4A里面把ok2018播放器替换成ok金山播放器了
测试的时候发现只有第一次播放可以显示画面
返回后播放就是黑屏只有声音无画面
然后就是直连M3U8地址的直播视频就会出现一只缓冲加载现象
本人小白一枚不知如何修改下面附播放代码和ok金山播放器类库
希望大神帮忙解决一下不胜感激！
变量图片为文本型
变量 Id 为文本型
变量 Category 为文本型
变量 PlaySite 为文本型
变量 Cn_Site 为文本型()
变量 En_Site 为文本型()
变量 Data_Num 为文本型()'播放标题/集数
变量 Href 为文本型()'播放页面地址
变量 isByTime 为文本型
变量 Site 为文本型
变量 Subtitle 为文本型()
变量清晰度为文本型()
变量参数1 为文本型()
变量是否全屏为逻辑型 = 假
变量投屏地址为文本型
变量真实解析接口为文本型 = ""
变量状态栏高度为整数型 = 取状态栏高度()
变量 SuoYin 为整数型
变量是否直连为逻辑型
变量 Take_Out 为文本型
变量原本高度为整数型
变量原本顶边为整数型

事件窗口_播放.创建完毕()
变量剧集为文本型()
图片_加载.置样式(2)
图片_加载.置颜色(&HFF7897FE)
图片_加载.置内边距(5)
标签加载.字体颜色=&HFF7897FE

剧集=分割文本("初始化中...","-")
ok新Tab特效_剧集.初始内容(剧集)
ok新Tab特效_剧集.置现行选择项(0)
ok新Tab特效_剧集.置指示器位置(0)
ok新Tab特效_剧集.背景颜色=无色
ok新Tab特效_剧集.设置显示器(2)

ok新Tab特效_剧集.置字体大小(12)
ok新Tab特效_剧集.置选中字体颜色(白色)
ok新Tab特效_剧集.置指示器圆角弧度(10)
图片列表框1.置项目样式(R.layout_play_menulist)
图片列表框1.自动拉伸高度(真)

如果公用模块.颜色id = 10 则
ok新Tab特效_剧集.置指示器颜色(灰色)
ok新Tab特效_剧集.置未选中字体颜色(灰色)
否则
ok新Tab特效_剧集.置指示器颜色(公用模块.主题颜色)
ok新Tab特效_剧集.置未选中字体颜色(公用模块.主题颜色)
结束如果

标签_简介正文.添加滚动条()
ok网页解析1.初始化("")
原本高度 = ok金山播放器1.高度
原本顶边 = ok金山播放器1.顶边

'ok金山播放器1.初始化("a96fca7b5fdf4f528c4e7fd9dd02f431")
ok金山播放器1.置分享可视(0,假)
ok金山播放器1.置分享可视(1,假)
ok金山播放器1.置分享可视(2,假)
ok金山播放器1.置分享可视(3,假)
ok金山播放器1.置分享可视(4,假)
ok金山播放器1.置分享可视(5,假)
ok金山播放器1.置分享可视(6,假)
ok金山播放器1.置分享可视(7,假)
ok金山播放器1.置分享可视(8,假)
ok金山播放器1.置分享可视(9,假)
ok金山播放器1.置分享可视(10,真)
ok金山播放器1.置分享可视(11,假)
ok金山播放器1.置分享可视(12,真)
ok金山播放器1.置分享可视(13,假)
ok金山播放器1.置分享可视(14,真)
ok金山播放器1.置分享可视(15,真)
ok金山播放器1.置分享可视(16,真)
ok金山播放器1.置分享可视(17,真)
ok金山播放器1.置分享可视(18,真)
ok金山播放器1.置分享可视(19,真)
ok金山播放器1.置分享可视(20,真)
ok金山播放器1.置分享可视(21,真)
ok金山播放器1.置分享可视(23,真)
ok金山播放器1.置分享可视(24,假)
ok金山播放器1.背景颜色 = 黑色
结束事件
事件窗口_播放.切换完毕()
隐藏状态栏()
优化内存()
ok金山播放器1.置缓冲可视(真)
如果公用模块.下载标记 ="窗口_下载" 则
幻1.系统_保持屏幕常亮()
ok金山播放器1.继续播放()
公用模块.下载标记 =""
否则
加载过程()
图标切换()
SuoYin = 0
公用模块.默认解析=公用模块.线路默认

如果公用模块.颜色id = 10 则
ok新Tab特效_剧集.置指示器颜色(&HFFEA7500)
ok新Tab特效_剧集.置未选中字体颜色(灰色)
否则
ok新Tab特效_剧集.置指示器颜色(公用模块.主题颜色)
ok新Tab特效_剧集.置未选中字体颜色(公用模块.主题颜色)
结束如果
标签_剧集.可视=真
ok新Tab特效_剧集.可视=真
标签_简介正文.可视=真
标签_剧名.标题=""
标签_评分.标题=""
ok新Tab特效_剧集.初始内容(分割文本("初始化中...","-"))
标签_简介正文.标题 = "本APP提供的最新电影资源均系收集于各大视频网站，本APP只提供采集页面服务，并不提供影片资源存储，也不参与录制、上传。"
幻1.系统_保持屏幕常亮()
如果公用模块.直播信息 = "" 则
判断取文本左边(公用模块.详细信息,3)
   分支 "/tv"
   是否直连 = 假
   多线程_电视剧.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
   分支 "/m/"
   是否直连 = 假
   多线程_电影.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
   分支 "/va"
   是否直连 = 假
   多线程_综艺.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
   分支 "/ct"
   是否直连 = 假
   多线程_动漫.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
   分支 "vid"
   是否直连 = 真
   多线程_娱乐.开始取网页源码2("http://www.pearvideo.com/" & 公用模块.详细信息,"UTF-8")
   分支 "/in"
是否直连 = 真
多线程_骑士电影a.开始取网页源码2("http://v.zealol.com" & 公用模块.详细信息,"UTF-8")
   分支 "/?m"
   是否直连 = 真
   多线程_超级福利.开始取网页源码2("https://www.okzy.co" & 公用模块.详细信息,"UTF-8")

结束判断
否则
是否直连=真
ok金山播放器1.刷新()
ok金山播放器1.置分享可视(24,假)
ok金山播放器1.置缓冲可视(假)
ok金山播放器1.播放视频(公用模块.标题,公用模块.直播信息,"")
标签_剧名.标题 = 公用模块.标题
ok新Tab特效_剧集.初始内容(分割文本("直播","-"))
标签_简介正文.标题 = 公用模块.标题 & "\n" & "1.直播来源于网络" & "\n" & "2.本直播不支持评论.点赞.等功能"
标签7.标题 = "正在播放：" & 公用模块.标题
结束如果
打开数据库(取存储卡路径() & "/" & 公用模块.文件夹地址 & "/mydata.db")
结束如果
结束事件

事件多线程_娱乐.取网页源码2完毕(源码为文本型)
变量时间为文本型,播放量为文本型,来源为文本型,简介为文本型,截取源码为文本型

截取源码 = 取指定文本2(源码,"<div class=\"details-content fix-width-center\">","<h3>扫二维码分享</h3>")
标签_剧名.标题 = 取指定文本2(截取源码,"<h1 class=\"video-tt\">","</h1>")
标签7.标题 = "正在播放：梨视频"
ok新Tab特效_剧集.初始内容(分割文本(标签_剧名.标题,"-"))
时间 = 取指定文本2(截取源码," <div class=\"date\">","</div>")
播放量 = 取指定文本2(取指定文本2(截取源码," <div class=\"fav\"","/div>"),">","<")
来源 = 取指定文本2(截取源码," <p class=\"copy-right-clare\">","</p>")
简介 = 取指定文本2(截取源码," <div class=\"summary\">","</div>")
图片 = 公用模块.娱乐图片
标签_简介正文.标题 = "时间：" & 时间 & "\n\n播放量：" & 播放量 & "\n\n" & 来源 & "\n\n简介：" & 简介
ok金山播放器1.刷新()
ok金山播放器1.置分享可视(24,假)
ok金山播放器1.播放视频(标签_剧名.标题,取指定文本2(源码,"srcUrl=\"","\""),"")
结束事件

事件多线程_电视剧.取网页源码2完毕(源码为文本型)
变量剧名为文本型
变量评分为文本型
变量类型为文本型
变量年代为文本型
变量地区为文本型
变量导演为文本型
变量临时为文本型()
变量演员为文本型
变量影片介绍为文本型
变量循环变量为整数型
变量循环变量1 为整数型=1
变量临时1 为文本型()
标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
标签_评分.标题=取指定文本2(源码,"<span class=\"s\">","</span>")
临时1=取指定文本(取指定文本2(源码,"类型：</span>","</p>"),"\">","</")
类型=临时1(0)
判断循环首循环变量1 < 取数组成员数(临时1)
类型=类型 & "/" & 临时1(循环变量1)
循环变量1=循环变量1 + 1
判断循环尾
年代=取指定文本2(源码,"年代：</span>","</p>")
地区=取指定文本2(源码,"地区：</span>","</p>")
导演=取指定文本2(取指定文本2(源码,"导演：</span>","</p>"),"\">","</a>")
图片=取指定文本2(取指定文本2(源码,"monitor-desc=\"大海报\"","<div class=\"s-top-right\">"),"<img src=\"","\">")

临时=取指定文本(取指定文本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\n演员：" & 演员 & "\n\n影片介绍：" & 影片介绍

Id=取指定文本2(源码,"id: '","',")
Category=取指定文本2(源码,"cat: '","',")

PlaySite=子文本替换(子文本替换(取指定文本2(源码,"playsite:","playtype:"),"}],","}]}"),"[{\"","{\"LeiMing\":[{\"")
Cn_Site = 分割文本(JSON解析(PlaySite,"LeiMing","cnsite",3),"\n")
En_Site = 分割文本(JSON解析(PlaySite,"LeiMing","ensite",3) ,"\n")

图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
多线程_电视剧_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(0) & "&id=" & Id & "&category=" & Category,"UTF-8")
结束事件

事件多线程_电视剧_剧集.取网页源码2完毕(源码为文本型)
变量 Take_Out 为文本型
如果寻找文本(源码,"display:block",0)=-1 则
Take_Out=源码
否则
Take_Out=取指定文本2(源码,"display:block","succ")
结束如果
Take_Out=子文本替换(Take_Out,"\\\"","\"")
Take_Out=子文本替换(Take_Out,"\\/","/")
Data_Num=取指定文本(Take_Out,"data-num=\"","\"")'播放标题/集数
Href=取指定文本(Take_Out,"href=\"","\">")'播放页面地址
ok新Tab特效_剧集.初始内容(Data_Num)

取记录剧集()
如果公用模块.索引 > 0 则
SuoYin = 公用模块.索引
公用模块.索引 = 0
结束如果
ok新Tab特效_剧集.置现行选择项(SuoYin)
ok新Tab特效_剧集.置指示器位置(SuoYin)
ok金山播放器1.置分享可视(24,真)
标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
直连嗅探(Href(SuoYin))
结束事件

事件多线程_电影.取网页源码2完毕(源码为文本型)
变量剧名为文本型
变量评分为文本型
变量类型为文本型
变量年代为文本型
变量地区为文本型
变量导演为文本型
变量临时为文本型()
变量演员为文本型
变量影片介绍为文本型
变量循环变量为整数型
变量循环变量1 为整数型=1
变量临时1 为文本型()
标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
标签_评分.标题=取指定文本2(源码,"<span class=\"s\">","</span>")
临时1=取指定文本(取指定文本2(源码,"类型：</span>","</p>"),"\">","</")
类型=临时1(0)
判断循环首循环变量1 < 取数组成员数(临时1)
类型=类型 & "/" & 临时1(循环变量1)
循环变量1=循环变量1 + 1
判断循环尾
年代=取指定文本2(源码,"年代：</span>","</p>")
地区=取指定文本2(源码,"地区：</span>","</p>")
图片=取指定文本2(源码,"地区：</span>","</p>")
导演=取指定文本2(取指定文本2(源码,"导演：</span>","</p>"),"\">","</a>")
图片=取指定文本2(取指定文本2(源码,"monitor-desc=\"大海报\"","<div class=\"top-right\">"),"<img src=\"","\">")
临时=取指定文本(取指定文本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\n演员：" & 演员 & "\n\n影片介绍：" & 影片介绍

变量计次循环为整数型 = 0
变量 Take_Out 为文本型
变量中文名称为文本型
变量英文名称为文本型
变量地址为文本型

如果寻找文本(源码,"无播放源",0)<>-1 则
弹出提示("无播放源")
否则
Take_Out=取指定文本2(源码,"站点排序","visibility:hidden")
创建表达式("<a data-daochu=(.*?) class=(.*?) href=(.*?)>(.*?)</a>",真,真)
开始匹配(Take_Out)
判断循环首匹配下一个()
   中文名称=中文名称 & 子文本替换(取子匹配文本(4) & "\n","\"","")
   英文名称=英文名称 & 取指定文本2(取子匹配文本(1),"\"to=","\"") &"\n"
   地址=地址 & 子文本替换(取子匹配文本(3) & "\n","\"","")
   计次循环 = 计次循环 + 1
判断循环尾
Data_Num=分割文本("正片-","-")
Cn_Site = 分割文本(中文名称,"\n")
En_Site = 分割文本(英文名称,"\n")
Href = 分割文本(地址,"\n")
图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
ok新Tab特效_剧集.初始内容(Data_Num)
ok新Tab特效_剧集.置现行选择项(0)
ok新Tab特效_剧集.置指示器位置(0)
ok金山播放器1.置分享可视(24,假)
标签7.标题="正在播放：" & Data_Num(0)
直连嗅探(Href(SuoYin))
结束如果
结束事件

事件多线程_综艺.取网页源码2完毕(源码为文本型)
变量剧名为文本型
变量最新为文本型
变量类型为文本型
变量年代为文本型
变量地区为文本型
变量播出为文本型
变量临时为文本型()
变量主持为文本型
变量影片介绍为文本型
变量循环变量为整数型
变量循环变量1 为整数型=1
变量临时1 为文本型()
变量源码1 为文本型
标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
标签_评分.标题=""
最新=取指定文本2(源码,"<p class=\"tag\">","</p>")
临时1=取指定文本(取指定文本2(源码,"类型：</span>","</p>"),"\">","</")
类型=临时1(0)
判断循环首循环变量1 < 取数组成员数(临时1)
类型=类型 & "/" & 临时1(循环变量1)
循环变量1=循环变量1 + 1
判断循环尾
年代=取指定文本2(源码,"年代：</span>","</p>")
地区=取指定文本2(源码,"地区：</span>","</p>")
播出=取指定文本2(源码,"播出：</span>","</p>")
图片=取指定文本2(取指定文本2(源码,"monitor-desc=\"大海报\"","<div class=\"top-right\">"),"<img src=\"","\">")
临时=取指定文本(取指定文本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\n播出：" & 播出 & " \n\n主持：" & 主持 & "\n\n影片介绍：" & 影片介绍

Id=取指定文本2(源码,"id : '","',")
isByTime=取指定文本2(源码,"isByTime : ",",")
Site=取指定文本2(源码,"site:'","'")

变量计次循环为整数型 = 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 & "-","-")
图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
多线程_综艺_剧集.开始取网页源码2("http://www.360kan.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")
图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
多线程_综艺_剧集.开始取网页源码2("http://www.360kan.com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
结束如果
结束事件

事件多线程_综艺_剧集.取网页源码2完毕(源码为文本型)
变量计次循环为整数型 = 0
变量标题为文本型
变量副标为文本型
变量地址为文本型
变量源码1 为文本型

源码1=UCS2解码(子文本替换(源码,"\\/","/"))
Href=取指定文本(源码1,"href=\'","\' data-daochu=to")
Subtitle=取指定文本(源码1,"w-newfigure-hint\'>","<\/span>")
Data_Num=取指定文本(源码1,"alt=\'","'")
ok新Tab特效_剧集.初始内容(Data_Num)

取记录剧集()
如果公用模块.索引 > 0 则
SuoYin = 公用模块.索引
公用模块.索引 = 0
结束如果
ok新Tab特效_剧集.置现行选择项(SuoYin)
ok新Tab特效_剧集.置指示器位置(SuoYin)
ok金山播放器1.置分享可视(24,真)
标签7.标题="正在播放：" & Data_Num(SuoYin)
直连嗅探(Href(SuoYin))
结束事件

事件多线程_动漫.取网页源码2完毕(源码为文本型)
变量剧名为文本型
变量类型为文本型
变量年代为文本型
变量地区为文本型
变量导演为文本型
变量临时为文本型()
变量人物为文本型
变量影片介绍为文本型
变量循环变量为整数型
变量循环变量1 为整数型=1
变量临时1 为文本型()
变量临时2 为文本型()
标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
标签_评分.标题=""
临时1=取指定文本(取指定文本2(源码,"类型：</span>","</p>"),"\">","</")
类型=临时1(0)
判断循环首循环变量1 < 取数组成员数(临时1)
   类型=类型 & "/" & 临时1(循环变量1)
循环变量1=循环变量1 + 1
判断循环尾

年代=取指定文本2(源码,"年代：</span>","</p>")
地区=取指定文本2(取指定文本2(源码,"地区：</span>","</p>"),"target=\"_blank\">","</a>")
导演=取指定文本2(取指定文本2(源码,"导演：</span>","</p>"),"\">","</a>")
图片=取指定文本2(取指定文本2(源码,"monitor-desc=\"大海报\"","<div class=\"m-top-right\">"),"<img src=\"","\"")
临时=取指定文本(取指定文本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\n人物：" & 人物 & "\n\n影片介绍：" & 影片介绍

Id=取指定文本2(源码,"id: '","',")
Category=取指定文本2(源码,"cat: '","',")

PlaySite=子文本替换(子文本替换(取指定文本2(源码,"playsite:","site:"),"}],","}]}"),"[{\"","{\"LeiMing\":[{\"")
Cn_Site = 分割文本(JSON解析(PlaySite,"LeiMing","cnsite",3),"\n")
En_Site = 分割文本(JSON解析(PlaySite,"LeiMing","ensite",3) ,"\n")
图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")

多线程_动漫_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(0) & "&id=" & Id & "&category=" & Category,"UTF-8")
结束事件

事件多线程_动漫_剧集.取网页源码2完毕(源码为文本型)
变量 Take_Out 为文本型
如果寻找文本(源码,"display:block",0)=-1 则
Take_Out=源码
否则
Take_Out=取指定文本2(源码,"display:block","succ")
结束如果
Take_Out=子文本替换(Take_Out,"\\\"","\"")
Take_Out=子文本替换(Take_Out,"\\/","/")
Data_Num=取指定文本(Take_Out,"data-num=\"","\"")'播放标题/集数
Href=取指定文本(Take_Out,"href=\"","\">")'播放页面地址
ok新Tab特效_剧集.初始内容(Data_Num)

取记录剧集()
如果公用模块.索引 > 0 则
SuoYin = 公用模块.索引
公用模块.索引 = 0
结束如果
ok新Tab特效_剧集.置现行选择项(SuoYin)
ok新Tab特效_剧集.置指示器位置(SuoYin)
ok金山播放器1.置分享可视(24,真)
标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
直连嗅探(Href(SuoYin))
结束事件

事件多线程_骑士电影a.取网页源码2完毕(源码为文本型)
变量截取源码为文本型
变量中文名称为文本型
变量类型为文本型
变量年代为文本型
变量地区为文本型
变量导演为文本型
变量演员为文本型
变量临时为文本型()
变量循环变量为整数型
变量介绍为文本型

截取源码 = 取指定文本2(源码,"<div class=\"play-ail clearfix\">","<script language=\"javascript\">")
Cn_Site = 分割文本(中文名称,"\n")
En_Site = 分割文本("no","\n")
Data_Num = 取指定文本(取指定文本2(源码,"<ul class=\"macplus-content__playlist column8 clearfix fade in active\" id=\"con_playlist_1\">","</ul>"),"\">","</a>")
Href = 取指定文本(取指定文本2(源码,"<ul class=\"macplus-content__playlist column8 clearfix fade in active\" id=\"con_playlist_1\">","</ul>"),"<li><a href=\"","\"")
ok新Tab特效_剧集.初始内容(Data_Num)
标签_剧名.标题 = 取指定文本2(源码,"<h1 class=\"title text-overflow\">","</h1>")
图片列表框1.置项目图片(4,"c_no.png")
图片 = 取指定文本2(源码,"data-original=\"","\"")

类型 = 取指定文本2(取指定文本2(截取源码,"类型：</span>","</p>"),"target=\"_blank\">","</a>")
年代 = 取指定文本2(取指定文本2(截取源码,"年代：</span>","</p>"),"target=\"_blank\">","</a>")
地区 = 取指定文本2(取指定文本2(截取源码,"地区：</span>","</p>"),"target=\"_blank\">","</a>")
导演 = 取指定文本2(取指定文本2(截取源码,"导演：</span>","</p>"),"target=\"_blank\">","</a>")
介绍 = 取指定文本2(取指定文本2(截取源码,"简介：</span>","</p>"),"class=\"macplus-cText\">","</span>")
临时 = 取指定文本(取指定文本2(截取源码,"主演：</span>","</p>"),"target=\"_blank\">","</a>")
判断循环首循环变量 < 取数组成员数(临时)
演员 = 演员 & " " & 临时(循环变量)
循环变量 = 循环变量+1
判断循环尾
如果演员 = "" 则
演员 = "暂无数据"
结束如果
标签_简介正文.标题 = "类型：" & 类型 & " \n\n年代：" & 年代 & " \n\n地区：" & 地区 & " \n\n导演：" & 导演 & "\n\n演员：" & 演员 & "\n\n影片介绍：" & 介绍

取记录剧集()
如果公用模块.索引 > 0 则
SuoYin = 公用模块.索引
公用模块.索引 = 0
结束如果
ok新Tab特效_剧集.置现行选择项(SuoYin)
ok新Tab特效_剧集.置指示器位置(SuoYin)
ok金山播放器1.置分享可视(24,假)
标签7.标题="正在播放：" & Data_Num(SuoYin)
多线程_骑士电影.开始取网页源码2("http://v.zealol.com" & Href(SuoYin),"UTF-8")
结束事件

事件多线程_骑士电影.取网页源码2完毕(源码为文本型)
变量地址为文本型

地址 = 取指定文本2(取指定文本2(源码,"<script type=\"text/javascript\">var player_data=","<script type=\"text/javascript\""),"\"url\":\"","\"")

如果寻找文本(地址,"m3u8",0)<>-1 则
Href(SuoYin) = 子文本替换(地址,"\\","")
开始播放()
否则
ok网页解析1.跳转("http://v.zealol.com" & Href(SuoYin))
结束如果

是否收藏()
播放记录()
结束事件

事件多线程_超级福利.取网页源码2完毕(源码为文本型)
变量地址为文本型
变量数组地址为文本型()
变量中文名称为文本型

变量剧名为文本型
变量评分为文本型
变量类型为文本型
变量年代为文本型
变量地区为文本型
变量导演为文本型
变量演员为文本型
变量影片介绍为文本型
变量循环变量为整数型
如果源码 = "" 则
弹出提示("读取资源失败！")
退出
结束如果
类型=取指定文本2(源码,"类型：<span>"," </span></li>")
年代=取指定文本2(源码,"上映：<span>","</span></li>")
地区=取指定文本2(源码,"地区：<span>","</span></li>")
导演=取指定文本2(源码,"导演：<span>","</span></li>")
演员=取指定文本2(源码,"主演：<span>","</span></li>")
影片介绍=取指定文本2(源码,"txt=\"","</span>-->")
标签_简介正文.标题="类型：" & 类型 & " \n\n年代：" & 年代 & " \n\n地区：" & 地区 & " \n\n导演：" & 导演 & "\n\n人物：" & 演员 & "\n\n影片介绍：" & 影片介绍

标签_剧名.标题=取指定文本2(源码,"<h2>","</h2>")

Take_Out=取指定文本2(源码,"ckm3u8</span></h3>","<input type=\"checkbox\" name=\"checkbox")
Cn_Site = 分割文本(中文名称,"\n")
En_Site = 分割文本("no","\n")
如果寻找文本(Take_Out,"第",0)=-1 则
Data_Num=取指定文本(Take_Out,"checked=\"\" />","$http")
否则
Data_Num=取指定文本(Take_Out,"checked=\"\" />第","集$http")
结束如果
图片列表框1.置项目图片(4,"c_no.png")
ok新Tab特效_剧集.初始内容(Data_Num)
Href = 取指定文本(Take_Out,"value=\"","\" checked=")

取记录剧集()
如果公用模块.索引 > 0 则
SuoYin = 公用模块.索引
公用模块.索引 = 0
结束如果

ok新Tab特效_剧集.置现行选择项(SuoYin)
ok新Tab特效_剧集.置指示器位置(SuoYin)
如果寻找文本(Take_Out,"第",0)=-1 则
   ok金山播放器1.置分享可视(24,假)
标签7.标题="正在播放：" & Data_Num(SuoYin)

否则
         ok金山播放器1.置分享可视(24,真)
标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
结束如果
开始播放()
是否收藏()
播放记录()
结束事件

变量 SUOYIN 为整数型 =0
变量分割地址为文本型()
过程直连嗅探(网址为文本型)
标签1.标题 = ""
分割地址 =分割文本(网址,"html?")
如果 En_Site(SUOYIN) = "qiyi" 则
ok网页解析1.置请求头(ok网页解析1.取默认请求头())
ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
否则如果 En_Site(SUOYIN) = "qq" 则
ok网页解析1.置请求头(ok网页解析1.取默认请求头())
ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
标签1.标题 = "解析有时比较慢,请耐心等待~"
否则如果 En_Site(SUOYIN) = "youku" 则
ok网页解析1.置请求头(ok网页解析1.取默认请求头())
ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
否则如果 En_Site(SUOYIN) = "imgo" 则
ok网页解析1.置请求头(ok网页解析1.取默认请求头())
ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
否则
ok网页解析1.置请求头(ok网页解析1.取默认请求头())
ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
结束如果
是否收藏()
播放记录()
结束过程

事件 ok网页解析1.资源访问链接(url 为文本型)
如果寻找文本(url,"m3u8?",0) <> -1 或寻找文本(url,"mp4?",0) <> -1或寻找文本(url,".m3u8",0) <> -1或寻找文本(url,"video/m/",0) <> -1 则
ok网页解析1.停止()
Href(SuoYin) = url
开始播放()
关闭进度对话框()
否则如果寻找文本(url,".mp4",0) <> -1 则
如果寻找文本(url,"&pno=",0) <> -1 或寻找文本(url,"&fid=",0) <> -1 或寻找文本(url,"vod.do?fmt",0) <> -1 则
   ok网页解析1.停止()
   Href(SuoYin) = url
   开始播放()
   关闭进度对话框()
结束如果
结束如果
结束事件

变量记录对话为文本型
事件图片列表框1.表项被单击(项目索引为整数型)
如果是否直连=假则
   判断项目索引
   分支 0'收藏
      我的收藏()
分支 1'下载
公用模块.上窗口="窗口_播放"
ok金山播放器1.后台暂停播放()
显示状态栏()
幻1.系统_取消屏幕常亮()
公用模块.下载标题=标签_剧名.标题
   如果读取窗口("窗口_下载")=空则
         保存窗口("窗口_下载",创建窗口_下载)
   结束如果
   切换窗口(读取窗口("窗口_下载"))
分支 2'线路
   记录对话="换解析源"
      变量菜单a 为文本型() = 分割文本("解析线路⑴-解析线路⑵-解析线路⑶","-")
      仿IOS对话框1.弹出对话框6("请选择解析源","取消",菜单a,真)
分支 3
      记录对话="投屏"
      变量投屏为文本型() = 分割文本("选择设备-暂停播放-继续播放-停止播放","-")
      仿IOS对话框1.弹出对话框6("请选择视频源","取消",投屏,真)
分支 4
      记录对话="换视频源"
      仿IOS对话框1.弹出对话框6("请选择视频源","取消",Cn_Site,真)
结束判断
否则
   判断项目索引
   分支 0'收藏
      我的收藏()
   分支 1'下载
如果公用模块.直播信息 <> "" 则
      ok弹出提示1.弹出("直播来源,不支持下载",1,2)
否则如果公用模块.上个窗口="窗口_娱乐视频" 则
   ok弹出提示1.弹出("当前视频不支持下载",1,2)
否则
   公用模块.上窗口="窗口_播放"
      ok金山播放器1.后台暂停播放()
   显示状态栏()
   幻1.系统_取消屏幕常亮()
   公用模块.下载标题=标签_剧名.标题
         如果读取窗口("窗口_下载")=空则
               保存窗口("窗口_下载",创建窗口_下载)
      结束如果
      切换窗口(读取窗口("窗口_下载"))
结束如果
   分支 2'线路
      ok弹出提示1.弹出("直连播放,暂不可用",1,2)
   分支 3
      记录对话="投屏"
      变量投屏为文本型() = 分割文本("选择设备-暂停播放-继续播放-停止播放","-")
      仿IOS对话框1.弹出对话框6("请选择视频源","取消",投屏,真)
   分支 4
      ok弹出提示1.弹出("直连播放,暂不可用",1,2)
   结束判断
结束如果
结束事件

过程播放记录()
如果文件是否存在(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/JILU.ini") = 假则
创建文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/JILU.ini")
结束如果
变量记录文本为文本型=读入文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/JILU.ini","GBK")
如果寻找文本(记录文本,标签_剧名.标题,0)<>-1则
变量文本替换为文本型 =取指定文本2(记录文本,"@标题" & 标签_剧名.标题,"结束")
记录文本 = 子文本替换(记录文本,"@标题" & 标签_剧名.标题&文本替换 & "结束","")
写出文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/JILU.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 记录文本,"GBK")
否则
写出文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/JILU.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 记录文本,"GBK")
结束如果
结束过程

过程是否收藏()
如果文件是否存在(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini") = 假则
创建文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini")
结束如果
变量收藏为文本型=读入文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","GBK")
如果寻找文本(收藏,标签_剧名.标题,0)<>-1 则
图片列表框1.置项目图片(0,"yishoucang.png")
变量文本替换为文本型 =取指定文本2(收藏,"@标题" & 标签_剧名.标题,"结束")
收藏 = 子文本替换(收藏,"@标题" & 标签_剧名.标题&文本替换 & "结束","")
写出文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 收藏,"GBK")
否则
收藏图标()
结束如果
结束过程

过程我的收藏()
是否收藏()
变量收藏文本为文本型=读入文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","GBK")
如果寻找文本(收藏文本,标签_剧名.标题,0)<>-1则
收藏图标()
变量文本替换为文本型 =取指定文本2(收藏文本,"@标题" & 标签_剧名.标题,"结束")
收藏文本 = 子文本替换(收藏文本,"@标题" & 标签_剧名.标题 & 文本替换 & "结束","")
写出文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini",收藏文本,"GBK")
ok弹出提示1.弹出("取消收藏",1,1)
否则
图片列表框1.置项目图片(0,"yishoucang.png")
写出文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 收藏文本,"GBK")
ok弹出提示1.弹出("加入收藏",1,1)
结束如果
结束过程

事件仿IOS对话框1.弹出对话框6被单击(被单击位置为整数型)
判断记录对话
   分支 "换解析源"
   判断被单击位置
      分支 0
      加载过程()
      ok金山播放器1.停止播放()
            如果被单击位置 <> -1 则
                  公用模块.默认解析=公用模块.线路默认
               直连嗅探(Href(SuoYin))
            结束如果
      分支 1
      加载过程()
      ok金山播放器1.停止播放()
         如果被单击位置 <> -1 则
                  公用模块.默认解析=公用模块.线路1
               直连嗅探(Href(SuoYin))
            结束如果
      分支 2
      加载过程()
      ok金山播放器1.停止播放()
         如果被单击位置 <> -1 则
                  公用模块.默认解析=公用模块.线路2
               直连嗅探(Href(SuoYin))
            结束如果
   结束判断
   分支 "换视频源"
   判断取文本左边(公用模块.详细信息,3)
      分支 "/tv"
         如果被单击位置 <> -1 则
         加载过程()
         ok金山播放器1.停止播放()
         图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
         多线程_电视剧_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(被单击位置) & "&id=" & Id & "&category=" & Category,"UTF-8")
      否则

         结束如果
      分支 "/m/"
         如果被单击位置 <> -1 则
         加载过程()
         ok金山播放器1.停止播放()
         图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
            直连嗅探(Href(SuoYin))
      否则

         结束如果
      分支 "/va"
         如果被单击位置 <> -1 则
         加载过程()
         ok金山播放器1.停止播放()
         图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
         多线程_综艺_剧集.开始取网页源码2("http://www.360kan.com/cover/zongyilist?id=" & Id & "&site=" & En_Site(被单击位置) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
      否则

         结束如果
      分支 "/ct"
         如果被单击位置 <> -1 则 '
         加载过程()
         ok金山播放器1.停止播放()
         图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
         多线程_动漫_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(被单击位置) & "&id=" & Id & "&category=" & Category,"UTF-8")
      否则

         结束如果
      结束判断

   分支 "投屏"
   判断被单击位置
   分支 0
      DLNA投屏1.初始化()
      DLNA投屏1.搜索设备()
      DLNA投屏1.置投屏幕内容(Href(SuoYin))
   分支 1
      DLNA投屏1.暂停播放()
   分支 2
      DLNA投屏1.继续播放()
   分支 3
      DLNA投屏1.停止播放()
   结束判断
结束判断
结束事件

事件 ok新Tab特效_剧集.项目被点击(项目索引为整数型)
SuoYin = 项目索引
加载过程()
ok金山播放器1.停止播放()
判断取文本左边(公用模块.详细信息,3)
分支 "/tv"
   如果 Data_Num(项目索引)="正片" 则
ok金山播放器1.置分享可视(24,真)
   标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
   直连嗅探(Href(项目索引))
   否则
   如果寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
      标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
      直连嗅探(Href(项目索引))
   否则
   ok金山播放器1.置分享可视(24,假)
      标签7.标题="正在播放：" & Subtitle(项目索引)
      直连嗅探(Href(项目索引))
   结束如果
   结束如果
分支 "/m/"
   如果 Data_Num(项目索引)="正片" 则
ok金山播放器1.置分享可视(24,假)
   标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
   直连嗅探(Href(项目索引))
   否则
   如果寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
      ok金山播放器1.置分享可视(24,假)
      标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
      直连嗅探(Href(项目索引))
   否则
   ok金山播放器1.置分享可视(24,假)
      标签7.标题="正在播放：" & Subtitle(项目索引)
      直连嗅探(Href(项目索引))
   结束如果
   结束如果
分支 "/va"
   如果 Data_Num(项目索引)="正片" 则
ok金山播放器1.置分享可视(24,真)
   标签7.标题="正在播放：" & Data_Num(项目索引)
   直连嗅探(Href(项目索引))
   否则
   如果寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
      标签7.标题="正在播放：" & Data_Num(项目索引)
      直连嗅探(Href(项目索引))
   否则
   ok金山播放器1.置分享可视(24,真)
      标签7.标题="正在播放：" & Subtitle(项目索引)
      直连嗅探(Href(项目索引))
   结束如果
   结束如果
分支 "/ct"
   如果 Data_Num(项目索引)="正片" 则
ok金山播放器1.置分享可视(24,真)
   标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
   直连嗅探(Href(项目索引))
   否则
   如果寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
      标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
      直连嗅探(Href(项目索引))
   否则
   ok金山播放器1.置分享可视(24,真)
      标签7.标题="正在播放：" & Subtitle(项目索引)
      直连嗅探(Href(项目索引))
   结束如果
   结束如果
分支 "/in"
标签7.标题="正在播放：" & Data_Num(项目索引)
多线程_骑士电影.开始取网页源码2("http://v.zealol.com" & Href(项目索引),"UTF-8")
分支 "/?m"
如果寻找文本(Take_Out,"第",0)=-1 则
ok金山播放器1.置分享可视(24,假)
标签7.标题="正在播放：" & Data_Num(项目索引)
   否则
   ok金山播放器1.置分享可视(24,真)
标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
   结束如果
   开始播放()
结束判断
播放记录()
是否收藏()
结束事件

过程加载过程()
如果是否全屏=真则
图片框2.移动(0,0,取屏幕宽度(),取屏幕高度())
图片_加载.左边 = (取屏幕宽度()/2) - (图片_加载.宽度/2)
图片_加载.顶边 = (取屏幕高度()/2) - 图片_加载.高度
标签加载.左边 = (取屏幕宽度()/2) - (标签加载.宽度/2)
标签加载.顶边 = 取屏幕高度()/2
否则
图片框2.左边 = 0
图片框2.顶边 = 0
图片框2.宽度 = 取屏幕宽度()
图片框2.高度 = ok金山播放器1.高度
图片_加载.左边 = (取屏幕宽度()/2) - (图片_加载.宽度/2)
图片_加载.顶边 = (ok金山播放器1.高度/2) - 图片_加载.高度
标签加载.左边 = (取屏幕宽度()/2) - (标签加载.宽度/2)
标签加载.顶边 = ok金山播放器1.高度/2
结束如果

标签加载.标题 = "小时光为您加载中.."
标签加载.可视 = 真
图片框2.可视 = 真
图片_加载.到顶层()
图片_加载.可视 = 真
连接超时 = 15
时钟1.时钟周期 = 1000
结束过程

变量连接超时为整数型 = 15
事件时钟1.周期事件()
连接超时 = 连接超时 - 1
如果 ok金山播放器1.取播放状态() = 真则
时钟1.时钟周期 = 0
图片_加载.可视 = 假
标签加载.可视 = 假
图片框2.可视 = 假
如果公用模块.自动全屏 = 真则
   置屏幕方向(0)
结束如果
否则
判断连接超时
   分支 0
      ok弹出提示1.弹出("若长时间未播放,请切换来源",1,4)
结束判断
结束如果

结束事件

事件窗口_播放.按下某键(键代码为整数型,传址屏蔽为逻辑型)
如果键代码 = 返回键则
如果是否全屏=真则
   置屏幕方向(1)
   否则如果是否全屏=假则
      返回()
   结束如果
结束如果
结束事件

过程返回()
公用模块.详细信息=""
公用模块.直播信息 = ""
标签1.标题 =""
ok金山播放器1.停止播放()
时钟1.时钟周期 = 0

幻1.系统_取消屏幕常亮()
显示状态栏()
图片列表框1.可视 = 真

判断公用模块.上个窗口
分支 "窗口_首页"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_首页")=空则
   保存窗口("窗口_首页",创建窗口_首页)
   结束如果
   切换窗口(读取窗口("窗口_首页"))
分支 "窗口_影视"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_影视")=空则
   保存窗口("窗口_影视",创建窗口_影视)
   结束如果
   切换窗口(读取窗口("窗口_影视"))
分支 "窗口_搜索"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_搜索")=空则 '
   保存窗口("窗口_搜索",创建窗口_搜索)
   结束如果
   切换窗口(读取窗口("窗口_搜索"))
分支 "窗口_记录"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_记录")=空则
   保存窗口("窗口_记录",创建窗口_记录)
   结束如果
   切换窗口(读取窗口("窗口_记录")) '
分支 "窗口_收藏"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_收藏")=空则
   保存窗口("窗口_收藏",创建窗口_收藏)
   结束如果
   切换窗口(读取窗口("窗口_收藏"))
分支 "窗口_发现"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_发现")=空则
   保存窗口("窗口_发现",创建窗口_发现)
   结束如果
   切换窗口(读取窗口("窗口_发现"))
分支 "窗口_主播"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_主播")=空则
   保存窗口("窗口_主播",创建窗口_主播)
   结束如果
   切换窗口(读取窗口("窗口_主播"))
分支 "窗口_首页推荐"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_首页推荐")=空则
   保存窗口("窗口_首页推荐",创建窗口_首页推荐)
   结束如果
   切换窗口(读取窗口("窗口_首页推荐"))
分支 "窗口_福利"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_福利")=空则
      保存窗口("窗口_福利",创建窗口_福利)
   结束如果
   切换窗口(读取窗口("窗口_福利"))
分支 "窗口_超级福利"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_超级福利")=空则
      保存窗口("窗口_超级福利",创建窗口_超级福利)
   结束如果
   切换窗口(读取窗口("窗口_超级福利"))
分支 "窗口_娱乐视频"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_娱乐视频")=空则
      保存窗口("窗口_娱乐视频",创建窗口_娱乐视频)
   结束如果
   切换窗口(读取窗口("窗口_娱乐视频"))
分支 "窗口_午夜剧场"
   '窗口_播放.开启特效(3,600,假)
   如果读取窗口("窗口_午夜剧场")=空则
      保存窗口("窗口_午夜剧场",创建窗口_午夜剧场)
   结束如果
   切换窗口(读取窗口("窗口_午夜剧场"))
结束判断

标签加载.标题 = ""
图片框2.可视 = 真
结束过程

事件窗口_播放.屏幕方向被改变(屏幕方向为整数型)
判断屏幕方向
分支 0
   是否全屏 = 假
   隐藏状态栏()
   'ok金山播放器1.置分享可视(24,假)
   ok金山播放器1.左边 = 0
   ok金山播放器1.顶边 = 原本顶边
   ok金山播放器1.宽度 = 取屏幕宽度()
   ok金山播放器1.高度 = 原本高度
分支 1
   是否全屏 = 真
   隐藏状态栏()
   'ok金山播放器1.置分享可视(24,真)
   ok金山播放器1.左边 = 0
   ok金山播放器1.顶边 = 0
   ok金山播放器1.宽度 = 填充父
   ok金山播放器1.高度 = 取屏幕高度()
结束判断
结束事件

事件 ok金山播放器1.单击事件(v 为整数型)
判断 v
分支 0
   如果是否全屏=真则
      置屏幕方向(1)
   否则如果是否全屏=假则
         返回()
   结束如果
分支 5
   如果是否全屏=真则
      置屏幕方向(1)
   否则
   置屏幕方向(0)
   结束如果
分支 51
   下一集()
结束判断
结束事件

事件窗口_播放.程序被暂停()
ok金山播放器1.后台暂停播放()
结束事件

过程图标切换()
变量图标颜色为文本型

图片列表框1.清空项目()
判断公用模块.主题颜色
分支 &HFFfa7298'哔哩粉
   图标颜色 = "bilifen"

分支 &HFF1f96f2'知乎蓝
   图标颜色 = "zhihulan"

分支 &HFF0F9C57'酷安绿
   图标颜色 = "kuanlv"

分支 &HFFd33b30'网易红
   图标颜色 = "wangyihong"

分支 &HFFcc66cc'藤萝紫
   图标颜色 = "tengluozi"

分支 &HFF59b7c3'碧海蓝
   图标颜色 = "bihailan"

分支 &HFF89c348'樱草绿
   图标颜色 = "yingcaolv"

分支 &HFF75655a'咖啡棕
   图标颜色 = "kafeizong"

分支 &HFFd88100'柠檬橙
   图标颜色 = "ningmengcheng"

分支 &HFF374f59'星空灰
   图标颜色 = "xingkonghui"

分支 &HFFFFFFF
   图标颜色 = "yejian"

分支 &HFF3b3b3b'夜间模式
   图标颜色 = "yejian"

结束判断
图片列表框1.添加项目(图标颜色 & "_1.png","收藏")
图片列表框1.添加项目(图标颜色 & "_3.png","下载")
图片列表框1.添加项目(图标颜色 & "_xianlu.png","线路")
图片列表框1.添加项目(图标颜色 & "_touping.png","投屏")
图片列表框1.添加项目("c_no.png","来源")
结束过程

过程收藏图标()
判断公用模块.主题颜色
分支 &HFFfa7298'哔哩粉
      图片列表框1.置项目图片(0,"bilifen_1.png")

分支 &HFF1f96f2'知乎蓝
      图片列表框1.置项目图片(0,"zhihulan_1.png")

分支 &HFF0F9C57'酷安绿
      图片列表框1.置项目图片(0,"kuanlv_1.png")

分支 &HFFd33b30'网易红
      图片列表框1.置项目图片(0,"wangyihong_1.png")

分支 &HFFcc66cc'藤萝紫
      图片列表框1.置项目图片(0,"tengluozi_1.png")

分支 &HFF59b7c3'碧海蓝
      图片列表框1.置项目图片(0,"bihailan_1.png")

分支 &HFF89c348'樱草绿
      图片列表框1.置项目图片(0,"yingcaolv_1.png")

分支 &HFF75655a'咖啡棕
      图片列表框1.置项目图片(0,"kafeizong_1.png")

分支 &HFFd88100'柠檬橙
      图片列表框1.置项目图片(0,"ningmengcheng_1.png")

分支 &HFF374f59'星空灰
      图片列表框1.置项目图片(0,"xingkonghui_1.png")

分支 &HFFFFFFF
      图片列表框1.置项目图片(0,"yejian_1.png")

分支 &HFF3b3b3b'夜间模式
      图片列表框1.置项目图片(0,"yejian_1.png")

结束判断
结束过程

过程开始播放()
ok金山播放器1.刷新()
ok金山播放器1.播放视频(标签_剧名.标题,Href(SuoYin),"")
标签加载.可视 = 真
标签加载.标题 = "解析成功，即将播放..."

如果公用模块.自动下一集 = 真则
如果取数组成员数(Data_Num) > 1 则
时钟_下一集.时钟周期 = 1000
结束如果
否则
   时钟_下一集.时钟周期 = 0
结束如果
结束过程

事件时钟_下一集.周期事件()
如果 ok金山播放器1.取视频长度() > 0 则
如果 ok金山播放器1.取视频长度() - ok金山播放器1.取播放进度() < 公用模块.剩余时间 + 5000 则
   如果 ok金山播放器1.取视频长度() - ok金山播放器1.取播放进度() < 公用模块.剩余时间则
   如果取数组成员数(Data_Num) - SuoYin = 1 则
时钟_下一集.时钟周期 = 0
ok金山播放器1.暂停播放()
               ok金山播放器1.置播放进度(0)
如果是否全屏=真则
         置屏幕方向(1)
         图片框2.可视 = 真
   标签加载.可视 = 真
         标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
   否则
         图片框2.可视 = 真
   标签加载.可视 = 真
         标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
   结束如果
否则
下一集()
结束如果
结束如果
如果取数组成员数(Data_Num) - SuoYin <> 1 则
      弹出提示("即将自动播放下一集")
结束如果
结束如果
结束如果
结束事件

过程下一集()
如果取数组成员数(Data_Num) > 1 则
   如果取数组成员数(Data_Num) - SuoYin <> 1 则
   SuoYin = SuoYin + 1
      加载过程()
      ok金山播放器1.停止播放()
      ok新Tab特效_剧集.置现行选择项(SuoYin)
      判断取文本左边(公用模块.详细信息,3)
         分支 "/tv"
         如果 Data_Num(SuoYin)="正片" 则
ok金山播放器1.置分享可视(24,真)
            标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
            直连嗅探(Href(SuoYin))
         否则
            如果寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
               标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
               直连嗅探(Href(SuoYin))
            否则
      ok金山播放器1.置分享可视(24,假)
               标签7.标题="正在播放：" & Subtitle(SuoYin)
               直连嗅探(Href(SuoYin))
            结束如果
         结束如果
         分支 "/m/"
         如果 Data_Num(SuoYin)="正片" 则
ok金山播放器1.置分享可视(24,真)
            标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
            直连嗅探(Href(SuoYin))
         否则
            如果寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
               标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
               直连嗅探(Href(SuoYin))
            否则
      ok金山播放器1.置分享可视(24,假)
               标签7.标题="正在播放：" & Subtitle(SuoYin)
               直连嗅探(Href(SuoYin))
            结束如果
         结束如果
         分支 "/va"
         如果 Data_Num(SuoYin)="正片" 则
ok金山播放器1.置分享可视(24,真)
            标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
            直连嗅探(Href(SuoYin))
         否则
            如果寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
               标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
               直连嗅探(Href(SuoYin))
            否则
      ok金山播放器1.置分享可视(24,真)
               标签7.标题="正在播放：" & Subtitle(SuoYin)
               直连嗅探(Href(SuoYin))
            结束如果
         结束如果
         分支 "/ct"
         如果 Data_Num(SuoYin)="正片" 则
   ok金山播放器1.置分享可视(24,真)
            标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
            直连嗅探(Href(SuoYin))
         否则
            如果寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
   ok金山播放器1.置分享可视(24,真)
               标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
               直连嗅探(Href(SuoYin))
            否则
      ok金山播放器1.置分享可视(24,真)
               标签7.标题="正在播放：" & Subtitle(SuoYin)
               直连嗅探(Href(SuoYin))
            结束如果
         结束如果
         分支 "/in"
标签7.标题="正在播放：" & Data_Num(SuoYin)
多线程_骑士电影.开始取网页源码2("http://v.zealol.com" & Href(SuoYin),"UTF-8")
分支 "/?m"
   如果寻找文本(Take_Out,"第",0)=-1 则
      ok金山播放器1.置分享可视(24,假)
   标签7.标题="正在播放：" & Data_Num(SuoYin)
   否则
   ok金山播放器1.置分享可视(24,真)
   标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
   结束如果
开始播放()
      结束判断
否则
   ok弹出提示1.弹出("已经是最后一集了",1,4)
结束如果
否则
   如果是否全屏=真则
   置屏幕方向(1)
   图片框2.可视 = 真
   标签加载.可视 = 真
   标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
   否则
   图片框2.可视 = 真
   标签加载.可视 = 真
   标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
   结束如果
结束如果
结束过程

过程取记录剧集()
变量记录文本为文本型
判断公用模块.上个窗口
分支 "窗口_记录"
   记录文本 = 读入文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/JILU.ini","GBK")
   如果寻找文本(记录文本,标签_剧名.标题,0) <> -1 则
   公用模块.索引 = 到整数(取指定文本2(取指定文本2(记录文本,"@标题" & 标签_剧名.标题,"结束"),"<集数","集数尾"))
   结束如果
分支 "窗口_收藏"
   记录文本 = 读入文本文件(取存储卡路径() &"/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","GBK")
   如果寻找文本(记录文本,标签_剧名.标题,0) <> -1 则
   公用模块.索引 = 到整数(取指定文本2(取指定文本2(记录文本,"@标题" & 标签_剧名.标题,"结束"),"<集数","集数尾"))
   结束如果
结束判断
结束过程

朴妮唛 发表于 2020-1-1 17:53:03

黑屏用重构刷新一下即可

jywwlq 发表于 2020-1-1 18:38:03

朴妮唛发表于 2020-1-1 18:26
黑屏用重构刷新一下即可

小白不懂重构是神马意思啊能说说具体操作方式吗谢谢

jywwlq 发表于 2020-1-1 19:38:19

朴妮唛发表于 2020-1-1 18:26
黑屏用重构刷新一下即可

我添加了
ok金山播放器1.刷新()
ok金山播放器1.重构()
确实解决播放黑屏问题了
直连播放卡顿不晓得是神马问题还请大神告知一下谢谢

qq8945051q 发表于 2020-1-2 07:43:07

路过看看。。。。。

朴妮唛 发表于 2020-1-2 10:19:42

jywwlq 发表于 2020-1-1 14:38
我添加了
ok金山播放器1.刷新()
ok金山播放器1.重构()

直播源问题或者网络问题

yudave 发表于 2020-1-2 11:33:55

进来看看了解一下

chengwei5714869 发表于 2020-1-2 13:48:01

貌似这不是金山播放类库吧？听说跟壹壹播放类库一样难闹到手

jywwlq 发表于 2020-1-2 14:44:08

朴妮唛发表于 2020-1-2 10:19
直播源问题或者网络问题

用ok2018播放器是可以正常播放的替换了ok金山播放器就不行了

jywwlq 发表于 2020-1-2 14:45:47

chengwei5714869 发表于 2020-1-2 13:48
貌似这不是金山播放类库吧？听说跟壹壹播放类库一样难闹到手

不清楚我也不晓得真的金山播放器类库是啥样

页: [1] 2

易如意's Archiver

求解决ok2018播放器替换ok金山播放器的问题