人人影视源码首页点击不能播放求大神帮忙解决一下

a191009

首页 点播放都是卡这里加载不出来 其他页面点进去播放都是正常的求大神帮忙

hang007003

看下代码呗

a191009

hang007003 发表于 2019-5-27 09:35
看下代码呗

首页代码吗

a191009

hang007003 发表于 2019-5-27 09:35
看下代码呗

    变量 启动时间 为 长整数型
        变量 地址 为 文本型
        变量 轮播源码 为 文本型
        变量 轮播数组 为 文本型()
        变量 实际高 为 整数型
        变量 实际宽 为 整数型
        变量 ok工具类1 为 ok工具类
函数 high (值 为 整数型) 为 整数型
        high = 值 / 455 * 实际高
结束 函数
函数 wide (值 为 整数型) 为 整数型
        wide = 值 / 320 * 实际宽
结束 函数
事件 窗口_首页.创建完毕()
        实际高 = 取屏幕高度() - 取状态栏高度()
        实际宽 = 取屏幕宽度()
        ok工具类1 = 读取对象("ok工具类1")
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓轮播
        ok2号工具类1.去除垂直滚动框阴影(垂直滚动框1)
    滑动页面框_轮播.背景颜色 = 白色
        滑动页面框_轮播.置页面图片显示方式(1)
        滑动页面框_轮播.初始化下载引擎(0,0,0)
       
        垂直滚动框1.隐藏滚动条()
        垂直滚动框1.添加组件(滑动页面框_轮播)
        垂直滚动框1.添加组件(标签_轮播)
        垂直滚动框1.添加组件(标签_01)
        垂直滚动框1.添加组件(标签_02)
        垂直滚动框1.添加组件(标签_03)
        垂直滚动框1.添加组件(标签_04)
        垂直滚动框1.添加组件(标签_05)
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓公告
       
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓扩展功能
        图片列表框_扩展.自动拉伸高度(真)
        图片列表框_扩展.缩略显示内容(真)
        图片列表框_扩展.添加项目("ic_channel_movie.png","抢先影视")
        图片列表框_扩展.添加项目("ic_channel_keji.png","战旗直播")
        图片列表框_扩展.添加项目("ic_channel_entertainment.png","美女直播")
        图片列表框_扩展.添加项目("ic_channel_music.png","在线音乐")
        垂直滚动框1.添加组件(图片列表框_扩展)
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓热门电影
        编辑框_电影.隐藏光标()
        编辑框_电影.可用 = 假
        编辑框_电影.置左侧图标("hb_top_1.png",编辑框_电影.高度/5,编辑框_电影.高度/2,wide(5))
        图片列表框_电影.自动拉伸高度(真)
        图片列表框_电影.缩略显示内容(真)
        图片列表框_电影.显示副标题()
        图片列表框_电影.初始化下载引擎(R.hb_jiazai,R.hb_zanwu,R.hb_zanwu,10,假)
        垂直滚动框1.添加组件(编辑框_电影)
        垂直滚动框1.添加组件(标签_电影)
        垂直滚动框1.添加组件(图片列表框_电影)
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓热门电视剧
        编辑框_电视剧.隐藏光标()
        编辑框_电视剧.可用 = 假
        编辑框_电视剧.置左侧图标("hb_top_1.png",编辑框_电视剧.高度/5,编辑框_电视剧.高度/2,wide(5))
        图片列表框_电视剧.自动拉伸高度(真)
        图片列表框_电视剧.缩略显示内容(真)
        图片列表框_电视剧.显示副标题()
        图片列表框_电视剧.初始化下载引擎(R.hb_jiazai,R.hb_zanwu,R.hb_zanwu,10,假)
        垂直滚动框1.添加组件(编辑框_电视剧)
        垂直滚动框1.添加组件(标签_电视剧)
        垂直滚动框1.添加组件(图片列表框_电视剧)
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓热门综艺
        编辑框_综艺.隐藏光标()
        编辑框_综艺.可用 = 假
        编辑框_综艺.置左侧图标("hb_top_1.png",编辑框_综艺.高度/5,编辑框_综艺.高度/2,wide(5))
        图片列表框_综艺.自动拉伸高度(真)
        图片列表框_综艺.缩略显示内容(真)
        图片列表框_综艺.显示副标题()
        图片列表框_综艺.初始化下载引擎(R.hb_jiazai,R.hb_zanwu,R.hb_zanwu,10,假)
        垂直滚动框1.添加组件(编辑框_综艺)
        垂直滚动框1.添加组件(标签_综艺)
        垂直滚动框1.添加组件(图片列表框_综艺)
        '↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓热门动漫
        编辑框_动漫.隐藏光标()
        编辑框_动漫.可用 = 假
        编辑框_动漫.置左侧图标("hb_top_1.png",编辑框_动漫.高度/5,编辑框_动漫.高度/2,wide(5))
        图片列表框_动漫.自动拉伸高度(真)
        图片列表框_动漫.缩略显示内容(真)
        图片列表框_动漫.显示副标题()
        图片列表框_动漫.初始化下载引擎(R.hb_jiazai,R.hb_zanwu,R.hb_zanwu,10,假)
        垂直滚动框1.添加组件(编辑框_动漫)
        垂直滚动框1.添加组件(标签_动漫)
        垂直滚动框1.添加组件(图片列表框_动漫)
       
        图片_加载.置样式(2)
        图片_加载.置颜色(&HFF7897FE)
        图片_加载.置内边距(5)
        垂直滚动框1.添加组件(图片_加载)
        标签_加载.字体颜色=&HFF7897FE
        垂直滚动框1.添加组件(标签_加载)
        '多线程1.开始取网页源码2(公用模块.用户页头 & "/api.php?action=shipin&shipfl=" & URL编码("推荐","UTF-8")  & "&page=1","UTF-8")
        多线程1.开始取网页源码2("http://m."& 公用模块.视频页头 &".com","UTF-8")
        加载主题()
       
