ѧϰ

看看有研究价值吗？


变量 接口 为 文本型
        变量 p0 为 文本型
        变量 高度 为 整数型
        变量 宽度 为 整数型
        变量 播放地址 为 文本型
        变量 i 为 整数型
        变量 a 为 双精度小数型
        变量 版本 为 双精度小数型
        变量 更新选项 为 整数型
事件 主窗口.创建完毕()        '备忘：升级改属性版本,改下面版本,和连接文档,改上传蓝奏
        版本=1.8        '更新必改 https://arong6.coding.me/cyys/cyys360/rjxx.txt ,每个版本都写上该版本的版本号
        多线程1.开始取网页源码 ("https://arong6.coding.me/cyys/cyys360/rjxx.txt","GBK")
        置屏幕方向(2)
        高度=取屏幕高度()
        宽度=取屏幕宽度()
        腾讯X5内核浏览器2.跳转("https://arong6.coding.me/cyys/cyys360/1.html")
        腾讯X5内核浏览器2.可用=假
        腾讯X5内核浏览器2.可视=假
        腾讯X5内核浏览器2.允许加载图片=假
        腾讯X5内核浏览器1.跳转("http://m.v.360.cn/android/index.html")
        弹出提示("正在加载中...")
        接口="http://api.baiyug.cn/vip/index.php?url="
结束 事件

事件 多线程1.取网页源码完毕 (源码 为 文本型)
        ' 源码是文本型 的,我们来转换一下
        到数值 (源码)
        a=源码
        比较版本 () ' 过程
结束 事件

过程 比较版本 ()
        如果 版本<a 则
        更新选项=信息框2 ("更新提示：","检测到有新版本,请及时更新呦~","更新","退出")
                如果 更新选项=0 则
                        置剪贴板文本("https://pan.lanzou.com/b50641")
                        弹出提示("复制链接成功,请用粘贴到浏览器打开")
                否则如果 更新选项=1 则
                        结束程序()
                结束 如果
        结束 如果
结束 过程

事件 腾讯X5内核浏览器1.即将跳转(地址 为 文本型,传址 方式 为 整数型)
        p0=腾讯X5内核浏览器1.取地址()
        如果 取文本左边(p0,18)<>"http://m.v.360.cn/" 则
                腾讯X5内核浏览器1.停止()
                播放地址=接口 & p0
                标签1.可视=假
                腾讯X5内核浏览器2.可用=真
                腾讯X5内核浏览器2.可视=真
                腾讯X5内核浏览器1.可用=假
                腾讯X5内核浏览器1.可视=假
            腾讯X5内核浏览器2.跳转(播放地址)
        结束 如果
结束 事件
'以下是其他总跳官网的视频,跳完检测地址并解析播放
事件 腾讯X5内核浏览器1.载入完毕(地址 为 文本型)
        p0=腾讯X5内核浏览器1.取地址()
        如果 取文本左边(p0,18)<>"http://m.v.360.cn/" 则
                腾讯X5内核浏览器1.停止()
                播放地址=接口 & p0
                标签1.可视=假
                腾讯X5内核浏览器2.可用=真
                腾讯X5内核浏览器2.可视=真
                腾讯X5内核浏览器1.可用=假
                腾讯X5内核浏览器1.可视=假
            腾讯X5内核浏览器2.跳转(播放地址)
        结束 如果
结束 事件

事件 主窗口.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        判断 键代码
        分支 返回键
                如果 腾讯X5内核浏览器1.取地址()="http://m.v.360.cn/android/index.html" 则
                        如果 信息框2("提示","是否退出残影影视？","是","否")=0 则
                        结束程序()
                    结束 如果
                否则
                          腾讯X5内核浏览器1.后退()
                        腾讯X5内核浏览器2.后退()
                        标签1.可视=真
                        腾讯X5内核浏览器2.释放内存()
                        腾讯X5内核浏览器1.可用=真
                        腾讯X5内核浏览器1.可视=真
                        腾讯X5内核浏览器2.可用=假
                        腾讯X5内核浏览器2.可视=假
                结束 如果
        结束 判断
结束 事件

事件 主窗口.屏幕方向被改变(屏幕方向 为 整数型)
        如果 屏幕方向=0 则
                腾讯X5内核浏览器1.高度=高度
                腾讯X5内核浏览器1.宽度=宽度
                腾讯X5内核浏览器2.高度=高度
                腾讯X5内核浏览器2.宽度=宽度
        否则
                腾讯X5内核浏览器1.高度=宽度
                腾讯X5内核浏览器1.宽度=高度
                腾讯X5内核浏览器2.高度=宽度
                腾讯X5内核浏览器2.宽度=高度
        结束 如果
结束 事件

事件 标签1.被单击()
        如果 读取窗口("窗口1")=空 则
                保存窗口("窗口1",创建 窗口1)
        结束 如果
        切换窗口(读取窗口("窗口1"))
结束 事件

谢谢谢谢分享

易如意中文编程学习交流论坛有你更精彩~