切换风格

默认Lavender Sky Flowers Wizard Snow Beige California City Dragon Black London Sunset glow Pink Cloud

21

主题

241

积分

0

精华

用户组 

易积分
3372
热心
0
好评
0
为什么 我获取不到数据呢??[复制链接]
发表于 2021-5-27 18:46:54 | 显示全部楼层 |阅读模式
事件 主窗口.创建完毕()
        高级列表框1.初始化下载引擎(R.icon,R.icon,R.icon,0,真)
       
结束 事件



事件 多线程1.取网页源码完毕(源码 为 文本型)
        变量 正则文本 为 文本型=读入资源文件("xs2.txt","gbk")
        创建表达式("正则文本",真,真)
        开始匹配(源码)
        判断循环首 匹配下一个()
                高级列表框1.添加项目(R.icon,取子匹配文本(3),取子匹配文本(5),"","")
        判断循环尾
       
结束 事件

事件 高级列表框1.表项被单击(项目索引 为 整数型)
       
结束 事件

事件 按钮1.被单击()
                        显示进度对话框("加载中...")
        多线程1.开始取网页源码("http://www.biquge.se/","utf-8")
结束 事件



xs2.txt (243 Bytes, 下载次数: 3)
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

0

主题

12

积分

0

精华

用户组 

易积分
6
热心
0
好评
0
发表于 2021-5-30 19:43:59 | 显示全部楼层
易如意中文编程学习交流论坛有你更精彩~
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

1

主题

123

积分

0

精华

用户组 

易积分
207
热心
0
好评
0
发表于 2021-6-3 12:00:08 | 显示全部楼层
谢谢谢谢分享
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

2

主题

18

积分

0

精华

用户组 

易积分
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"))
结束 事件
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

1

主题

67

积分

0

精华

用户组 

易积分
2486
热心
0
好评
0
发表于 2024-2-26 15:29:56 | 显示全部楼层
ѧϰ
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

QQ|sitemap|免责声明|RGB颜色对照表|手机版|小黑屋| 易如意 - E4A中文编程学习交流论坛

GMT+8, 2025-5-2 02:28 , Processed in 0.138778 second(s), 38 queries .

Powered by Discuz! X3.4

© 2001-2018 eruyi.cn

返回顶部