结束 事件
过程 加载主题()
        图片_加载.置颜色(公用模块.全局主题颜色)
        标签_加载.字体颜色 = 公用模块.全局主题颜色
结束 过程
过程 初始切换()
        图片列表框_扩展.获取焦点()
        图片列表框_电影.获取焦点()
        图片列表框_电视剧.获取焦点()
        图片列表框_综艺.获取焦点()
        图片列表框_动漫.获取焦点()
        滑动页面框_轮播.获取焦点()
结束 过程
'    变量 视频_简介 为 文本型() 'h后台推荐视频
事件 多线程1.取网页源码2完毕(源码 为 文本型)
        如果 公用模块.广告模式 = 1 则

a191009

hang007003 发表于 2019-5-27 09:35
看下代码呗

'--------------------------------------------采集影视轮播
                变量 图片 为 文本型       
                变量 循环变量 为 整数型,局_计次 为 整数型
                轮播源码 = 取指定文本2(源码,"<section class=\"top\">","<div class=\"swipe-trigger\">")
                轮播数组 = 取指定文本(轮播源码,"<a ","</a>")
                判断循环首 局_计次 < 取数组成员数(轮播数组)  '添加5个轮播广告
                        如果 局_计次 = 5 则
                                退出
                        结束 如果
                        图片=取指定文本2(轮播数组(局_计次),"<img src=\"","\">")
                        标签_轮播.标题=取指定文本2(轮播数组(局_计次),"<span>","</span>")
                        地址=取指定文本2(轮播数组(局_计次),"href=\"","\" class=\"swiper-slide\">")
                        滑动页面框_轮播.添加页面(图片)
                        局_计次 = 局_计次 + 1
                判断循环尾
        否则
        '--------------------------------------------后台自定义广告
                变量 图片 为 文本型       
                变量 循环变量 为 整数型,局_计次1 为 整数型
                轮播数组 = 取指定文本(公用模块.轮播广告,"<a>","</a>")
                判断循环首 局_计次1 < 取数组成员数(轮播数组)  '添加5个轮播广告
                        图片=取指定文本2(轮播数组(局_计次1),"img=\"","\"")
                        标签_轮播.标题=取指定文本2(轮播数组(局_计次1),"title=\"","\"")
                        地址=取指定文本2(轮播数组(局_计次1),"href=\"","\"")
                        滑动页面框_轮播.添加页面(图片)
                        局_计次1 = 局_计次1 + 1
                判断循环尾
        结束 如果
       
