取网页地址问题

zhangsheng

我想取这个网站的源码 有没有大神写个例子

唯独♂奇光

https://pan.baidu.com/s/13Tj74SxQSceH_1MQOC1wzg那去吧记得cannabis

叶子

网站有例程，要利用搜索
https://www.eruyi.cn/forum.php?mod=viewthread&tid=1723&fromguid=hot&extra=&mobile=2

haoyu66

我记得我有一块这样的模板v8的，只要送我一点积分，我就给你

骚晨

看我 帖子 https://www.eruyi.cn/forum.php?mod=viewthread&tid=1723

电影电视姬

多线程 →取网页源码→用文本处理操作，处理源码获取自己要的数据

电影电视姬

自己根据自己的实际，改一下


首页采集

事件 多线程1.发送网络数据完毕(结果 为 文本型)
    变量 数据处理一 为 文本型
    变量 数据处理二 为 文本型()
    变量 计次 为 整数型
    变量 影片名 为 文本型
    变量 影片地址 为 文本型
    变量 连载 为 文本型
    变量 地区 为 文本型
    变量 更新时间 为 文本型
    高级列表框1.清空项目()
    数据处理一=取指定文本2(结果,"<!--影片列表开始-->","<!--影片列表结束-->")
    数据处理二=分割文本(数据处理一,"</tr>")
    判断循环首 计次<取数组成员数(数据处理二)
        影片名=取指定文本2(数据处理二(计次),"target=\"_blank\">","<font color=\"red\">")
        影片地址=取指定文本2(数据处理二(计次),"<td class=\"l\"><a href=\"","\"")
        连载=取指定文本2(数据处理二(计次),"[","]")
        地区=取指定文本2(数据处理二(计次),"<font color=\"Black\">","</font>")
        更新时间=取指定文本2(数据处理二(计次),"<font color=\"#2932E1\">","</font></td>")
        如果 影片名="" 则
            退出
        否则
            高级列表框1.添加项目("bf.jpg",影片名,地区&更新时间&连载,"","播放")
            高级列表框1.置副标题一(高级列表框1.取项目数()-1,影片地址)
            计次=计次+1
        结束 如果
    判断循环尾
结束 事件


详情页采集

事件 多线程1.取网页源码完毕(源码 为 文本型)
    变量 数据处理一 为 文本型
    变量 数据处理二 为 文本型()
    变量 计次 为 整数型
    变量 地址 为 文本型
    变量 集数 为 文本型
    图片列表框_集数.清空项目()
    数据处理一=取指定文本2(源码,"<!--前yjm3u8-->","<!--后yjm3u8-->")
    数据处理二=分割文本(数据处理一,"</li>")
    判断循环首 计次<取数组成员数(数据处理二)
        地址=取指定文本2(数据处理二(计次),"$</span>","m3u8")&"m3u8"
        集数=取指定文本2(数据处理二(计次),"<span>","$")
        如果 集数="" 则
            退出
        否则
            图片列表框_集数.添加项目("",集数)
            图片列表框_集数.置项目副标题(计次,地址)
            计次=计次+1
        结束 如果
    判断循环尾
    如果 图片列表框_集数.取项目数()>1 则
        播放器.初始化("www.eruyi.cn")
        播放器.开始播放(图片列表框_集数.取项目标题(图片列表框_集数.取项目数()-2),图片列表框_集数.取项目副标题(图片列表框_集数.取项目数()-2))
    否则如果 公用模块.是否会员 = 真 则
    播放器.初始化("www.eruyi.cn")
        播放器.开始播放(图片列表框_集数.取项目标题(图片列表框_集数.取项目数()-1),图片列表框_集数.取项目副标题(图片列表框_集数.取项目数()-1))
    否则
        信息框("","您还不是VIP无法观看！","确定")
    结束 如果
结束 事件

as59564143

1. 事件 多线程1.发送网络数据完毕(结果 为 文本型)
   
