切换风格

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

取网页地址问题

查看数: 2333 | 评论数: 8 | 收藏 1
关灯 | 提示:支持键盘翻页<-左 右->
    组图打开中,请稍候......
发布时间: 2018-7-28 21:05

正文摘要:

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

回复

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

我就是下的你的源码,我换了资源网站之后,分类可以获取出来,简介和播放地址获取不了
as59564143 发表于 2018-7-29 12:14:33
  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. 事件 多线程1.取网页源码完毕(源码 为 文本型)
  30.     变量 数据处理一 为 文本型
  31.     变量 数据处理二 为 文本型()
  32.     变量 计次 为 整数型
  33.     变量 地址 为 文本型
  34.     变量 集数 为 文本型
  35.     图片列表框_集数.清空项目()
  36.     数据处理一=取指定文本2(源码,"<!--前yjm3u8-->","<!--后yjm3u8-->")
  37.     数据处理二=分割文本(数据处理一,"</li>")
  38.     判断循环首 计次<取数组成员数(数据处理二)
  39.         地址=取指定文本2(数据处理二(计次),"$</span>","m3u8")&"m3u8"
  40.         集数=取指定文本2(数据处理二(计次),"<span>","$")
  41.         如果 集数="" 则
  42.             退出
  43.         否则
  44.             图片列表框_集数.添加项目("",集数)
  45.             图片列表框_集数.置项目副标题(计次,地址)
  46.             计次=计次+1
  47.         结束 如果
  48.     判断循环尾
  49.     如果 图片列表框_集数.取项目数()>1 则
  50.         播放器.初始化("www.eruyi.cn")
  51.         播放器.开始播放(图片列表框_集数.取项目标题(图片列表框_集数.取项目数()-2),图片列表框_集数.取项目副标题(图片列表框_集数.取项目数()-2))
  52.     否则如果 公用模块.是否会员 = 真 则
  53.     播放器.初始化("www.eruyi.cn")
  54.         播放器.开始播放(图片列表框_集数.取项目标题(图片列表框_集数.取项目数()-1),图片列表框_集数.取项目副标题(图片列表框_集数.取项目数()-1))
  55.     否则
  56.         信息框("","您还不是VIP无法观看!","确定")
  57.     结束 如果
  58. 结束 事件
复制代码
电影电视姬 发表于 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无法观看!","确定")
    结束 如果
结束 事件



电影电视姬 发表于 2018-7-29 11:38:10
多线程 →取网页源码→用文本处理操作,处理源码获取自己要的数据
骚晨 发表于 2018-7-29 10:57:45
看我 帖子 https://www.eruyi.cn/forum.php?mod=viewthread&tid=1723
haoyu66 发表于 2018-7-28 22:36:01
我记得我有一块这样的模板v8的,只要送我一点积分,我就给你
叶子 发表于 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
唯独♂奇光 发表于 2018-7-28 21:05:34
https://pan.baidu.com/s/13Tj74SxQSceH_1MQOC1wzg那去吧记得cannabis

评分

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

查看全部评分

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

GMT+8, 2025-5-1 12:02 , Processed in 0.079607 second(s), 39 queries .

Powered by Discuz! X3.4

© 2001-2018 eruyi.cn

返回顶部