'       
'        变量 数据数组 为 文本型()
'        变量 局_计次 为 整数型
'        变量 局_标题 为 文本型,局_图片 为 文本型,局_日期 为 文本型,局_地址 为 文本型,局_简介 为 文本型
'        '源码 = 删首尾空(UCS2解码(字节到文本(BASE64解码(公用模块.文本_取右边(源码,"brC46jF")),"UTF-8")))
'        源码 = 公用模块.解密(源码)
'        '源码 = 删首尾空(UCS2解码(源码))
'        数据数组 = 取指定文本(源码,"{","}")
'        如果 取数组成员数(数据数组) < 1 则
'                ok弹出提示1.弹出("暂无更多加载视频",1,2)
'                图片_加载.可视 = 假
'            标签_加载.可视 = 假
'                退出
'        结束 如果
'        判断循环首 局_计次 < 取数组成员数(数据数组)
'                变量 局_文本 为 文本型
'                变量 局_json对象 为 对象
'                局_文本 = "{" & 数据数组(局_计次) & "}"
'                局_json对象 = JSON操作1.解析(局_文本)
'                局_标题 = JSON操作1.取文本值(局_json对象,"name")
'                局_图片 = JSON操作1.取文本值(局_json对象,"src")
'                局_地址 = JSON操作1.取文本值(局_json对象,"href")
'                局_简介 = JSON操作1.取文本值(局_json对象,"txt")
'                局_日期 = JSON操作1.取文本值(局_json对象,"time")
'                图片列表框_电影.添加项目(局_图片,局_标题)
'                图片列表框_电影.置项目副标题(局_计次,局_日期)
'                图片列表框_电影.置项目标记(局_计次,局_地址)
'                视频_简介 = 公用模块.加入成员(视频_简介,局_简介)
'                'ok唐视频图片列表1.添加项目(局_图片,局_标题,局_日期,局_简介,10,无色,无色,"",10,白色,&H60000000,局_地址)
'                局_计次 = 局_计次 + 1
'        判断循环尾
'        图片列表框_电影.刷新()
'        图片_加载.可视 = 假
'        标签_加载.可视 = 假

a191009

hang007003 发表于 2019-5-27 09:35
看下代码呗

