影视搜索源码，代码未优化
变量 参数 为 文本型
事件 主窗口.创建完毕()
结束 事件
过程 解析()
变量 TV 为 文本型
变量 TVS 为 对象
变量 Data 为 文本型
变量 Data1 为 对象
变量 Data2 为 文本型
变量 Data3 为 对象
变量 pic 为 对象
变量 source 为 对象
变量 episode 为 对象
变量 source_list 为 文本型
如果 XCX5内核1.检测是否加载内核() = 假 则
XCX5内核1.加载内核()
否则
弹出提示("X5内核已加载")
结束 如果
图片列表框1.清空项目()
'TVS=JSON操作1.解析(读入资源文件("tv.txt","utf-8"))
'Data=JSON操作1.取文本值(TVS,"data")'数组文本 '弹出提示(JSON操作1.取文本值(TVS,"data"))
TVS=JSON操作1.解析(参数)
Data1 = JSON操作1.取数组(TVS,"data")'取对象内数组data
Data2 = JSON操作1.取数组内文本值(Data1,0)'数组data文本值
Data3 = JSON操作1.解析(Data2)'弹出提示(JSON操作1.取文本值(Data3,"video_id"))
pic=JSON操作1.取数组(Data3,"multi_pics")
source=JSON操作1.取数组(Data3,"source_list")
变量 pic1 为 文本型
pic1 = JSON操作1.取文本值(JSON操作1.解析( JSON操作1.取数组内文本值(pic,0)),"img") '弹出提示(JSON操作1.取数组内成员数(pic))
'来源
' 变量 i 为 整数型
' 判断循环首 i<JSON操作1.取数组内成员数(source)
' 弹出提示(JSON操作1.取数组内文本值(source,i))
' i=i+1
' 判断循环尾
图片列表框1.初始化下载引擎(R.icon,R.icon,R.icon,10,假)
episode = JSON操作1.解析(JSON操作1.取数组内文本值(source,0))
变量 episode_info 为 对象
episode_info = JSON操作1.取数组(episode,"episode_info")
'弹出提示(JSON操作1.取数组内成员数(episode_info))
变量 k 为 整数型
变量 URLx 为 文本型
判断循环首 k<JSON操作1.取数组内成员数(episode_info)
URLx= JSON操作1.取文本值(JSON操作1.解析( JSON操作1.取数组内文本值(episode_info,k) ),"start_uri")
图片列表框1.添加项目(pic1,"第"& k+1 &"集")
图片列表框1.置项目标记(图片列表框1.取项目数()-1,"http://jx.du2.cc/?url="&URLx)
k=k+1
判断循环尾
'弹出提示()
'弹出提示(JSON操作1.取文本值(Data1,"source_list"))
'source_list=JSON操作1.取文本值(JSON操作1.取数组内数组(Data,0),"source_list")
'source_list=JSON操作1.取数组(Data,"source_list")
结束 过程
事件 图片列表框1.表项被单击(项目索引 为 整数型)
'弹出提示(图片列表框1.取项目标记(项目索引))
'XCX5内核1.跳转(图片列表框1.取项目标记(项目索引))
ok网页解析1.初始化("")
ok网页解析1.跳转(图片列表框1.取项目标记(项目索引))
结束 事件
事件 ok网页解析1.资源访问链接(url 为 文本型)
弹出提示("资源访问链接")
如果 寻找文本(url,".mp4",0)>0 或 寻找文本(url,".m3u8",0)>0 或 寻找文本(url,"m3u8.",0)>0 则
弹出提示(url)
XCX5内核1.启用缩放 = 假
XCX5内核1.启用缩放 = 假
XCX5内核1.开启X5全屏播放模式()
XCX5内核1.跳转(url)
'X5浏览器1.X5浏览框打开链接(url)
结束 如果
结束 事件
事件 ok网页解析1.载入失败(错误代码 为 整数型,url 为 文本型)
弹出提示("错误代码:"&错误代码)
结束 事件
事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
如果 键代码 = 返回键 则
XCX5内核1.开启小窗模式()
结束 如果
结束 事件
事件 按钮1.被单击()
如果 编辑框1.内容<>"" 则
多线程1.开始取网页源码("http://feed.api.liquidnetwork.com/v2/get_search_video_detail?&yid=106851266931_6027485950&page=1&pagesize=20&video_type=tv&next_start_index=0&skey="&URL编码(编辑框1.内容,"UTF-8")&"&version_name=5.0.8.5&device_id=a2be77dd-bd24-3579-837c-a2e595e55f8b&channel_name=t-jinritoutiao-3&et=1551059710&device_serial=5PGQW4UKPNUOUCAY&nonce_str=abf69bfa-9ff3-443c-96f8-7380832a3ba2&box_pkg_name=c.l.a&min_app_engine_version=0.2.26&sign=CQFJVKDAwW-L2ABkehklfw&user_id=106851266931&yid=106851266931_6027485950&Latitude=39.91037&Longitude=116.467623","utf-8")
否则
弹出提示("请输入影视名称")
结束 如果
结束 事件
事件 多线程1.取网页源码完毕(源码 为 文本型)
参数 = 源码
解析()
结束 事件
{:4_86:} tv.txt文件呢。。。。。 看看。。。。。。。。。。。 路过看看。。。。。。。。。。。。
页:
[1]