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

jywwlq

直接在E4A里面把ok2018播放器替换成ok金山播放器了
测试的时候发现只有第一次播放可以显示画面
返回后播放就是黑屏只有声音无画面
然后就是直连M3U8地址的直播视频就会出现一只缓冲加载现象
本人小白一枚不知如何修改 下面附播放代码和ok金山播放器类库
希望大神帮忙解决一下 不胜感激！

1.   变量 图片 为 文本型
   
2.   变量 Id 为 文本型
   
3.   变量 Category 为 文本型
   
4.   变量 PlaySite 为 文本型
   
5.   变量 Cn_Site 为 文本型()
   
6.   变量 En_Site 为 文本型()
   
7.   变量 Data_Num 为 文本型()'播放标题/集数
   
8.   变量 Href 为 文本型()'播放页面地址
   
9.   变量 isByTime 为 文本型
   
10.   变量 Site 为 文本型
    
11.   变量 Subtitle 为 文本型()
    
12.   变量 清晰度 为 文本型()
    
13.   变量 参数1 为 文本型()
    
14.   变量 是否全屏 为 逻辑型 = 假
    
15.   变量 投屏地址 为 文本型
    
16.   变量 真实解析接口 为 文本型 = ""
    
17.   变量 状态栏高度 为 整数型 = 取状态栏高度()
    
18.   变量 SuoYin 为 整数型
    
19.   变量 是否直连 为 逻辑型
    
20.   变量 Take_Out 为 文本型
    
21.   变量 原本高度 为 整数型
    
22.   变量 原本顶边 为 整数型
    
23.        
    
24. 事件 窗口_播放.创建完毕()
    
25.   变量 剧集 为 文本型()
    
26.         图片_加载.置样式(2)
    
27.         图片_加载.置颜色(&HFF7897FE)
    
28.         图片_加载.置内边距(5)
    
29.         标签加载.字体颜色=&HFF7897FE
    
30.        
    
31.   
    
32.   剧集=分割文本("初始化中...","-")
    
33.   ok新Tab特效_剧集.初始内容(剧集)
    
34.   ok新Tab特效_剧集.置现行选择项(0)
    
35.   ok新Tab特效_剧集.置指示器位置(0)
    
36.   ok新Tab特效_剧集.背景颜色=无色
    
37.   ok新Tab特效_剧集.设置显示器(2)
    
38.   
    
39.   ok新Tab特效_剧集.置字体大小(12)
    
40.   ok新Tab特效_剧集.置选中字体颜色(白色)
    
41.   ok新Tab特效_剧集.置指示器圆角弧度(10)
    
42.   图片列表框1.置项目样式(R.layout_play_menulist)
    
43.   图片列表框1.自动拉伸高度(真)
    
44.        
    
45.         如果 公用模块.颜色id = 10 则
    
46.                 ok新Tab特效_剧集.置指示器颜色(灰色)
    
47.         ok新Tab特效_剧集.置未选中字体颜色(灰色)
    
48.         否则
    
49.                 ok新Tab特效_剧集.置指示器颜色(公用模块.主题颜色)
    
50.         ok新Tab特效_剧集.置未选中字体颜色(公用模块.主题颜色)
    
51.         结束 如果
    
52. 
    
53.   标签_简介正文.添加滚动条()
    
54.   ok网页解析1.初始化("")
    
55.   原本高度 = ok金山播放器1.高度
    
56.   原本顶边 = ok金山播放器1.顶边
    
57.        
    
58.   'ok金山播放器1.初始化("a96fca7b5fdf4f528c4e7fd9dd02f431")
    
59.   ok金山播放器1.置分享可视(0,假)
    
60.   ok金山播放器1.置分享可视(1,假)
    
61.   ok金山播放器1.置分享可视(2,假)
    
62.   ok金山播放器1.置分享可视(3,假)
    
63.   ok金山播放器1.置分享可视(4,假)
    
64.   ok金山播放器1.置分享可视(5,假)
    
65.   ok金山播放器1.置分享可视(6,假)
    
66.   ok金山播放器1.置分享可视(7,假)
    
67.   ok金山播放器1.置分享可视(8,假)
    
68.   ok金山播放器1.置分享可视(9,假)
    
69.   ok金山播放器1.置分享可视(10,真)
    
70.   ok金山播放器1.置分享可视(11,假)
    
71.   ok金山播放器1.置分享可视(12,真)
    
72.   ok金山播放器1.置分享可视(13,假)
    
73.   ok金山播放器1.置分享可视(14,真)
    
74.   ok金山播放器1.置分享可视(15,真)
    
75.   ok金山播放器1.置分享可视(16,真)
    
76.   ok金山播放器1.置分享可视(17,真)
    
77.   ok金山播放器1.置分享可视(18,真)
    
78.   ok金山播放器1.置分享可视(19,真)
    
79.   ok金山播放器1.置分享可视(20,真)
    
80.   ok金山播放器1.置分享可视(21,真)
    
81.   ok金山播放器1.置分享可视(23,真)
    
82.   ok金山播放器1.置分享可视(24,假)
    
83.   ok金山播放器1.背景颜色 = 黑色
    
84. 结束 事件
    
85. 事件 窗口_播放.切换完毕()
    
86.         隐藏状态栏()
    
87.         优化内存()
    
88.         ok金山播放器1.置缓冲可视(真)
    
89. 如果 公用模块.下载标记 ="窗口_下载" 则
    
90.          幻1.系统_保持屏幕常亮()
    
91.          ok金山播放器1.继续播放()
    
92.          公用模块.下载标记 =""
    
93. 否则
    
94.   加载过程()
    
95.   图标切换()
    
96.   SuoYin = 0
    
97.   公用模块.默认解析=公用模块.线路默认
    
98.        
    
99.         如果 公用模块.颜色id = 10 则
    
100.                 ok新Tab特效_剧集.置指示器颜色(&HFFEA7500)
     
101.         ok新Tab特效_剧集.置未选中字体颜色(灰色)
     
102.         否则
     
103.                 ok新Tab特效_剧集.置指示器颜色(公用模块.主题颜色)
     
104.         ok新Tab特效_剧集.置未选中字体颜色(公用模块.主题颜色)
     
105.         结束 如果
     
106.   标签_剧集.可视=真
     
107.   ok新Tab特效_剧集.可视=真
     
108.   标签_简介正文.可视=真
     
109.   标签_剧名.标题=""
     
110.   标签_评分.标题=""
     
111.   ok新Tab特效_剧集.初始内容(分割文本("初始化中...","-"))
     
112.   标签_简介正文.标题 = "本APP提供的最新电影资源均系收集于各大视频网站，本APP只提供采集页面服务，并不提供影片资源存储，也不参与录制、上传。"
     
113.   幻1.系统_保持屏幕常亮()
     
114.   如果 公用模块.直播信息 = "" 则
     
115.     判断 取文本左边(公用模块.详细信息,3)
     
116.       分支 "/tv"
     
117.         是否直连 = 假
     
118.         多线程_电视剧.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
     
119.       分支 "/m/"
     
120.         是否直连 = 假
     
121.         多线程_电影.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
     
122.       分支 "/va"
     
123.         是否直连 = 假
     
124.         多线程_综艺.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
     
125.       分支 "/ct"
     
126.         是否直连 = 假
     
127.         多线程_动漫.开始取网页源码2("http://www.360kan.com" & 公用模块.详细信息,"UTF-8")
     
128.       分支 "vid"
     
129.         是否直连 = 真
     
130.             多线程_娱乐.开始取网页源码2("http://www.pearvideo.com/" & 公用模块.详细信息,"UTF-8")  
     
131.           分支 "/in"
     
132.                 是否直连 = 真
     
133.                 多线程_骑士电影a.开始取网页源码2("http://v.zealol.com" & 公用模块.详细信息,"UTF-8")
     
134.       分支 "/?m"
     
135.         是否直连 = 真
     
136.             多线程_超级福利.开始取网页源码2("https://www.okzy.co" & 公用模块.详细信息,"UTF-8")
     
137.         
     
138.     结束 判断
     
139.   否则  
     
140.     是否直连=真
     
141.         ok金山播放器1.刷新()
     
142.     ok金山播放器1.置分享可视(24,假)
     
143.         ok金山播放器1.置缓冲可视(假)
     
144.         ok金山播放器1.播放视频(公用模块.标题,公用模块.直播信息,"")
     
145.     标签_剧名.标题 = 公用模块.标题
     
146.     ok新Tab特效_剧集.初始内容(分割文本("直播","-"))
     
147.     标签_简介正文.标题 = 公用模块.标题 & "\n" & "1.直播来源于网络" & "\n" & "2.本直播不支持评论.点赞.等功能"
     
148.     标签7.标题 = "正在播放：" & 公用模块.标题
     
149.   结束 如果
     
150.         打开数据库(取存储卡路径() & "/" & 公用模块.文件夹地址 & "/mydata.db")
     
151. 结束 如果
     
152. 结束 事件
     
153. 
     
154. 事件 多线程_娱乐.取网页源码2完毕(源码 为 文本型)
     
155.   变量 时间 为 文本型,播放量 为 文本型,来源 为 文本型,简介 为 文本型,截取源码 为 文本型
     
156.   
     
157.   截取源码 = 取指定文本2(源码,"<div class="details-content fix-width-center">","<h3>扫二维码分享</h3>")
     
158.   标签_剧名.标题 = 取指定文本2(截取源码,"<h1 class="video-tt">","</h1>")
     
159.   标签7.标题 = "正在播放：梨视频"
     