变量 电影源码 为 文本型,电影数组 为 文本型(),局_计次1 为 整数型
        变量 局_地址1 为 文本型,局_图片1 为 文本型,局_标题1 为 文本型,局_副标1 为 文本型
        电影源码 = 取指定文本2(源码,"<span>电影","</section>")
        电影数组 = 取指定文本(电影源码,"<li","</li>")
        判断循环首 局_计次1 < 取数组成员数(电影数组)
                局_地址1 = 取指定文本2(电影数组(局_计次1),"href=\"","\"")
                局_图片1 = 取指定文本2(电影数组(局_计次1),"url(",")")
                局_标题1 = 取指定文本2(电影数组(局_计次1),"title\">","</p>")
                局_副标1 = 取指定文本2(电影数组(局_计次1),"year\">","</span>")
                图片列表框_电影.添加项目(局_图片1,局_标题1)
                图片列表框_电影.置项目副标题(局_计次1,局_副标1)
                图片列表框_电影.置项目标记(局_计次1,局_地址1)
                局_计次1 = 局_计次1 + 1
        判断循环尾
       
        变量 电视剧源码 为 文本型,电视剧数组 为 文本型(),局_计次2 为 整数型
        变量 局_地址2 为 文本型,局_图片2 为 文本型,局_标题2 为 文本型,局_副标2 为 文本型
        电视剧源码 = 取指定文本2(源码,"<span>电视剧","</section>")
        电视剧数组 = 取指定文本(电视剧源码,"<li","</li>")
        判断循环首 局_计次2 < 取数组成员数(电视剧数组)
                局_地址2 = 取指定文本2(电视剧数组(局_计次2),"href=\"","\"")
                局_图片2 = 取指定文本2(电视剧数组(局_计次2),"url(",")")
                局_标题2 = 取指定文本2(电视剧数组(局_计次2),"title\">","</p>")
                局_副标2 = 删首尾空(取指定文本2(电视剧数组(局_计次2),"duration\">","</span>"))
                图片列表框_电视剧.添加项目(局_图片2,局_标题2)
                图片列表框_电视剧.置项目副标题(局_计次2,局_副标2)
                图片列表框_电视剧.置项目标记(局_计次2,局_地址2)
                局_计次2 = 局_计次2 + 1
        判断循环尾
       
        变量 综艺源码 为 文本型,综艺数组 为 文本型(),局_计次3 为 整数型
        变量 局_地址3 为 文本型,局_图片3 为 文本型,局_标题3 为 文本型,局_副标3 为 文本型
        综艺源码 = 取指定文本2(源码,"<span>综艺","</section>")
        综艺数组 = 取指定文本(综艺源码,"<li","</li>")
        判断循环首 局_计次3 < 取数组成员数(综艺数组)
                局_地址3 = 取指定文本2(综艺数组(局_计次3),"href=\"","\"")
                局_图片3 = 取指定文本2(综艺数组(局_计次3),"url(",")")
                局_标题3 = 取指定文本2(综艺数组(局_计次3),"title\">","</p>")
                局_副标3 = 删首尾空(取指定文本2(综艺数组(局_计次3),"duration\">","</span>"))
                图片列表框_综艺.添加项目(局_图片3,局_标题3)
                图片列表框_综艺.置项目副标题(局_计次3,局_副标3)
                图片列表框_综艺.置项目标记(局_计次3,局_地址3)
                局_计次3 = 局_计次3 + 1
        判断循环尾
       
        变量 动漫源码 为 文本型,动漫数组 为 文本型(),局_计次4 为 整数型
        变量 局_地址4 为 文本型,局_图片4 为 文本型,局_标题4 为 文本型,局_副标4 为 文本型
        动漫源码 = 取指定文本2(源码,"<span>动漫","</section>")
        动漫数组 = 取指定文本(动漫源码,"<li","</li>")
        判断循环首 局_计次4 < 取数组成员数(动漫数组)
                局_地址4 = 取指定文本2(动漫数组(局_计次4),"href=\"","\"")
                局_图片4 = 取指定文本2(动漫数组(局_计次4),"url(",")")
                局_标题4 = 取指定文本2(动漫数组(局_计次4),"title\">","</p>")
                局_副标4 = 删首尾空(取指定文本2(动漫数组(局_计次4),"duration\">","</span>"))
                图片列表框_动漫.添加项目(局_图片4,局_标题4)
                图片列表框_动漫.置项目副标题(局_计次4,局_副标4)
                图片列表框_动漫.置项目标记(局_计次4,局_地址4)
                局_计次4 = 局_计次4 + 1
        判断循环尾
       
        图片列表框_扩展.移动(0,标签_01.顶边 + 标签_01.取高度() + high(2),取屏幕宽度(),20)
        图片列表框_扩展.刷新()
       
        编辑框_电影.移动(0,图片列表框_扩展.顶边 + 图片列表框_扩展.取高度() + high(6),取屏幕宽度(),high(28))
        标签_电影.移动(取屏幕宽度()-标签_电影.宽度,编辑框_电影.顶边,标签_电影.宽度,标签_电影.高度)
        图片列表框_电影.移动(0,编辑框_电影.顶边 + 编辑框_电影.取高度()+ high(2),取屏幕宽度(),high(25))
        图片列表框_电影.刷新()
       
        编辑框_电视剧.移动(0,图片列表框_电影.顶边 + 图片列表框_电影.取高度()+ high(6),取屏幕宽度(),high(28))
        标签_电视剧.移动(取屏幕宽度()-标签_电视剧.宽度,编辑框_电视剧.顶边,标签_电视剧.宽度,标签_电视剧.高度)
        图片列表框_电视剧.移动(0,编辑框_电视剧.顶边 + 编辑框_电视剧.取高度() + high(2),取屏幕宽度(),high(25))
        图片列表框_电视剧.刷新()
       
        编辑框_综艺.移动(0,图片列表框_电视剧.顶边 + 图片列表框_电视剧.取高度()+ high(6),取屏幕宽度(),high(28))
        标签_综艺.移动(取屏幕宽度()-标签_综艺.宽度,编辑框_综艺.顶边,标签_综艺.宽度,标签_综艺.高度)
        图片列表框_综艺.移动(0,编辑框_综艺.顶边 + 编辑框_综艺.取高度() + high(2),取屏幕宽度(),high(25))
        图片列表框_综艺.刷新()
       
        编辑框_动漫.移动(0,图片列表框_综艺.顶边 + 图片列表框_综艺.取高度()+ high(6),取屏幕宽度(),high(28))
        标签_动漫.移动(取屏幕宽度()-标签_动漫.宽度,编辑框_动漫.顶边,标签_动漫.宽度,标签_动漫.高度)
        图片列表框_动漫.移动(0,编辑框_动漫.顶边 + 编辑框_动漫.取高度() + high(2),取屏幕宽度(),high(25))
        图片列表框_动漫.刷新()