2.     变量 数据处理一 为 文本型
   
3.     变量 数据处理二 为 文本型()
   
4.     变量 计次 为 整数型
   
5.     变量 影片名 为 文本型
   
6.     变量 影片地址 为 文本型
   
7.     变量 连载 为 文本型
   
8.     变量 地区 为 文本型
   
9.     变量 更新时间 为 文本型
   
10.     高级列表框1.清空项目()
    
11.     数据处理一=取指定文本2(结果,"<!--影片列表开始-->","<!--影片列表结束-->")
    
12.     数据处理二=分割文本(数据处理一,"</tr>")
    
13.     判断循环首 计次<取数组成员数(数据处理二)
    
14.         影片名=取指定文本2(数据处理二(计次),"target="_blank">","<font color="red">")
    
15.         影片地址=取指定文本2(数据处理二(计次),"<td class="l"><a href="",""")
    
16.         连载=取指定文本2(数据处理二(计次),"[","]")
    
17.         地区=取指定文本2(数据处理二(计次),"<font color="Black">","</font>")
    
18.         更新时间=取指定文本2(数据处理二(计次),"<font color="#2932E1">","</font></td>")
    
19.         如果 影片名="" 则
    
20.             退出
    
21.         否则
    
22.             高级列表框1.添加项目("bf.jpg",影片名,地区&更新时间&连载,"","播放")
    
23.             高级列表框1.置副标题一(高级列表框1.取项目数()-1,影片地址)
    
24.             计次=计次+1
    
25.         结束 如果
    
26.     判断循环尾
    
27. 结束 事件
    
28. 
    
29. 
    
30. 详情页采集
    
31. 
    
32. 事件 多线程1.取网页源码完毕(源码 为 文本型)
    
33.     变量 数据处理一 为 文本型
    
34.     变量 数据处理二 为 文本型()
    
35.     变量 计次 为 整数型
    
36.     变量 地址 为 文本型
    
37.     变量 集数 为 文本型
    
38.     图片列表框_集数.清空项目()
    
39.     数据处理一=取指定文本2(源码,"<!--前yjm3u8-->","<!--后yjm3u8-->")
    
40.     数据处理二=分割文本(数据处理一,"</li>")
    
41.     判断循环首 计次<取数组成员数(数据处理二)
    
42.         地址=取指定文本2(数据处理二(计次),"$</span>","m3u8")&"m3u8"
    
43.         集数=取指定文本2(数据处理二(计次),"<span>","$")
    
44.         如果 集数="" 则
    
45.             退出
    
46.         否则
    
47.             图片列表框_集数.添加项目("",集数)
    
48.             图片列表框_集数.置项目副标题(计次,地址)
    
49.             计次=计次+1
    
50.         结束 如果
    
51.     判断循环尾
    
52.     如果 图片列表框_集数.取项目数()>1 则
    
53.         播放器.初始化("www.eruyi.cn")
    
54.         播放器.开始播放(图片列表框_集数.取项目标题(图片列表框_集数.取项目数()-2),图片列表框_集数.取项目副标题(图片列表框_集数.取项目数()-2))
    
55.     否则如果 公用模块.是否会员 = 真 则
    
56.     播放器.初始化("www.eruyi.cn")
    
57.         播放器.开始播放(图片列表框_集数.取项目标题(图片列表框_集数.取项目数()-1),图片列表框_集数.取项目副标题(图片列表框_集数.取项目数()-1))
    
58.     否则
    
59.         信息框("","您还不是VIP无法观看！","确定")
    
60.     结束 如果
    
61. 结束 事件

复制代码

zhangsheng

骚晨 发表于 2018-7-29 10:57
看我 帖子 https://www.eruyi.cn/forum.php?mod=viewthread&tid=1723

我就是下的你的源码，我换了资源网站之后，分类可以获取出来，简介和播放地址获取不了