160.   ok新Tab特效_剧集.初始内容(分割文本(标签_剧名.标题,"-"))
     
161.   时间 = 取指定文本2(截取源码," <div class="date">","</div>")
     
162.   播放量 = 取指定文本2(取指定文本2(截取源码," <div class="fav"","/div>"),">","<")
     
163.   来源 = 取指定文本2(截取源码," <p class="copy-right-clare">","</p>")
     
164.   简介 = 取指定文本2(截取源码," <div class="summary">","</div>")
     
165.   图片 = 公用模块.娱乐图片
     
166.   标签_简介正文.标题 = "时间：" & 时间 & "\n\n播放量：" & 播放量 & "\n\n" & 来源 & "\n\n简介：" & 简介
     
167.     ok金山播放器1.刷新()
     
168.         ok金山播放器1.置分享可视(24,假)
     
169.     ok金山播放器1.播放视频(标签_剧名.标题,取指定文本2(源码,"srcUrl="","""),"")
     
170. 结束 事件
     
171. 
     
172. 事件 多线程_电视剧.取网页源码2完毕(源码 为 文本型)
     
173.   变量 剧名 为 文本型
     
174.   变量 评分 为 文本型
     
175.   变量 类型 为 文本型
     
176.   变量 年代 为 文本型
     
177.   变量 地区 为 文本型
     
178.   变量 导演 为 文本型
     
179.   变量 临时 为 文本型()
     
180.   变量 演员 为 文本型
     
181.   变量 影片介绍 为 文本型
     
182.   变量 循环变量 为 整数型
     
183.   变量 循环变量1 为 整数型=1
     
184.   变量 临时1 为 文本型()
     
185.   标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
     
186.   标签_评分.标题=取指定文本2(源码,"<span class="s">","</span>")
     