a191009

hang007003 发表于 2019-5-27 09:35
看下代码呗

图片_加载.可视 = 假
        标签_加载.可视 = 假
结束 事件
函数 取中间文本(完整内容 为 文本型,左边文本 为 文本型,右边文本 为 文本型)为 文本型
        变量 左边 为 整数型
        变量 右边 为 整数型
        左边 = 寻找文本 (完整内容,左边文本,0)+取文本长度 (左边文本)
        如果 左边 = -1 则
            取中间文本=""
            退出 '退出函数
        结束 如果
        右边 = 寻找文本 (完整内容,右边文本,左边)
        如果 右边 = -1 或 左边>右边 则
            取中间文本=""
            退出 '退出函数
        结束 如果
        取中间文本=取文本中间 (完整内容,左边,右边-左边)
结束 函数
事件 滑动页面框_轮播.创建完毕()
        时钟_轮播.时钟周期=3000
结束 事件
事件 时钟_轮播.周期事件()
        判断 滑动页面框_轮播.取现行页面()
                分支 0
                        滑动页面框_轮播.置现行页面(1)
                分支 1
                        滑动页面框_轮播.置现行页面(2)
                分支 2
                        滑动页面框_轮播.置现行页面(3)
                分支 3
                        滑动页面框_轮播.置现行页面(4)
                分支 4         
                        滑动页面框_轮播.置现行页面(0)
        结束 判断
结束 事件
事件 滑动页面框_轮播.滑动状态改变(滑动状态 为 整数型)
        判断  滑动状态
        分支 0
                时钟_轮播.时钟周期=3000
        分支 1       
                时钟_轮播.时钟周期=0
        分支 2
                时钟_轮播.时钟周期=3000
        结束 判断
结束 事件
事件 滑动页面框_轮播.页面被选择(页面索引 为 整数型)
        判断 页面索引
                分支 0
                        如果 公用模块.广告模式 = 1 则
                                标签_轮播.标题=取指定文本2(轮播数组(0),"<span>","</span>")
                                地址=取指定文本2(轮播数组(0),"href=\"","\" class=\"swiper-slide\">")
                        否则
                                标签_轮播.标题=取指定文本2(轮播数组(0),"title=\"","\"")
                                地址=取指定文本2(轮播数组(0),"href=\"","\"")
                        结束 如果
                分支 1       
                        如果 公用模块.广告模式 = 1 则
                                标签_轮播.标题=取指定文本2(轮播数组(1),"<span>","</span>")
                                地址=取指定文本2(轮播数组(1),"href=\"","\" class=\"swiper-slide\">")
                        否则
                                标签_轮播.标题=取指定文本2(轮播数组(1),"title=\"","\"")
                                地址=取指定文本2(轮播数组(1),"href=\"","\"")
                        结束 如果
                分支 2       
                        如果 公用模块.广告模式 = 1 则
                                标签_轮播.标题=取指定文本2(轮播数组(2),"<span>","</span>")
                                地址=取指定文本2(轮播数组(2),"href=\"","\" class=\"swiper-slide\">")
                        否则
                                标签_轮播.标题=取指定文本2(轮播数组(2),"title=\"","\"")
                                地址=取指定文本2(轮播数组(2),"href=\"","\"")
                        结束 如果
                分支 3       
                        如果 公用模块.广告模式 = 1 则
                                标签_轮播.标题=取指定文本2(轮播数组(3),"<span>","</span>")
                                地址=取指定文本2(轮播数组(3),"href=\"","\" class=\"swiper-slide\">")
                        否则
                                标签_轮播.标题=取指定文本2(轮播数组(3),"title=\"","\"")
                                地址=取指定文本2(轮播数组(3),"href=\"","\"")
                        结束 如果
                分支 4
                        如果 公用模块.广告模式 = 1 则
                                标签_轮播.标题=取指定文本2(轮播数组(4),"<span>","</span>")
                                地址=取指定文本2(轮播数组(4),"href=\"","\" class=\"swiper-slide\">")
                        否则
                                标签_轮播.标题=取指定文本2(轮播数组(4),"title=\"","\"")
                                地址=取指定文本2(轮播数组(4),"href=\"","\"")
                        结束 如果
        结束 判断
