ok唐视频图片列表类库 谁有列子
ok唐视频图片列表类库 谁有列子这是我代码 希望可以帮到你
事件 多线程_电视剧.取网页源码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")
结束 如果
结束 事件 如意视频列表框
https://www.eruyi.cn/thread-1368-1-1.html
(出处: 易如意)
进来看看了 可以可以的
页:
[1]