187.   临时1=取指定文本(取指定文本2(源码,"类型 ：</span>","</p>"),"">","</")
     
188.   类型=临时1(0)
     
189.   判断循环首 循环变量1 < 取数组成员数(临时1)
     
190.     类型=类型 & "/" & 临时1(循环变量1)
     
191.     循环变量1=循环变量1 + 1
     
192.   判断循环尾
     
193.   年代=取指定文本2(源码,"年代 ：</span>","</p>")
     
194.   地区=取指定文本2(源码,"地区 ：</span>","</p>")
     
195.   导演=取指定文本2(取指定文本2(源码,"导演 ：</span>","</p>"),"">","</a>")
     
196.   图片=取指定文本2(取指定文本2(源码,"monitor-desc="大海报"","<div class="s-top-right">"),"<img src="","">")
     
197.   
     
198.   临时=取指定文本(取指定文本2(源码,"演员 ：</span>","</p>"),"">","</a>")
     
199.   判断循环首 循环变量  < 取数组成员数(临时)
     
200.     演员=演员 & " " & 临时(循环变量)
     
201.     循环变量=循环变量+1
     
202.   判断循环尾
     
203.   影片介绍=取指定文本2(源码,"style="display:none;"><span>简介 ：</span><p class="item-desc">","<a href="#" class="js-close btn">")
     
204.   标签_简介正文.标题="类型：" & 类型 & "    \n\n年代：" & 年代 & "    \n\n地区：" & 地区 & "    \n\n导演：" & 导演 & "\n\n演员：" & 演员 & "\n\n影片介绍：" & 影片介绍
     
205.   
     
206.   Id=取指定文本2(源码,"id: '","',")
     
207.   Category=取指定文本2(源码,"cat: '","',")
     
208. 
     
209.   PlaySite=子文本替换(子文本替换(取指定文本2(源码,"playsite:","playtype:"),"}],","}]}"),"[{"","{"LeiMing":[{"")
     
210.   Cn_Site = 分割文本(JSON解析(PlaySite,"LeiMing","cnsite",3),"\n")
     
211.   En_Site = 分割文本(JSON解析(PlaySite,"LeiMing","ensite",3) ,"\n")
     
212.   
     
213.   图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
     
214.   多线程_电视剧_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(0) & "&id=" & Id & "&category=" & Category,"UTF-8")
     
215. 结束 事件
     
216. 
     
217. 事件 多线程_电视剧_剧集.取网页源码2完毕(源码 为 文本型)
     
218.   变量 Take_Out 为 文本型
     
219.   如果 寻找文本(源码,"display:block",0)=-1 则
     
220.     Take_Out=源码
     
221.   否则
     
222.     Take_Out=取指定文本2(源码,"display:block","succ")
     
223.   结束 如果
     
224.   Take_Out=子文本替换(Take_Out,"\\"",""")
     
225.   Take_Out=子文本替换(Take_Out,"\\/","/")
     
226.   Data_Num=取指定文本(Take_Out,"data-num="",""")'播放标题/集数
     
227.   Href=取指定文本(Take_Out,"href="","">")'播放页面地址
     
228.   ok新Tab特效_剧集.初始内容(Data_Num)
     
229.   
     
230.   取记录剧集()
     
231.   如果 公用模块.索引 > 0 则
     
232.     SuoYin = 公用模块.索引
     
233.     公用模块.索引 = 0
     
234.   结束 如果
     
235.   ok新Tab特效_剧集.置现行选择项(SuoYin)
     
236.   ok新Tab特效_剧集.置指示器位置(SuoYin)
     
237.   ok金山播放器1.置分享可视(24,真)
     
238.   标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
     
239.   直连嗅探(Href(SuoYin))
     
240. 结束 事件
     
241. 
     
242. 事件 多线程_电影.取网页源码2完毕(源码 为 文本型)
     
243.   变量 剧名 为 文本型
     
244.   变量 评分 为 文本型
     
245.   变量 类型 为 文本型
     
246.   变量 年代 为 文本型
     
247.   变量 地区 为 文本型
     
248.   变量 导演 为 文本型
     
249.   变量 临时 为 文本型()
     
250.   变量 演员 为 文本型
     
251.   变量 影片介绍 为 文本型
     
252.   变量 循环变量 为 整数型
     
253.   变量 循环变量1 为 整数型=1
     
254.   变量 临时1 为 文本型()
     
255.   标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
     
256.   标签_评分.标题=取指定文本2(源码,"<span class="s">","</span>")
     
257.   临时1=取指定文本(取指定文本2(源码,"类型 ：</span>","</p>"),"">","</")
     
258.   类型=临时1(0)
     
259.   判断循环首 循环变量1 < 取数组成员数(临时1)
     
260.     类型=类型 & "/" & 临时1(循环变量1)
     
261.     循环变量1=循环变量1 + 1
     
262.   判断循环尾
     
263.   年代=取指定文本2(源码,"年代 ：</span>","</p>")
     
264.   地区=取指定文本2(源码,"地区 ：</span>","</p>")
     
265.   图片=取指定文本2(源码,"地区 ：</span>","</p>")
     
266.   导演=取指定文本2(取指定文本2(源码,"导演 ：</span>","</p>"),"">","</a>")
     
267.   图片=取指定文本2(取指定文本2(源码,"monitor-desc="大海报"","<div class="top-right">"),"<img src="","">")
     
268.   临时=取指定文本(取指定文本2(源码,"演员 ：</span>","</p>"),"">","</a>")
     
269.   判断循环首 循环变量  < 取数组成员数(临时)
     
270.     演员=演员 & " " & 临时(循环变量)
     
271.     循环变量=循环变量+1
     
272.   判断循环尾
     
273.   影片介绍=取指定文本2(源码,"style="display:none;"><span>简介 ：</span><p class="item-desc">","<a href="#" class="js-close btn">")
     
274.   标签_简介正文.标题="类型：" & 类型 & "    \n\n年代：" & 年代 & "    \n\n地区：" & 地区 & "    \n\n导演：" & 导演 & "\n\n演员：" & 演员 & "\n\n影片介绍：" & 影片介绍
     
275.   
     
276.   变量 计次循环 为 整数型 = 0
     
277.   变量 Take_Out 为 文本型
     
278.   变量 中文名称 为 文本型
     
279.   变量 英文名称 为 文本型
     
280.   变量 地址 为 文本型
     
281. 
     
282.   如果 寻找文本(源码,"无播放源",0)<>-1 则
     
283.     弹出提示("无播放源")
     
284.   否则
     
285.     Take_Out=取指定文本2(源码,"站点排序","visibility:hidden")
     
286.     创建表达式("<a data-daochu=(.*?) class=(.*?) href=(.*?)>(.*?)</a>",真,真)
     
287.     开始匹配(Take_Out)
     
288.     判断循环首 匹配下一个()
     
289.       中文名称=中文名称 & 子文本替换(取子匹配文本(4) & "\n",""","")
     
290.       英文名称=英文名称 & 取指定文本2(取子匹配文本(1),""to=",""") &"\n"
     
291.       地址=地址 & 子文本替换(取子匹配文本(3) & "\n",""","")
     
292.       计次循环 = 计次循环 + 1
     
293.     判断循环尾
     
294.     Data_Num=分割文本("正片-","-")
     
295.     Cn_Site = 分割文本(中文名称,"\n")
     
296.     En_Site = 分割文本(英文名称,"\n")
     
297.     Href = 分割文本(地址,"\n")
     
298.     图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
     
299.     ok新Tab特效_剧集.初始内容(Data_Num)
     
300.     ok新Tab特效_剧集.置现行选择项(0)
     
301.     ok新Tab特效_剧集.置指示器位置(0)
     
302.         ok金山播放器1.置分享可视(24,假)
     
303.     标签7.标题="正在播放：" & Data_Num(0)
     
304.     直连嗅探(Href(SuoYin))
     
305.   结束 如果
     
306. 结束 事件
     
307. 
     
308. 事件 多线程_综艺.取网页源码2完毕(源码 为 文本型)
     
309.   变量 剧名 为 文本型
     
310.   变量 最新 为 文本型
     
311.   变量 类型 为 文本型
     
312.   变量 年代 为 文本型
     
313.   变量 地区 为 文本型
     
314.   变量 播出 为 文本型
     
315.   变量 临时 为 文本型()
     
316.   变量 主持 为 文本型
     
317.   变量 影片介绍 为 文本型
     
318.   变量 循环变量 为 整数型
     
319.   变量 循环变量1 为 整数型=1
     
320.   变量 临时1 为 文本型()
     
321.   变量 源码1 为 文本型
     
322.   标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
     
323.   标签_评分.标题=""
     
324.   最新=取指定文本2(源码,"<p class="tag">","</p>")
     
325.   临时1=取指定文本(取指定文本2(源码,"类型 ：</span>","</p>"),"">","</")
     
326.   类型=临时1(0)
     
327.   判断循环首 循环变量1 < 取数组成员数(临时1)
     
328.     类型=类型 & "/" & 临时1(循环变量1)
     
329.     循环变量1=循环变量1 + 1
     
330.   判断循环尾
     
331.   年代=取指定文本2(源码,"年代 ：</span>","</p>")
     
332.   地区=取指定文本2(源码,"地区 ：</span>","</p>")
     
333.   播出=取指定文本2(源码,"播出 ：</span>","</p>")
     
334.   图片=取指定文本2(取指定文本2(源码,"monitor-desc="大海报"","<div class="top-right">"),"<img src="","">")
     
335.   临时=取指定文本(取指定文本2(源码,"明星 ：</span>","</p>"),"">","</a>")
     
336.   判断循环首 循环变量  < 取数组成员数(临时)
     
337.     主持=主持 & " " & 临时(循环变量)
     
338.     循环变量=循环变量+1
     
339.   判断循环尾
     
340.   影片介绍=取指定文本2(源码,"style="display:none;"><span>简介 ：</span><p class="item-desc">","<a href="#" class="js-close btn">")
     
341.   标签_简介正文.标题="最新：" & 最新 & "\n\n类型：" & 类型 & "   \n\n年代：" & 年代 & "    \n\n地区：" & 地区 & "\n\n播出：" & 播出 & "    \n\n主持：" & 主持 & "\n\n影片介绍：" & 影片介绍
     
342. 
     
343.   Id=取指定文本2(源码,"id : '","',")
     
344.   isByTime=取指定文本2(源码,"isByTime : ",",")
     
345.   Site=取指定文本2(源码,"site:'","'")
     
346.   
     
347.   变量 计次循环 为 整数型 = 0
     
348.   变量 Take_Out 为 文本型
     
349.   变量 中文名称 为 文本型
     
350.   变量 英文名称 为 文本型
     
351.   
     
352.   如果 寻找文本(源码,"zd-down js-zdmore-list",0)=-1 则
     
353.     Take_Out=取指定文本2(源码,"now-site js-now-site","</div>")
     
354.     中文名称=取指定文本2(Take_Out,"btn">","</span>")
     
355.     Cn_Site=分割文本(中文名称 & "-","-")
     
356.     En_Site=分割文本(Site & "-","-")
     
357.     图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
     
358.     多线程_综艺_剧集.开始取网页源码2("http://www.360kan.com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
     
359.   否则
     
360.     Take_Out=取指定文本2(源码,"zd-down js-zdmore-list","</ul>")
     
361.     创建表达式("<li><a data-cn=(.*?) data-site=(.*?) class=(.*?) href="####">(.*?)</a></li>",真,真)
     
362.     开始匹配(Take_Out)
     
363.     判断循环首 匹配下一个()
     
364.       中文名称=中文名称 & 子文本替换(取子匹配文本(1) & "\n",""","")
     
365.         英文名称=英文名称 & 子文本替换(取子匹配文本(2) & "\n",""","")
     
366.       计次循环 = 计次循环 + 1
     
367.     判断循环尾
     
368.     Cn_Site = 分割文本(中文名称,"\n")
     
369.     En_Site = 分割文本(英文名称,"\n")
     
370.     图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
     
371.     多线程_综艺_剧集.开始取网页源码2("http://www.360kan.com/cover/zongyilist?id=" & Id & "&site=" & En_Site(0) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
     
372.   结束 如果
     
373. 结束 事件
     
374. 
     
375. 事件 多线程_综艺_剧集.取网页源码2完毕(源码 为 文本型)
     
376.   变量 计次循环 为 整数型 = 0
     
377.   变量 标题 为 文本型
     
378.   变量 副标 为 文本型
     
379.   变量 地址 为 文本型
     
380.   变量 源码1 为 文本型
     
381.   
     
382.   源码1=UCS2解码(子文本替换(源码,"\\/","/"))
     
383.   Href=取指定文本(源码1,"href=\'","\' data-daochu=to")
     
384.   Subtitle=取指定文本(源码1,"w-newfigure-hint\'>","<\/span>")
     
385.   Data_Num=取指定文本(源码1,"alt=\'","'")
     
386.   ok新Tab特效_剧集.初始内容(Data_Num)
     
387.   
     
388.   取记录剧集()
     
389.   如果 公用模块.索引 > 0 则
     
390.     SuoYin = 公用模块.索引
     
391.     公用模块.索引 = 0
     
392.   结束 如果
     
393.   ok新Tab特效_剧集.置现行选择项(SuoYin)
     
394.   ok新Tab特效_剧集.置指示器位置(SuoYin)
     
395.   ok金山播放器1.置分享可视(24,真)
     
396.   标签7.标题="正在播放：" & Data_Num(SuoYin)
     
397.   直连嗅探(Href(SuoYin))
     
398. 结束 事件
     
399. 
     
400. 事件 多线程_动漫.取网页源码2完毕(源码 为 文本型)
     
401.   变量 剧名 为 文本型
     
402.   变量 类型 为 文本型
     
403.   变量 年代 为 文本型
     
404.   变量 地区 为 文本型
     
405.   变量 导演 为 文本型
     
406.   变量 临时 为 文本型()
     
407.   变量 人物 为 文本型
     
408.   变量 影片介绍 为 文本型
     
409.   变量 循环变量 为 整数型
     
410.   变量 循环变量1 为 整数型=1
     
411.   变量 临时1 为 文本型()
     
412.   变量 临时2 为 文本型()
     
413.   标签_剧名.标题=取指定文本2(源码,"<h1>","</h1>")
     
414.   标签_评分.标题=""
     
415.   临时1=取指定文本(取指定文本2(源码,"类型 ：</span>","</p>"),"">","</")
     
416.   类型=临时1(0)
     
417.   判断循环首 循环变量1 < 取数组成员数(临时1)
     
418.       类型=类型 & "/" & 临时1(循环变量1)
     
419.     循环变量1=循环变量1 + 1
     
420.   判断循环尾
     
421. 
     
422.   年代=取指定文本2(源码,"年代 ：</span>","</p>")
     
423.   地区=取指定文本2(取指定文本2(源码,"地区 ：</span>","</p>"),"target="_blank">","</a>")
     
424.   导演=取指定文本2(取指定文本2(源码,"导演 ：</span>","</p>"),"">","</a>")
     
425.   图片=取指定文本2(取指定文本2(源码,"monitor-desc="大海报"","<div class="m-top-right">"),"<img src="",""")
     
426.   临时=取指定文本(取指定文本2(源码,"人物 ：</span>","</p>"),"">","</a>")
     
427.   判断循环首 循环变量  < 取数组成员数(临时)
     
428.     人物=人物 & " " & 临时(循环变量)
     
429.     循环变量=循环变量+1
     
430.   判断循环尾
     
431.   影片介绍=取指定文本2(源码,"style="display:none;"><span>简介 ：</span><p class="item-desc">","<a href="#" class="js-close btn">")
     
432.   标签_简介正文.标题="类型：" & 类型 & "    \n\n年代：" & 年代 & "    \n\n地区：" & 地区 & "    \n\n导演：" & 导演 & "\n\n人物：" & 人物 & "\n\n影片介绍：" & 影片介绍
     
433.   
     
434.   Id=取指定文本2(源码,"id: '","',")
     
435.   Category=取指定文本2(源码,"cat: '","',")
     
436. 
     
437.   PlaySite=子文本替换(子文本替换(取指定文本2(源码,"playsite:","site:"),"}],","}]}"),"[{"","{"LeiMing":[{"")
     
438.   Cn_Site = 分割文本(JSON解析(PlaySite,"LeiMing","cnsite",3),"\n")
     
439.   En_Site = 分割文本(JSON解析(PlaySite,"LeiMing","ensite",3) ,"\n")
     
440.   图片列表框1.置项目图片(4,"c_" & En_Site(0) & ".png")
     
441.   
     
442.   多线程_动漫_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(0) & "&id=" & Id & "&category=" & Category,"UTF-8")
     
443. 结束 事件
     
444. 
     
445. 事件 多线程_动漫_剧集.取网页源码2完毕(源码 为 文本型)
     
446.   变量 Take_Out 为 文本型
     
447.   如果 寻找文本(源码,"display:block",0)=-1 则
     
448.     Take_Out=源码
     
449.   否则
     
450.     Take_Out=取指定文本2(源码,"display:block","succ")
     
451.   结束 如果
     
452.   Take_Out=子文本替换(Take_Out,"\\"",""")
     
453.   Take_Out=子文本替换(Take_Out,"\\/","/")
     
454.   Data_Num=取指定文本(Take_Out,"data-num="",""")'播放标题/集数
     
455.   Href=取指定文本(Take_Out,"href="","">")'播放页面地址
     
456.   ok新Tab特效_剧集.初始内容(Data_Num)
     
457.   
     
458.   取记录剧集()
     
459.   如果 公用模块.索引 > 0 则
     
460.     SuoYin = 公用模块.索引
     
461.     公用模块.索引 = 0
     
462.   结束 如果
     
463.   ok新Tab特效_剧集.置现行选择项(SuoYin)
     
464.   ok新Tab特效_剧集.置指示器位置(SuoYin)
     
465.   ok金山播放器1.置分享可视(24,真)
     
466.   标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
     
467.   直连嗅探(Href(SuoYin))
     
468. 结束 事件
     
469. 
     
470. 事件 多线程_骑士电影a.取网页源码2完毕(源码 为 文本型)
     
471.         变量 截取源码 为 文本型
     
472.         变量 中文名称 为 文本型
     
473.         变量 类型 为 文本型
     
474.         变量 年代 为 文本型
     
475.         变量 地区 为 文本型
     
476.         变量 导演 为 文本型
     
477.         变量 演员 为 文本型
     
478.         变量 临时 为 文本型()
     
479.         变量 循环变量 为 整数型
     
480.         变量 介绍 为 文本型
     
481.        
     
482.         截取源码 = 取指定文本2(源码,"<div class="play-ail clearfix">","<script language="javascript">")
     
483.         Cn_Site = 分割文本(中文名称,"\n")
     
484.         En_Site = 分割文本("no","\n")
     
485.         Data_Num = 取指定文本(取指定文本2(源码,"<ul class="macplus-content__playlist column8 clearfix fade in active" id="con_playlist_1">","</ul>"),"">","</a>")
     
486.         Href = 取指定文本(取指定文本2(源码,"<ul class="macplus-content__playlist column8 clearfix fade in active" id="con_playlist_1">","</ul>"),"<li><a href="",""")
     
487.         ok新Tab特效_剧集.初始内容(Data_Num)
     
488.         标签_剧名.标题 = 取指定文本2(源码,"<h1 class="title text-overflow">","</h1>")
     
489.         图片列表框1.置项目图片(4,"c_no.png")
     
490.         图片 = 取指定文本2(源码,"data-original="",""")
     
491.        
     
492.         类型 = 取指定文本2(取指定文本2(截取源码,"类型：</span>","</p>"),"target="_blank">","</a>")
     
493.         年代 = 取指定文本2(取指定文本2(截取源码,"年代：</span>","</p>"),"target="_blank">","</a>")
     
494.         地区 = 取指定文本2(取指定文本2(截取源码,"地区：</span>","</p>"),"target="_blank">","</a>")
     
495.         导演 = 取指定文本2(取指定文本2(截取源码,"导演：</span>","</p>"),"target="_blank">","</a>")
     
496.         介绍 = 取指定文本2(取指定文本2(截取源码,"简介：</span>","</p>"),"class="macplus-cText">","</span>")
     
497.         临时 = 取指定文本(取指定文本2(截取源码,"主演：</span>","</p>"),"target="_blank">","</a>")
     
498.         判断循环首 循环变量        < 取数组成员数(临时)
     
499.                 演员 = 演员 & " " & 临时(循环变量)
     
500.                 循环变量 = 循环变量+1
     
501.         判断循环尾
     
502.         如果 演员 = "" 则
     
503.                 演员 = "暂无数据"
     
504.         结束 如果
     
505.         标签_简介正文.标题 = "类型：" & 类型 & "    \n\n年代：" & 年代 & "    \n\n地区：" & 地区 & "    \n\n导演：" & 导演 & "\n\n演员：" & 演员 & "\n\n影片介绍：" & 介绍
     
506.        
     
507.         取记录剧集()
     
508.         如果 公用模块.索引 > 0 则
     
509.                 SuoYin = 公用模块.索引
     
510.                 公用模块.索引 = 0
     
511.         结束 如果
     
512.         ok新Tab特效_剧集.置现行选择项(SuoYin)
     
513.         ok新Tab特效_剧集.置指示器位置(SuoYin)
     
514.         ok金山播放器1.置分享可视(24,假)
     
515.         标签7.标题="正在播放：" & Data_Num(SuoYin)
     
516.         多线程_骑士电影.开始取网页源码2("http://v.zealol.com" & Href(SuoYin),"UTF-8")
     
517. 结束 事件
     
518. 
     
519. 事件 多线程_骑士电影.取网页源码2完毕(源码 为 文本型)
     
520.         变量 地址 为 文本型
     
521. 
     
522.         地址 = 取指定文本2(取指定文本2(源码,"<script type="text/javascript">var player_data=","<script type="text/javascript""),""url":"",""")
     
523. 
     
524.         如果 寻找文本(地址,"m3u8",0)<>-1 则
     
525.                 Href(SuoYin) = 子文本替换(地址,"\","")
     
526.                 开始播放()
     
527.         否则
     
528.                 ok网页解析1.跳转("http://v.zealol.com" & Href(SuoYin))
     
529.         结束 如果
     
530. 
     
531.         是否收藏()
     
532.         播放记录()
     
533. 结束 事件
     
534. 
     
535. 事件 多线程_超级福利.取网页源码2完毕(源码 为 文本型)
     
536.     变量 地址 为 文本型
     
537.         变量 数组地址 为 文本型()
     
538.         变量 中文名称 为 文本型
     
539.   
     
540.     变量 剧名 为 文本型
     
541.         变量 评分 为 文本型       
     
542.         变量 类型 为 文本型       
     
543.         变量 年代 为 文本型
     
544.         变量 地区 为 文本型
     
545.         变量 导演 为 文本型
     
546.         变量 演员 为 文本型
     
547.         变量 影片介绍 为 文本型
     
548.         变量 循环变量 为 整数型
     
549.         如果 源码 = "" 则
     
550.                 弹出提示("读取资源失败！")
     
551.                 退出
     
552.         结束 如果
     
553.         类型=取指定文本2(源码,"类型：<span>"," </span></li>")
     
554.         年代=取指定文本2(源码,"上映：<span>","</span></li>")
     
555.         地区=取指定文本2(源码,"地区：<span>","</span></li>")
     
556.         导演=取指定文本2(源码,"导演：<span>","</span></li>")
     
557.         演员=取指定文本2(源码,"主演：<span>","</span></li>")
     
558.         影片介绍=取指定文本2(源码,"txt="","</span>  -->")
     
559.         标签_简介正文.标题="类型：" & 类型 & "    \n\n年代：" & 年代 & "    \n\n地区：" & 地区 & "    \n\n导演：" & 导演 & "\n\n人物：" & 演员 & "\n\n影片介绍：" & 影片介绍
     
560.   
     
561.         标签_剧名.标题=取指定文本2(源码,"<h2>","</h2>")
     
562.        
     
563.         Take_Out=取指定文本2(源码,"ckm3u8</span></h3>","<input type="checkbox" name="checkbox")
     
564.         Cn_Site = 分割文本(中文名称,"\n")
     
565.         En_Site = 分割文本("no","\n")
     
566.         如果 寻找文本(Take_Out,"第",0)=-1 则
     
567.                 Data_Num=取指定文本(Take_Out,"checked="" />","$http")
     
568.         否则
     
569.                 Data_Num=取指定文本(Take_Out,"checked="" />第","集$http")
     
570.         结束 如果
     
571.         图片列表框1.置项目图片(4,"c_no.png")
     
572.         ok新Tab特效_剧集.初始内容(Data_Num)
     
573.         Href = 取指定文本(Take_Out,"value="","" checked=")
     
574.        
     
575.         取记录剧集()
     
576.         如果 公用模块.索引 > 0 则
     
577.                 SuoYin = 公用模块.索引
     
578.                 公用模块.索引 = 0
     
579.         结束 如果
     
580.        
     
581.         ok新Tab特效_剧集.置现行选择项(SuoYin)
     
582.         ok新Tab特效_剧集.置指示器位置(SuoYin)
     
583.         如果 寻找文本(Take_Out,"第",0)=-1 则
     
584.                     ok金山播放器1.置分享可视(24,假)
     
585.                         标签7.标题="正在播放：" & Data_Num(SuoYin)
     
586.                        
     
587.     否则
     
588.                 ok金山播放器1.置分享可视(24,真)
     
589.                         标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
     
590.         结束 如果
     
591.         开始播放()
     
592.         是否收藏()
     
593.         播放记录()
     
594. 结束 事件
     
595. 
     
596. 变量 SUOYIN 为 整数型 =0
     
597. 变量 分割地址 为 文本型()
     
598. 过程 直连嗅探(网址 为 文本型)
     
599.   标签1.标题 = ""
     
600.   分割地址 =分割文本(网址,"html?")
     
601.   如果 En_Site(SUOYIN) = "qiyi" 则
     
602.     ok网页解析1.置请求头(ok网页解析1.取默认请求头())
     
603.     ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
     
604.   否则如果 En_Site(SUOYIN) = "qq" 则
     
605.     ok网页解析1.置请求头(ok网页解析1.取默认请求头())
     
606.     ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
     
607.     标签1.标题 = "解析有时比较慢,请耐心等待~"
     
608.   否则如果 En_Site(SUOYIN) = "youku" 则  
     
609.     ok网页解析1.置请求头(ok网页解析1.取默认请求头())
     
610.     ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
     
611.   否则如果 En_Site(SUOYIN) = "imgo" 则
     
612.     ok网页解析1.置请求头(ok网页解析1.取默认请求头())
     
613.     ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
     
614.   否则
     
615.     ok网页解析1.置请求头(ok网页解析1.取默认请求头())
     
616.     ok网页解析1.跳转(公用模块.默认解析 & 分割地址(0)&"html")
     
617.   结束 如果
     
618.   是否收藏()
     
619.   播放记录()
     
620. 结束 过程
     
621. 
     
622. 事件 ok网页解析1.资源访问链接(url 为 文本型)
     
623.   如果 寻找文本(url,"m3u8?",0) <> -1 或 寻找文本(url,"mp4?",0) <> -1或 寻找文本(url,".m3u8",0) <> -1或 寻找文本(url,"video/m/",0) <> -1 则
     
624.     ok网页解析1.停止()
     
625.     Href(SuoYin) = url
     
626.     开始播放()
     
627.     关闭进度对话框()
     
628.   否则如果 寻找文本(url,".mp4",0) <> -1 则
     
629.     如果 寻找文本(url,"&pno=",0) <> -1 或 寻找文本(url,"&fid=",0) <> -1 或 寻找文本(url,"vod.do?fmt",0) <> -1 则
     
630.       ok网页解析1.停止()
     
631.       Href(SuoYin) = url
     
632.       开始播放()
     
633.       关闭进度对话框()
     
634.     结束 如果
     
635.   结束 如果
     
636. 结束 事件
     
637. 
     
638. 变量 记录对话 为 文本型
     
639. 事件 图片列表框1.表项被单击(项目索引 为 整数型)
     
640.   如果 是否直连=假 则
     
641.       判断 项目索引
     
642.         分支 0'收藏
     
643.           我的收藏()
     
644.         分支 1'下载
     
645.                 公用模块.上窗口="窗口_播放"
     
646.                 ok金山播放器1.后台暂停播放()
     
647.                 显示状态栏()
     
648.                 幻1.系统_取消屏幕常亮()
     
649.                 公用模块.下载标题=标签_剧名.标题
     
650.         如果 读取窗口("窗口_下载")=空 则
     
651.              保存窗口("窗口_下载",创建 窗口_下载)
     
652.             结束 如果
     
653.             切换窗口(读取窗口("窗口_下载"))
     
654.     分支 2'线路
     
655.         记录对话="换解析源"
     
656.           变量 菜单a 为 文本型() = 分割文本("解析线路⑴-解析线路⑵-解析线路⑶","-")
     
657.           仿IOS对话框1.弹出对话框6("请选择解析源","取消",菜单a,真)
     
658.     分支 3
     
659.           记录对话="投屏"
     
660.           变量 投屏 为 文本型() = 分割文本("选择设备-暂停播放-继续播放-停止播放","-")
     
661.           仿IOS对话框1.弹出对话框6("请选择视频源","取消",投屏,真)
     
662.     分支 4
     
663.           记录对话="换视频源"
     
664.           仿IOS对话框1.弹出对话框6("请选择视频源","取消",Cn_Site,真)
     
665.     结束 判断
     
666.   否则
     
667.       判断 项目索引
     
668.         分支 0'收藏
     
669.           我的收藏()
     
670.             分支 1'下载
     
671.                         如果 公用模块.直播信息 <> "" 则
     
672.                       ok弹出提示1.弹出("直播来源,不支持下载",1,2)
     
673.                         否则如果 公用模块.上个窗口="窗口_娱乐视频" 则
     
674.                            ok弹出提示1.弹出("当前视频不支持下载",1,2)
     
675.                         否则
     
676.                           公用模块.上窗口="窗口_播放"
     
677.                       ok金山播放器1.后台暂停播放()
     
678.                           显示状态栏()
     
679.                           幻1.系统_取消屏幕常亮()
     
680.                           公用模块.下载标题=标签_剧名.标题
     
681.                   如果 读取窗口("窗口_下载")=空 则
     
682.                        保存窗口("窗口_下载",创建 窗口_下载)
     
683.                       结束 如果
     
684.                       切换窗口(读取窗口("窗口_下载"))
     
685.                         结束 如果
     
686.         分支 2'线路
     
687.            ok弹出提示1.弹出("直连播放,暂不可用",1,2)
     
688.         分支 3
     
689.           记录对话="投屏"
     
690.           变量 投屏 为 文本型() = 分割文本("选择设备-暂停播放-继续播放-停止播放","-")
     
691.           仿IOS对话框1.弹出对话框6("请选择视频源","取消",投屏,真)
     
692.         分支 4
     
693.           ok弹出提示1.弹出("直连播放,暂不可用",1,2)
     
694.       结束 判断
     
695.   结束 如果
     
696. 结束 事件
     
697. 
     
698. 过程 播放记录()
     
699.   如果 文件是否存在(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/JILU.ini") = 假 则
     
700.     创建文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/JILU.ini")
     
701.     结束 如果
     
702.   变量 记录文本 为 文本型  =读入文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/JILU.ini","GBK")
     
703.   如果 寻找文本(记录文本,标签_剧名.标题,0)<>-1则
     
704.     变量 文本替换 为 文本型 =取指定文本2(记录文本,"@标题" & 标签_剧名.标题,"结束")
     
705.     记录文本 = 子文本替换(记录文本,"@标题" & 标签_剧名.标题&文本替换 & "结束","")
     
706.     写出文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/JILU.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 记录文本,"GBK")
     
707.   否则
     
708.     写出文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/JILU.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 记录文本,"GBK")
     
709.   结束 如果
     
710. 结束 过程
     
711. 
     
712. 过程 是否收藏()
     
713.   如果 文件是否存在(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini") = 假 则
     
714.     创建文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini")
     
715.     结束 如果
     
716.   变量 收藏 为 文本型  =读入文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","GBK")
     
717.   如果 寻找文本(收藏,标签_剧名.标题,0)<>-1 则
     
718.     图片列表框1.置项目图片(0,"yishoucang.png")
     
719.     变量 文本替换 为 文本型 =取指定文本2(收藏,"@标题" & 标签_剧名.标题,"结束")
     
720.     收藏 = 子文本替换(收藏,"@标题" & 标签_剧名.标题&文本替换 & "结束","")
     
721.     写出文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 收藏,"GBK")
     
722.   否则
     
723.     收藏图标()
     
724.   结束 如果
     
725. 结束 过程
     
726. 
     
727. 过程 我的收藏()
     
728.   是否收藏()
     
729.   变量 收藏文本 为 文本型  =读入文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","GBK")
     
730.   如果 寻找文本(收藏文本,标签_剧名.标题,0)<>-1则
     
731.     收藏图标()
     
732.     变量 文本替换 为 文本型 =取指定文本2(收藏文本,"@标题" & 标签_剧名.标题,"结束")
     
733.     收藏文本 = 子文本替换(收藏文本,"@标题" & 标签_剧名.标题 & 文本替换 & "结束","")
     
734.     写出文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini",收藏文本,"GBK")
     
735.      ok弹出提示1.弹出("取消收藏",1,1)
     
736.   否则
     
737.     图片列表框1.置项目图片(0,"yishoucang.png")
     
738.     写出文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","@标题" & 标签_剧名.标题 & "标题尾<地址" & 公用模块.详细信息 & "地址尾<图片" & 图片 & "图片尾<剧集" & ok新Tab特效_剧集.取项目标题(SuoYin) & "剧集尾<集数" & 整数到文本(SuoYin) & "集数尾<@结束" & "\n" & 收藏文本,"GBK")
     
739.      ok弹出提示1.弹出("加入收藏",1,1)
     
740.   结束 如果
     
741. 结束 过程
     
742. 
     
743. 事件 仿IOS对话框1.弹出对话框6被单击(被单击位置 为 整数型)
     
744.     判断 记录对话
     
745.       分支 "换解析源"
     
746.         判断 被单击位置
     
747.           分支 0
     
748.           加载过程()
     
749.           ok金山播放器1.停止播放()
     
750.                 如果 被单击位置 <> -1 则
     
751.                       公用模块.默认解析=公用模块.线路默认
     
752.                   直连嗅探(Href(SuoYin))
     
753.                 结束 如果
     
754.           分支 1
     
755.           加载过程()
     
756.           ok金山播放器1.停止播放()
     
757.             如果 被单击位置 <> -1 则
     
758.                       公用模块.默认解析=公用模块.线路1
     
759.                   直连嗅探(Href(SuoYin))
     
760.                 结束 如果
     
761.           分支 2
     
762.           加载过程()
     
763.           ok金山播放器1.停止播放()
     
764.             如果 被单击位置 <> -1 则
     
765.                       公用模块.默认解析=公用模块.线路2
     
766.                   直连嗅探(Href(SuoYin))
     
767.                 结束 如果
     
768.       结束 判断  
     
769.       分支 "换视频源"
     
770.         判断 取文本左边(公用模块.详细信息,3)
     
771.           分支 "/tv"
     
772.             如果 被单击位置 <> -1 则
     
773.             加载过程()
     
774.             ok金山播放器1.停止播放()
     
775.               图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
     
776.               多线程_电视剧_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(被单击位置) & "&id=" & Id & "&category=" & Category,"UTF-8")
     
777.           否则
     
778.               
     
779.             结束 如果
     
780.           分支 "/m/"
     
781.             如果 被单击位置 <> -1 则
     
782.             加载过程()
     
783.             ok金山播放器1.停止播放()
     
784.               图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
     
785.                 直连嗅探(Href(SuoYin))
     
786.           否则
     
787.               
     
788.             结束 如果
     
789.           分支 "/va"
     
790.             如果 被单击位置 <> -1 则
     
791.             加载过程()
     
792.             ok金山播放器1.停止播放()
     
793.               图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
     
794.               多线程_综艺_剧集.开始取网页源码2("http://www.360kan.com/cover/zongyilist?id=" & Id & "&site=" & En_Site(被单击位置) & "&do=switchsite&isByTime=" & isByTime,"UTF-8")
     
795.           否则
     
796.               
     
797.             结束 如果
     
798.           分支 "/ct"
     
799.             如果 被单击位置 <> -1 则 '
     
800.             加载过程()
     
801.             ok金山播放器1.停止播放()
     
802.               图片列表框1.置项目图片(4,"c_" & En_Site(被单击位置) & ".png")
     
803.               多线程_动漫_剧集.开始取网页源码2("http://www.360kan.com/cover/switchsite?site=" & En_Site(被单击位置) & "&id=" & Id & "&category=" & Category,"UTF-8")
     
804.           否则
     
805.               
     
806.             结束 如果
     
807.           结束 判断
     
808.            
     
809.       分支 "投屏"
     
810.       判断 被单击位置
     
811.         分支 0
     
812.           DLNA投屏1.初始化()
     
813.           DLNA投屏1.搜索设备()
     
814.           DLNA投屏1.置投屏幕内容(Href(SuoYin))
     
815.         分支 1  
     
816.           DLNA投屏1.暂停播放()
     
817.         分支 2  
     
818.           DLNA投屏1.继续播放()
     
819.         分支 3  
     
820.           DLNA投屏1.停止播放()  
     
821.       结束 判断
     
822.     结束 判断
     
823. 结束 事件
     
824. 
     
825. 事件 ok新Tab特效_剧集.项目被点击(项目索引 为 整数型)
     
826.   SuoYin = 项目索引
     
827.   加载过程()
     
828.   ok金山播放器1.停止播放()
     
829.   判断 取文本左边(公用模块.详细信息,3)
     
830.     分支 "/tv"
     
831.       如果 Data_Num(项目索引)="正片" 则
     
832.                 ok金山播放器1.置分享可视(24,真)   
     
833.         标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
834.         直连嗅探(Href(项目索引))
     
835.       否则
     
836.         如果 寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
     
837.                   ok金山播放器1.置分享可视(24,真)  
     
838.           标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
839.           直连嗅探(Href(项目索引))
     
840.         否则
     
841.                   ok金山播放器1.置分享可视(24,假)   
     
842.           标签7.标题="正在播放：" & Subtitle(项目索引)
     
843.           直连嗅探(Href(项目索引))
     
844.         结束 如果
     
845.       结束 如果
     
846.     分支 "/m/"
     
847.       如果 Data_Num(项目索引)="正片" 则
     
848.                 ok金山播放器1.置分享可视(24,假)
     
849.         标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
850.         直连嗅探(Href(项目索引))
     
851.       否则
     
852.         如果 寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
     
853.               ok金山播放器1.置分享可视(24,假)  
     
854.           标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
855.           直连嗅探(Href(项目索引))
     
856.         否则
     
857.                   ok金山播放器1.置分享可视(24,假)   
     
858.           标签7.标题="正在播放：" & Subtitle(项目索引)
     
859.           直连嗅探(Href(项目索引))
     
860.         结束 如果
     
861.       结束 如果
     
862.     分支 "/va"
     
863.       如果 Data_Num(项目索引)="正片" 则
     
864.                 ok金山播放器1.置分享可视(24,真)  
     
865.         标签7.标题="正在播放：" & Data_Num(项目索引)
     
866.         直连嗅探(Href(项目索引))
     
867.       否则
     
868.         如果 寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
     
869.                   ok金山播放器1.置分享可视(24,真)  
     
870.           标签7.标题="正在播放：" & Data_Num(项目索引)
     
871.           直连嗅探(Href(项目索引))
     
872.         否则
     
873.                   ok金山播放器1.置分享可视(24,真)
     
874.           标签7.标题="正在播放：" & Subtitle(项目索引)
     
875.           直连嗅探(Href(项目索引))
     
876.         结束 如果
     
877.       结束 如果
     
878.     分支 "/ct"
     
879.       如果 Data_Num(项目索引)="正片" 则
     
880.                 ok金山播放器1.置分享可视(24,真)  
     
881.         标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
882.         直连嗅探(Href(项目索引))
     
883.       否则
     
884.         如果 寻找文本(Data_Num(项目索引),"第",0)=-1 则 '
     
885.                   ok金山播放器1.置分享可视(24,真)  
     
886.           标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
887.           直连嗅探(Href(项目索引))
     
888.         否则
     
889.                   ok金山播放器1.置分享可视(24,真)
     
890.           标签7.标题="正在播放：" & Subtitle(项目索引)
     
891.           直连嗅探(Href(项目索引))
     
892.         结束 如果
     
893.       结束 如果
     
894.         分支 "/in"
     
895.                         标签7.标题="正在播放：" & Data_Num(项目索引)
     
896.                         多线程_骑士电影.开始取网页源码2("http://v.zealol.com" & Href(项目索引),"UTF-8")
     
897.         分支 "/?m"
     
898.                 如果 寻找文本(Take_Out,"第",0)=-1 则
     
899.                         ok金山播放器1.置分享可视(24,假)   
     
900.                         标签7.标题="正在播放：" & Data_Num(项目索引)
     
901.         否则
     
902.                     ok金山播放器1.置分享可视(24,真)  
     
903.                         标签7.标题="正在播放：第" & Data_Num(项目索引) & "集"
     
904.             结束 如果
     
905.             开始播放()
     
906.   结束 判断
     
907.   播放记录()
     
908.   是否收藏()
     
909. 结束 事件
     
910. 
     
911. 过程 加载过程()
     
912.         如果 是否全屏=真 则
     
913.                 图片框2.移动(0,0,取屏幕宽度(),取屏幕高度())
     
914.                 图片_加载.左边 = (取屏幕宽度()/2) - (图片_加载.宽度/2)
     
915.                 图片_加载.顶边 = (取屏幕高度()/2) - 图片_加载.高度
     
916.                 标签加载.左边 = (取屏幕宽度()/2) - (标签加载.宽度/2)
     
917.                 标签加载.顶边 = 取屏幕高度()/2
     
918.         否则
     
919.                 图片框2.左边 = 0
     
920.                 图片框2.顶边 = 0
     
921.                 图片框2.宽度 = 取屏幕宽度()
     
922.                 图片框2.高度 = ok金山播放器1.高度
     
923.                 图片_加载.左边 = (取屏幕宽度()/2) - (图片_加载.宽度/2)
     
924.                 图片_加载.顶边 = (ok金山播放器1.高度/2) - 图片_加载.高度
     
925.                 标签加载.左边 = (取屏幕宽度()/2) - (标签加载.宽度/2)
     
926.                 标签加载.顶边 = ok金山播放器1.高度/2
     
927.         结束 如果
     
928.        
     
929.         标签加载.标题 = "小时光为您加载中.."
     
930.     标签加载.可视 = 真
     
931.     图片框2.可视 = 真
     
932.         图片_加载.到顶层()
     
933.         图片_加载.可视 = 真
     
934.     连接超时 = 15
     
935.     时钟1.时钟周期 = 1000
     
936. 结束 过程
     
937. 
     
938. 变量 连接超时 为 整数型 = 15
     
939. 事件 时钟1.周期事件()
     
940.   连接超时 = 连接超时 - 1
     
941.   如果 ok金山播放器1.取播放状态() = 真 则
     
942.     时钟1.时钟周期 = 0
     
943.         图片_加载.可视 = 假
     
944.         标签加载.可视 = 假
     
945.     图片框2.可视 = 假
     
946.     如果 公用模块.自动全屏 = 真 则
     
947.       置屏幕方向(0)
     
948.     结束 如果
     
949.   否则
     
950.     判断 连接超时
     
951.         分支 0
     
952.            ok弹出提示1.弹出("若长时间未播放,请切换来源",1,4)
     
953.     结束 判断
     
954.   结束 如果
     
955.   
     
956. 结束 事件
     
957. 
     
958. 事件 窗口_播放.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
     
959.   如果 键代码 = 返回键 则
     
960.     如果 是否全屏=真 则
     
961.         置屏幕方向(1)
     
962.       否则如果 是否全屏=假 则
     
963.           返回()
     
964.       结束 如果
     
965.   结束 如果
     
966. 结束 事件
     
967. 
     
968. 过程 返回()
     
969.   公用模块.详细信息=""
     
970.   公用模块.直播信息 = ""
     
971.   标签1.标题 =""
     
972.   ok金山播放器1.停止播放()
     
973.   时钟1.时钟周期 = 0
     
974.   
     
975.   幻1.系统_取消屏幕常亮()
     
976.   显示状态栏()
     
977.   图片列表框1.可视 = 真
     
978.   
     
979.   判断 公用模块.上个窗口
     
980.     分支 "窗口_首页"
     
981.       '窗口_播放.开启特效(3,600,假)
     
982.       如果 读取窗口("窗口_首页")=空 则
     
983.         保存窗口("窗口_首页",创建 窗口_首页)
     
984.       结束 如果
     
985.       切换窗口(读取窗口("窗口_首页"))
     
986.     分支 "窗口_影视"
     
987.       '窗口_播放.开启特效(3,600,假)
     
988.       如果 读取窗口("窗口_影视")=空 则
     
989.         保存窗口("窗口_影视",创建 窗口_影视)
     
990.       结束 如果
     
991.       切换窗口(读取窗口("窗口_影视"))
     
992.     分支 "窗口_搜索"
     
993.       '窗口_播放.开启特效(3,600,假)
     
994.       如果 读取窗口("窗口_搜索")=空 则 '
     
995.         保存窗口("窗口_搜索",创建 窗口_搜索)
     
996.       结束 如果
     
997.       切换窗口(读取窗口("窗口_搜索"))
     
998.     分支 "窗口_记录"
     
999.       '窗口_播放.开启特效(3,600,假)
     
1000.       如果 读取窗口("窗口_记录")=空 则
      
1001.         保存窗口("窗口_记录",创建 窗口_记录)
      
1002.       结束 如果
      
1003.       切换窗口(读取窗口("窗口_记录")) '
      
1004.     分支 "窗口_收藏"
      
1005.       '窗口_播放.开启特效(3,600,假)
      
1006.       如果 读取窗口("窗口_收藏")=空 则
      
1007.         保存窗口("窗口_收藏",创建 窗口_收藏)
      
1008.       结束 如果
      
1009.       切换窗口(读取窗口("窗口_收藏"))
      
1010.     分支 "窗口_发现"
      
1011.       '窗口_播放.开启特效(3,600,假)
      
1012.       如果 读取窗口("窗口_发现")=空 则
      
1013.         保存窗口("窗口_发现",创建 窗口_发现)
      
1014.       结束 如果
      
1015.       切换窗口(读取窗口("窗口_发现"))
      
1016.     分支 "窗口_主播"
      
1017.       '窗口_播放.开启特效(3,600,假)
      
1018.       如果 读取窗口("窗口_主播")=空 则
      
1019.         保存窗口("窗口_主播",创建 窗口_主播)
      
1020.       结束 如果
      
1021.       切换窗口(读取窗口("窗口_主播"))
      
1022.     分支 "窗口_首页推荐"
      
1023.       '窗口_播放.开启特效(3,600,假)
      
1024.       如果 读取窗口("窗口_首页推荐")=空 则
      
1025.         保存窗口("窗口_首页推荐",创建 窗口_首页推荐)
      
1026.       结束 如果
      
1027.       切换窗口(读取窗口("窗口_首页推荐"))
      
1028.     分支 "窗口_福利"
      
1029.       '窗口_播放.开启特效(3,600,假)
      
1030.       如果 读取窗口("窗口_福利")=空 则
      
1031.           保存窗口("窗口_福利",创建 窗口_福利)
      
1032.       结束 如果
      
1033.       切换窗口(读取窗口("窗口_福利"))
      
1034.     分支 "窗口_超级福利"
      
1035.       '窗口_播放.开启特效(3,600,假)
      
1036.       如果 读取窗口("窗口_超级福利")=空 则
      
1037.           保存窗口("窗口_超级福利",创建 窗口_超级福利)
      
1038.       结束 如果
      
1039.       切换窗口(读取窗口("窗口_超级福利"))
      
1040.     分支 "窗口_娱乐视频"
      
1041.       '窗口_播放.开启特效(3,600,假)
      
1042.       如果 读取窗口("窗口_娱乐视频")=空 则
      
1043.           保存窗口("窗口_娱乐视频",创建 窗口_娱乐视频)
      
1044.       结束 如果
      
1045.           切换窗口(读取窗口("窗口_娱乐视频"))
      
1046.         分支 "窗口_午夜剧场"
      
1047.       '窗口_播放.开启特效(3,600,假)
      
1048.       如果 读取窗口("窗口_午夜剧场")=空 则
      
1049.           保存窗口("窗口_午夜剧场",创建 窗口_午夜剧场)
      
1050.       结束 如果
      
1051.       切换窗口(读取窗口("窗口_午夜剧场"))  
      
1052.   结束 判断
      
1053. 
      
1054.   标签加载.标题 = ""
      
1055.   图片框2.可视 = 真
      
1056. 结束 过程
      
1057. 
      
1058. 事件 窗口_播放.屏幕方向被改变(屏幕方向 为 整数型)
      
1059.   判断 屏幕方向
      
1060.     分支 0
      
1061.       是否全屏 = 假
      
1062.       隐藏状态栏()
      
1063.       'ok金山播放器1.置分享可视(24,假)
      
1064.       ok金山播放器1.左边 = 0
      
1065.       ok金山播放器1.顶边 = 原本顶边
      
1066.       ok金山播放器1.宽度 = 取屏幕宽度()
      
1067.       ok金山播放器1.高度 = 原本高度
      
1068.     分支 1
      
1069.       是否全屏 = 真
      
1070.       隐藏状态栏()
      
1071.           'ok金山播放器1.置分享可视(24,真)
      
1072.           ok金山播放器1.左边 = 0
      
1073.       ok金山播放器1.顶边 = 0
      
1074.       ok金山播放器1.宽度 = 填充父
      
1075.       ok金山播放器1.高度 = 取屏幕高度()
      
1076.   结束 判断
      
1077. 结束 事件
      
1078. 
      
1079. 事件 ok金山播放器1.单击事件(v 为 整数型)
      
1080.   判断 v
      
1081.     分支 0
      
1082.       如果 是否全屏=真 则
      
1083.           置屏幕方向(1)
      
1084.         否则如果 是否全屏=假 则
      
1085.             返回()
      
1086.         结束 如果
      
1087.     分支 5
      
1088.       如果 是否全屏=真 则
      
1089.              置屏幕方向(1)
      
1090.       否则
      
1091.         置屏幕方向(0)
      
1092.           结束 如果
      
1093.         分支 51
      
1094.       下一集()
      
1095.   结束 判断
      
1096. 结束 事件
      
1097. 
      
1098. 事件 窗口_播放.程序被暂停()
      
1099.   ok金山播放器1.后台暂停播放()
      
1100. 结束 事件
      
1101. 
      
1102. 过程 图标切换()
      
1103.   变量 图标颜色 为 文本型
      
1104.   
      
1105.   图片列表框1.清空项目()
      
1106.   判断 公用模块.主题颜色
      
1107.     分支 &HFFfa7298  '哔哩粉
      
1108.       图标颜色 = "bilifen"
      
1109.          
      
1110.     分支 &HFF1f96f2  '知乎蓝
      
1111.       图标颜色 = "zhihulan"
      
1112.          
      
1113.     分支 &HFF0F9C57  '酷安绿
      
1114.       图标颜色 = "kuanlv"
      
1115.          
      
1116.     分支 &HFFd33b30  '网易红
      
1117.       图标颜色 = "wangyihong"
      
1118.          
      
1119.     分支 &HFFcc66cc  '藤萝紫
      
1120.       图标颜色 = "tengluozi"
      
1121.          
      
1122.     分支 &HFF59b7c3  '碧海蓝
      
1123.       图标颜色 = "bihailan"
      
1124.          
      
1125.     分支 &HFF89c348  '樱草绿
      
1126.       图标颜色 = "yingcaolv"
      
1127.          
      
1128.     分支 &HFF75655a  '咖啡棕
      
1129.       图标颜色 = "kafeizong"
      
1130.          
      
1131.     分支 &HFFd88100  '柠檬橙
      
1132.       图标颜色 = "ningmengcheng"
      
1133.          
      
1134.     分支 &HFF374f59  '星空灰
      
1135.       图标颜色 = "xingkonghui"
      
1136.          
      
1137.     分支 &HFFFFFFF
      
1138.       图标颜色 = "yejian"
      
1139.          
      
1140.     分支 &HFF3b3b3b  '夜间模式
      
1141.       图标颜色 = "yejian"
      
1142.             
      
1143.   结束 判断
      
1144.     图片列表框1.添加项目(图标颜色 & "_1.png","收藏")
      
1145.     图片列表框1.添加项目(图标颜色 & "_3.png","下载")
      
1146.     图片列表框1.添加项目(图标颜色 & "_xianlu.png","线路")
      
1147.     图片列表框1.添加项目(图标颜色 & "_touping.png","投屏")
      
1148.     图片列表框1.添加项目("c_no.png","来源")
      
1149. 结束 过程
      
1150. 
      
1151. 过程 收藏图标()
      
1152.     判断 公用模块.主题颜色
      
1153.     分支 &HFFfa7298  '哔哩粉
      
1154.           图片列表框1.置项目图片(0,"bilifen_1.png")
      
1155.         
      
1156.     分支 &HFF1f96f2  '知乎蓝
      
1157.           图片列表框1.置项目图片(0,"zhihulan_1.png")
      
1158.          
      
1159.     分支 &HFF0F9C57  '酷安绿
      
1160.           图片列表框1.置项目图片(0,"kuanlv_1.png")
      
1161.          
      
1162.     分支 &HFFd33b30  '网易红
      
1163.           图片列表框1.置项目图片(0,"wangyihong_1.png")
      
1164.       
      
1165.     分支 &HFFcc66cc  '藤萝紫
      
1166.           图片列表框1.置项目图片(0,"tengluozi_1.png")
      
1167.         
      
1168.     分支 &HFF59b7c3  '碧海蓝
      
1169.           图片列表框1.置项目图片(0,"bihailan_1.png")
      
1170.       
      
1171.     分支 &HFF89c348  '樱草绿
      
1172.           图片列表框1.置项目图片(0,"yingcaolv_1.png")
      
1173.         
      
1174.     分支 &HFF75655a  '咖啡棕
      
1175.           图片列表框1.置项目图片(0,"kafeizong_1.png")
      
1176.          
      
1177.     分支 &HFFd88100  '柠檬橙
      
1178.           图片列表框1.置项目图片(0,"ningmengcheng_1.png")
      
1179.         
      
1180.     分支 &HFF374f59  '星空灰
      
1181.           图片列表框1.置项目图片(0,"xingkonghui_1.png")
      
1182.       
      
1183.     分支 &HFFFFFFF
      
1184.           图片列表框1.置项目图片(0,"yejian_1.png")
      
1185.       
      
1186.     分支 &HFF3b3b3b  '夜间模式
      
1187.           图片列表框1.置项目图片(0,"yejian_1.png")
      
1188.          
      
1189.   结束 判断
      
1190. 结束 过程
      
1191. 
      
1192. 过程 开始播放()
      
1193.         ok金山播放器1.刷新()
      
1194.         ok金山播放器1.播放视频(标签_剧名.标题,Href(SuoYin),"")
      
1195.         标签加载.可视 = 真
      
1196.         标签加载.标题 = "解析成功，即将播放..."
      
1197.        
      
1198.         如果 公用模块.自动下一集 = 真 则
      
1199.                 如果 取数组成员数(Data_Num) > 1 则
      
1200.                         时钟_下一集.时钟周期 = 1000
      
1201.                 结束 如果
      
1202.         否则
      
1203.             时钟_下一集.时钟周期 = 0
      
1204.         结束 如果
      
1205. 结束 过程
      
1206. 
      
1207. 事件 时钟_下一集.周期事件()
      
1208.         如果 ok金山播放器1.取视频长度() > 0 则
      
1209.                 如果 ok金山播放器1.取视频长度() - ok金山播放器1.取播放进度() < 公用模块.剩余时间 + 5000 则
      
1210.                     如果 ok金山播放器1.取视频长度() - ok金山播放器1.取播放进度() < 公用模块.剩余时间 则
      
1211.                            如果 取数组成员数(Data_Num) - SuoYin = 1 则
      
1212.                                         时钟_下一集.时钟周期 = 0
      
1213.                                         ok金山播放器1.暂停播放()
      
1214.                         ok金山播放器1.置播放进度(0)
      
1215.                                         如果 是否全屏=真 则
      
1216.                                         置屏幕方向(1)
      
1217.                                         图片框2.可视 = 真
      
1218.                                             标签加载.可视 = 真
      
1219.                                         标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
      
1220.                                     否则
      
1221.                                         图片框2.可视 = 真
      
1222.                                             标签加载.可视 = 真
      
1223.                                         标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
      
1224.                                     结束 如果
      
1225.                                 否则
      
1226.                                         下一集()
      
1227.                                 结束 如果
      
1228.                         结束 如果
      
1229.                         如果 取数组成员数(Data_Num) - SuoYin <> 1 则
      
1230.                              弹出提示("即将自动播放下一集")
      
1231.                         结束 如果
      
1232.                 结束 如果
      
1233.         结束 如果
      
1234. 结束 事件
      
1235. 
      
1236. 过程 下一集()
      
1237.         如果 取数组成员数(Data_Num) > 1 则
      
1238.       如果 取数组成员数(Data_Num) - SuoYin <> 1 则
      
1239.                   SuoYin = SuoYin + 1
      
1240.               加载过程()
      
1241.               ok金山播放器1.停止播放()
      
1242.               ok新Tab特效_剧集.置现行选择项(SuoYin)
      
1243.               判断 取文本左边(公用模块.详细信息,3)
      
1244.                 分支 "/tv"
      
1245.                   如果 Data_Num(SuoYin)="正片" 则
      
1246.                                 ok金山播放器1.置分享可视(24,真)
      
1247.                     标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1248.                     直连嗅探(Href(SuoYin))
      
1249.                   否则
      
1250.                     如果 寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
      
1251.                                   ok金山播放器1.置分享可视(24,真)
      
1252.                       标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1253.                       直连嗅探(Href(SuoYin))
      
1254.                     否则
      
1255.                                ok金山播放器1.置分享可视(24,假)   
      
1256.                       标签7.标题="正在播放：" & Subtitle(SuoYin)
      
1257.                       直连嗅探(Href(SuoYin))
      
1258.                     结束 如果
      
1259.                   结束 如果
      
1260.                 分支 "/m/"
      
1261.                   如果 Data_Num(SuoYin)="正片" 则
      
1262.                                 ok金山播放器1.置分享可视(24,真)
      
1263.                     标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1264.                     直连嗅探(Href(SuoYin))
      
1265.                   否则
      
1266.                     如果 寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
      
1267.                                   ok金山播放器1.置分享可视(24,真)
      
1268.                       标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1269.                       直连嗅探(Href(SuoYin))
      
1270.                     否则
      
1271.                                ok金山播放器1.置分享可视(24,假)   
      
1272.                       标签7.标题="正在播放：" & Subtitle(SuoYin)
      
1273.                       直连嗅探(Href(SuoYin))
      
1274.                     结束 如果
      
1275.                   结束 如果
      
1276.                 分支 "/va"
      
1277.                   如果 Data_Num(SuoYin)="正片" 则
      
1278.                                 ok金山播放器1.置分享可视(24,真)
      
1279.                     标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1280.                     直连嗅探(Href(SuoYin))
      
1281.                   否则
      
1282.                     如果 寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
      
1283.                                   ok金山播放器1.置分享可视(24,真)
      
1284.                       标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1285.                       直连嗅探(Href(SuoYin))
      
1286.                     否则
      
1287.                               ok金山播放器1.置分享可视(24,真)
      
1288.                       标签7.标题="正在播放：" & Subtitle(SuoYin)
      
1289.                       直连嗅探(Href(SuoYin))
      
1290.                     结束 如果
      
1291.                   结束 如果
      
1292.                 分支 "/ct"
      
1293.                   如果 Data_Num(SuoYin)="正片" 则
      
1294.                             ok金山播放器1.置分享可视(24,真)  
      
1295.                     标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1296.                     直连嗅探(Href(SuoYin))
      
1297.                   否则
      
1298.                     如果 寻找文本(Data_Num(SuoYin),"第",0)=-1 则 '
      
1299.                                   ok金山播放器1.置分享可视(24,真)
      
1300.                       标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1301.                       直连嗅探(Href(SuoYin))
      
1302.                     否则
      
1303.                               ok金山播放器1.置分享可视(24,真)
      
1304.                       标签7.标题="正在播放：" & Subtitle(SuoYin)
      
1305.                       直连嗅探(Href(SuoYin))
      
1306.                     结束 如果
      
1307.                   结束 如果
      
1308.                 分支 "/in"
      
1309.                                 标签7.标题="正在播放：" & Data_Num(SuoYin)
      
1310.                                 多线程_骑士电影.开始取网页源码2("http://v.zealol.com" & Href(SuoYin),"UTF-8")
      
1311.                         分支 "/?m"
      
1312.                            如果 寻找文本(Take_Out,"第",0)=-1 则
      
1313.                                ok金山播放器1.置分享可视(24,假)   
      
1314.                                    标签7.标题="正在播放：" & Data_Num(SuoYin)
      
1315.                             否则
      
1316.                                    ok金山播放器1.置分享可视(24,真)
      
1317.                                    标签7.标题="正在播放：第" & Data_Num(SuoYin) & "集"
      
1318.                             结束 如果
      
1319.                                 开始播放()
      
1320.               结束 判断
      
1321.                 否则
      
1322.                     ok弹出提示1.弹出("已经是最后一集了",1,4)
      
1323.                 结束 如果
      
1324.         否则
      
1325.       如果 是否全屏=真 则
      
1326.         置屏幕方向(1)
      
1327.         图片框2.可视 = 真
      
1328.             标签加载.可视 = 真
      
1329.         标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
      
1330.       否则
      
1331.         图片框2.可视 = 真
      
1332.             标签加载.可视 = 真
      
1333.         标签加载.标题 = "播放完毕,请返回重选影片或选择剧集"
      
1334.       结束 如果
      
1335.     结束 如果
      
1336. 结束 过程
      
1337. 
      
1338. 过程 取记录剧集()
      
1339.   变量 记录文本 为 文本型
      
1340.   判断 公用模块.上个窗口
      
1341.     分支 "窗口_记录"
      
1342.       记录文本 = 读入文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/JILU.ini","GBK")
      
1343.       如果 寻找文本(记录文本,标签_剧名.标题,0) <> -1 则
      
1344.         公用模块.索引 = 到整数(取指定文本2(取指定文本2(记录文本,"@标题" & 标签_剧名.标题,"结束"),"<集数","集数尾"))
      
1345.       结束 如果
      
1346.     分支 "窗口_收藏"
      
1347.       记录文本 = 读入文本文件(取存储卡路径() &  "/" & 公用模块.文件夹地址 & "/SHOUCANG.ini","GBK")
      
1348.       如果 寻找文本(记录文本,标签_剧名.标题,0) <> -1 则
      
1349.         公用模块.索引 = 到整数(取指定文本2(取指定文本2(记录文本,"@标题" & 标签_剧名.标题,"结束"),"<集数","集数尾"))
      
1350.       结束 如果
      
1351.   结束 判断
      
1352. 结束 过程
      
1353. 
      

复制代码

朴妮唛

黑屏 用重构 刷新一下即可

jywwlq

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

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

jywwlq

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

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

qq8945051q

路过看看。。。。。

朴妮唛

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

直播源 问题 或者网络问题

yudave

进来看看了解一下

chengwei5714869

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

jywwlq

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

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

jywwlq

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

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