随缘_多核播放器(11.9版本)+随缘E4A魔改版实现TV长按快进快退

suiyuan

        变量 当前选择时间 为 长整数型
        变量 步进进行中 为 逻辑型
事件 窗口_剧集.onKeyDown(键代码 为 整数型,传址 是否允许长按 为 逻辑型)
        如果 步进进行中  则'全屏状态且容器未显示 则 表示 用户想快进 则允许长按
                是否允许长按=真
                当前选择时间=随缘_多核播放器1.取_当前时间()
                随缘_多核播放器1.容器_清空控件()
            随缘_多核播放器1.容器_添加控件1(标签_进度)
                随缘_多核播放器1.容器_是否显示(真)
        否则如果 允许长按(键代码) 则
                是否允许长按=真
                步进进行中=真
                当前选择时间=随缘_多核播放器1.取_当前时间()
                随缘_多核播放器1.容器_清空控件()
            随缘_多核播放器1.容器_添加控件1(标签_进度)
                随缘_多核播放器1.容器_是否显示(真)
        结束 如果
结束 事件
事件 窗口_剧集.onKeyUp(键代码 为 整数型,按下次数 为 整数型)
        如果 按下次数>2 或 步进进行中 则'如果大于2则说明需要置播放器进度
                随缘_多核播放器1.置_播放时间2(当前选择时间)
                当前选择时间=0
                随缘_多核播放器1.容器_清空控件()
                随缘_多核播放器1.容器_是否显示(假)
                步进进行中=假
        结束 如果

结束 事件
变量 倍率 为 整数型=3000'设置长按倍率
事件 窗口_剧集.onKeyLongPress(键代码 为 整数型,按下次数 为 整数型,传址 是否允许长按 为 逻辑型)
        是否允许长按=真
        如果 键代码=左键 或 键代码=右键 则
                如果 键代码=左键 则
                        当前选择时间=当前选择时间-倍率'快退
                否则        
                    当前选择时间=当前选择时间+倍率'快进
                结束 如果
                如果 当前选择时间>随缘_多核播放器1.取_总时长() 则
                        当前选择时间=随缘_多核播放器1.取_总时长()
                结束 如果
                如果 当前选择时间<0 则
                        当前选择时间=0
                结束 如果
                时间显示(当前选择时间)
        结束 如果
结束 事件
函数 允许长按(键代码 为 整数型) 为 逻辑型'允许长按的条件
        如果 随缘_多核播放器1.取_是否全屏() 且  随缘_多核播放器1.容器_取是否可视()=假 则
                如果 键代码=左键 或 键代码=右键  则
                        允许长按=真
                        退出
                结束 如果
        结束 如果
        允许长按=假
结束 函数
过程 时间显示(毫秒 为 长整数型)
        变量 选择的时间 为 文本型
        变量 总时间 为 文本型
        标签_进度.可视=真
    总时间=随缘_多核播放器1.时间转文本(随缘_多核播放器1.取_总时长())
        选择的时间=随缘_多核播放器1.时间转文本(毫秒)
        标签_进度.标题 = 选择的时间 & "/" & 总时间
结束 过程
事件 窗口_剧集.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码=返回键 则
                屏蔽=真
                如果 随缘_多核播放器1.取_是否全屏() 则
                        如果 取启动时间() - 启动时间 >2000 则
                            启动时间 = 取启动时间()
                否则
                            随缘_多核播放器1.控制_退出全屏()
                    结束 如果
                否则
                    随缘_多核播放器1.容器_清空控件()
                        随缘_多核播放器1.容器_是否显示(假)
                        随缘_多核播放器1.控制_停止()
                        播放进度 = 0
                        公用模块.上个窗口 = "窗口_剧集"
                        判断 上个窗口
                                分支 "窗口_影视"
                                        如果 读取窗口("窗口_影视") = 空 则
                                        保存窗口("窗口_影视",创建 窗口_影视)
                            结束 如果
                                切换窗口(读取窗口("窗口_影视"))
                                分支 "窗口_搜索"
                                        如果 读取窗口("窗口_搜索") = 空 则
                                        保存窗口("窗口_搜索",创建 窗口_搜索)
                            结束 如果
                                切换窗口(读取窗口("窗口_搜索"))
                                分支 "窗口_历史"
                                        如果 读取窗口("窗口_历史") = 空 则
                                        保存窗口("窗口_历史",创建 窗口_历史)
                            结束 如果
                                切换窗口(读取窗口("窗口_历史"))
                                分支 否则
                                        如果 读取窗口("窗口_影视") = 空 则
                                        保存窗口("窗口_影视",创建 窗口_影视)
                            结束 如果
                                切换窗口(读取窗口("窗口_影视"))
                        结束 判断
                结束 如果
        结束 如果
结束 事件





效果预览及具体代码
链接：https://pan.baidu.com/s/1xE2SFdfxpcog82aJbiEh6g
提取码：1234

1953537124

解压密码呢？

agasybin

好东东，可惜没钱买

gcx55521

密码需要付费的