切换风格

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

15

主题

296

积分

0

精华

用户组 

易积分
536
热心
1
好评
0
ok唐视频图片列表类库 谁有列子[复制链接]
发表于 2019-12-12 19:13:23 | 显示全部楼层 |阅读模式
30易积分
ok唐视频图片列表类库 谁有列子



最佳答案

查看完整内容

这是我代码 希望可以帮到你 事件 多线程_电视剧.取网页源码2完毕(源码 为 文本型) 变量 截取源码 为 文本型 变量 数据数组 为 文本型() 变量 图片 为 文本型 变量 标题 为 文本型 变量 副标 为 文本型 变量 地址 为 文本型 变量 演员 为 文本型 变量 付费 为 文本型 变量 循环变量 为 整数型 变量 记录变量 为 整数型 如果 源码 = "" 则 多线程_电视剧.开始取网页源码2(网页_电视剧 & "&pageno="& pageno_电视剧,"U ...
QQ 2012 318 813
回复

使用道具 举报

0

主题

81

积分

0

精华

用户组 

易积分
25
热心
1
好评
0
发表于 2019-12-12 19:13:24 | 显示全部楼层
这是我代码 希望可以帮到你

事件 多线程_电视剧.取网页源码2完毕(源码 为 文本型)
        变量 截取源码 为 文本型
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 副标 为 文本型
        变量 地址 为 文本型
        变量 演员 为 文本型
        变量 付费 为 文本型
        变量 循环变量 为 整数型
        变量 记录变量 为 整数型
        如果 源码 = "" 则
                多线程_电视剧.开始取网页源码2(网页_电视剧 & "&pageno="& pageno_电视剧,"UTF-8")
                退出
        结束 如果
        ok唐视频图片列表1.获取焦点()
        记录变量=ok唐视频图片列表1.取项目数()
        截取源码 = 取指定文本2(源码,"安装"& 公用模块.包含关键字 &"影视大全APP,免费观看","monitor-desc='分页")
        数据数组 = 取指定文本(截取源码,"<li class=\"item\">","</li>")
        如果 页码_电视剧=假 则
                ok唐视频图片列表1.清空项目()
                '------------------------------隐藏加载
                图片_加载.可视 = 假
            标签_加载.可视 = 假
        结束 如果
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1 步进 1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\">")
                标题=取指定文本2(数据数组(循环变量),"<span class=\"s1\">","</span>")
                副标=取指定文本2(数据数组(循环变量),"<span class=\"hint\">","</span>")
                地址=取指定文本2(数据数组(循环变量),"<a class=\"js-tongjic\" href=\"","\">")
                演员 = 取指定文本2(数据数组(循环变量),"<p class=\"star\">","</p>")
                如果 寻找文本(数据数组(循环变量),"付费</span>",0) <> -1 则
                        付费 = "VIP"
                否则
                    付费 = ""
                结束 如果
                ok唐视频图片列表1.添加项目(图片,标题,演员,付费,10,白色,红色,副标,10,白色,&H60000000,地址)'&H60000000
        变量循环尾
        ok唐视频图片列表1.刷新项目()
        如果 ok唐视频图片列表1.取项目数() = 0 则
                ok唐视频图片列表1.清空项目()
                多线程_电视剧.开始取网页源码2(网页_电视剧 & "&pageno="& pageno_电视剧,"UTF-8")
        结束 如果
结束 事件

评分

参与人数 1热心 +1 收起 理由
易如意 + 1 热心帮助他人,热心+1

查看全部评分

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

使用道具 举报

301

主题

4163

积分

24

精华

用户组 

易积分
178645
热心
102
好评
111
QQ

热心会员国庆节纪念勋章劳动节勋章活跃会员圣诞节纪念勋章

发表于 2019-12-13 12:32:47 | 显示全部楼层
如意视频列表框
https://www.eruyi.cn/thread-1368-1-1.html
(出处: 易如意)
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

3

主题

347

积分

0

精华

用户组 

易积分
843
热心
0
好评
0
发表于 2019-12-13 13:25:21 | 显示全部楼层
进来看看了
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

0

主题

2

积分

0

精华

用户组 

易积分
0
热心
0
好评
0
发表于 2019-12-21 15:02:40 | 显示全部楼层
可以可以的
易如意中文编程学习交流论坛有你更精彩~
回复

使用道具 举报

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

GMT+8, 2020-1-21 08:48 , Processed in 0.207559 second(s), 31 queries .

Powered by Discuz! X3.4

© 2001-2018 eruyi.cn

返回顶部