zhangsheng 发表于 2018-7-28 21:05:33

取网页地址问题

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

唯独♂奇光 发表于 2018-7-28 21:05:34

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

叶子 发表于 2018-7-28 22:23:57

本帖最后由 叶子 于 2018-7-28 22:31 编辑

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

haoyu66 发表于 2018-7-28 22:36:01

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

骚晨 发表于 2018-7-29 10:57:45

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

电影电视姬 发表于 2018-7-29 11:38:10

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

电影电视姬 发表于 2018-7-29 11:45:46

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


首页采集

事件 多线程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 发表于 2018-7-29 12:14:33

事件 多线程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无法观看！","确定")
    结束 如果
结束 事件

zhangsheng 发表于 2018-7-29 14:17:01

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

我就是下的你的源码，我换了资源网站之后，分类可以获取出来，简介和播放地址获取不了
页: [1]
查看完整版本: 取网页地址问题