影视搜索源码，代码未优化

defugood

        变量 参数 为 文本型
       
事件 主窗口.创建完毕()
       
结束 事件

过程 解析()
        变量 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.取网页源码完毕(源码 为 文本型)
        参数 = 源码
        解析()
结束 事件

201888

skeok888888

tv.txt  文件呢。。。。。

skeok888888

看看。。。。。。。。。。。

奈何小哥哥哟

路过看看。。。。。。。。。。。。