人人影视源码首页点击不能播放求大神帮忙解决一下
首页 点播放都是卡这里加载不出来 其他页面点进去播放都是正常的求大神帮忙
看下代码呗 hang007003 发表于 2019-5-27 09:35
看下代码呗
首页代码吗
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 则 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
' 判断循环尾
' 图片列表框_电影.刷新()
' 图片_加载.可视 = 假
' 标签_加载.可视 = 假 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))
图片列表框_动漫.刷新() 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 只有添加一个网址就行了 我们换个思路，把其他的代码粘贴就可以了
页:
[1]
2