结束 事件
事件 滑动页面框_轮播.页面被单击(页面索引 为 整数型)
        判断 页面索引
                分支 0
                        公用模块.详细信息=地址
                        公用模块.地址 = 地址
                        跳转广告(页面索引)
                分支 1       
                        公用模块.详细信息=地址
                        公用模块.地址 = 地址
                        跳转广告(页面索引)
                分支 2       
                        公用模块.详细信息=地址
                        公用模块.地址 = 地址
                        跳转广告(页面索引)
                分支 3       
                        公用模块.详细信息=地址
                        公用模块.地址 = 地址
                        跳转广告(页面索引)
                分支 4
                        公用模块.详细信息=地址
                        公用模块.地址 = 地址
                        跳转广告(页面索引)
        结束 判断
结束 事件
过程 跳转广告(页面索引 为 整数型)
        如果 公用模块.广告模式 = 1 则
                如果 公用模块.用户 = "未登录" 则
                        ok工具类1.警告信息框(1,"温馨提示","检测到你未登录账号,是否登录？","登录","取消")
                        退出
                结束 如果
                如果 读取窗口("窗口_播放")=空 则
                    保存窗口("窗口_播放",创建 窗口_播放)
                结束 如果
                切换窗口(读取窗口("窗口_播放"))
        否则
            如果 读取窗口("窗口_广告跳转")=空 则
                    保存窗口("窗口_广告跳转",创建 窗口_广告跳转)
                结束 如果
                切换窗口(读取窗口("窗口_广告跳转"))
        结束 如果
结束 过程
事件 图片列表框_扩展.表项被单击(项目索引 为 整数型)
        如果 公用模块.用户 = "未登录" 则
                ok工具类1.警告信息框(1,"温馨提示","检测到你未登录账号,是否登录？","登录","取消")
                退出
        结束 如果
        判断 项目索引
                分支 0
                        变量 子窗口 为 窗口_抢先
                        如果 读取窗口("窗口_抢先")=空 则
                                保存窗口("窗口_抢先",创建 窗口_抢先)
                        结束 如果
                        公用模块.主界面窗口.移动特效(0,-取屏幕宽度(),0,0,400,假)
                        子窗口 = 读取窗口("窗口_抢先")
                        子窗口.移动特效(取屏幕宽度(),0,0,0,400,假)
                        切换窗口(子窗口)
                分支 1
                        变量 子窗口 为 窗口_战旗
                        如果 读取窗口("窗口_战旗")=空 则
                                保存窗口("窗口_战旗",创建 窗口_战旗)
                        结束 如果
                        公用模块.主界面窗口.移动特效(0,-取屏幕宽度(),0,0,400,假)
                        子窗口 = 读取窗口("窗口_战旗")
                        子窗口.移动特效(取屏幕宽度(),0,0,0,400,假)
                        切换窗口(子窗口)
                分支 2
                        变量 子窗口 为 窗口_花椒
                        如果 读取窗口("窗口_花椒")=空 则
                                保存窗口("窗口_花椒",创建 窗口_花椒)
                        结束 如果
                        公用模块.主界面窗口.移动特效(0,-取屏幕宽度(),0,0,400,假)
                        子窗口 = 读取窗口("窗口_花椒")
                        子窗口.移动特效(取屏幕宽度(),0,0,0,400,假)
                        切换窗口(子窗口)
                分支 3
                        变量 子窗口 为 窗口_音乐
                        如果 读取窗口("窗口_音乐")=空 则
                                保存窗口("窗口_音乐",创建 窗口_音乐)
                        结束 如果
                        公用模块.主界面窗口.移动特效(0,-取屏幕宽度(),0,0,400,假)
                        子窗口 = 读取窗口("窗口_音乐")
                        子窗口.移动特效(取屏幕宽度(),0,0,0,400,假)
                        切换窗口(子窗口)
        结束 判断
