用户组 
易积分94
热心0
好评0
|
发表于 2021-7-14 12:40:59
|
显示全部楼层
看看有研究价值吗?
变量 接口 为 文本型
变量 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"))
结束 事件 |
|