ok唐视频图片列表类库 谁有列子

xuanxuan

ok唐视频图片列表类库 谁有列子

gejx01

可以可以的

yudave

进来看看了

易如意

如意视频列表框
https://www.eruyi.cn/thread-1368-1-1.html
(出处: 易如意)

quzj2010

这是我代码 希望可以帮到你

事件 多线程_电视剧.取网页源码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")
        结束 如果
结束 事件