结束 事件
事件 图片列表框_电影.表项被单击(项目索引 为 整数型)
    切换播放窗口(图片列表框_电影,项目索引)
结束 事件
事件 图片列表框_电视剧.表项被单击(项目索引 为 整数型)
        切换播放窗口(图片列表框_电视剧,项目索引)
结束 事件
事件 图片列表框_综艺.表项被单击(项目索引 为 整数型)
        切换播放窗口(图片列表框_综艺,项目索引)
结束 事件
事件 图片列表框_动漫.表项被单击(项目索引 为 整数型)
        切换播放窗口(图片列表框_动漫,项目索引)
结束 事件
过程 切换播放窗口(获取的图片框 为 图片列表框,项目索引 为 整数型)
        如果 公用模块.用户 = "未登录" 则
                ok工具类1.警告信息框(1,"温馨提示","检测到你未登录账号,是否登录？","登录","取消")
                退出
        结束 如果
        公用模块.关键字=""
        公用模块.地址=子文本替换(获取的图片框.取项目标记(项目索引),"http://www."& 公用模块.视频页头 &".com","")
        公用模块.视频名=获取的图片框.取项目标题(项目索引)
        公用模块.图片=获取的图片框.取项目图片(项目索引)
        公用模块.详细信息=子文本替换(获取的图片框.取项目标记(项目索引),"http://www."& 公用模块.视频页头 &".com","")
        如果 公用模块.验证VIP结果 = 假 则
            ok弹出提示1.弹出("请先开通VIP后观看！",1,2)
            退出
    结束 如果
        公用模块.主界面窗口.开启特效(3,500,假)
        如果 读取窗口("窗口_播放")=空 则
        保存窗口("窗口_播放",创建 窗口_播放)
        结束 如果
        切换窗口(读取窗口("窗口_播放"))
结束 过程
事件 ok工具类1.警告信息框确定(任务id 为 整数型)
        如果 任务id = 1 则
                公用模块.主界面窗口.开启特效(3,500,假)
                切换窗口(读取窗口("窗口_登录"))
        结束 如果
结束 事件

事件 标签_电影.被单击()
        公用模块.主界面窗口.滑动页面框1.置现行页面(1)
        公用模块.影视窗口.滑动页面框1.置现行页面(1)
        公用模块.影视窗口.okTab特效_频道.置选中项(1)
结束 事件
事件 标签_电视剧.被单击()
        公用模块.主界面窗口.滑动页面框1.置现行页面(1)
        公用模块.影视窗口.滑动页面框1.置现行页面(0)
        公用模块.影视窗口.okTab特效_频道.置选中项(0)
结束 事件
事件 标签_综艺.被单击()
        公用模块.主界面窗口.滑动页面框1.置现行页面(1)
        公用模块.影视窗口.滑动页面框1.置现行页面(2)
        公用模块.影视窗口.okTab特效_频道.置选中项(2)
结束 事件
事件 标签_动漫.被单击()
        公用模块.主界面窗口.滑动页面框1.置现行页面(1)
        公用模块.影视窗口.滑动页面框1.置现行页面(3)
        公用模块.影视窗口.okTab特效_频道.置选中项(3)
结束 事件

易如意

建议支持正版，终生维护，作者QQ：977847728

zhouw

只有添加一个网址就行了

zhangsheng

我们换个思路，把其他的代码粘贴就可以了