xmt2020 发表于 2020-12-15 23:40:25

求最新的360影视筛选界面修复


事件 标签1.获得焦点()
        标签1.背景颜色=白色
        标签1.字体颜色=黑色
结束 事件

事件 标签1.失去焦点()
        标签1.背景颜色=无色
        标签1.字体颜色=白色
结束 事件

事件 图片框1.获得焦点()
        图片框1.背景颜色=白色
结束 事件

事件 图片框1.失去焦点()
        图片框1.背景颜色=无色
结束 事件       
       
事件 标签1.被单击()
        如果 读取窗口("窗口_首页")=空 则
                保存窗口("窗口_首页",创建 窗口_首页)
        结束 如果
        切换窗口(读取窗口("窗口_首页"))
结束 事件

事件 图片框1.被单击()
        如果 读取窗口("会员")=空 则
                保存窗口("会员",创建 会员)
        结束 如果
        切换窗口(读取窗口("会员"))
结束 事件

事件 窗口列表.创建完毕()
       
结束 事件
    变量 记录分类 为 文本型
        变量 是否清空 为 逻辑型
        变量 网页 为 文本型
事件 窗口列表.切换完毕()
        列表框1.获取焦点()
        图片列表框1.获取焦点()
        图片列表框1.初始化下载引擎(R.aa0,R.aa0,R.aa0,20,假)
        图片列表框1.图片宽度=100'取绝对像素(100)
        图片列表框1.图片高度=120'取绝对像素(100*1.2)
        图片列表框1.隐藏副标题()
        图片列表框1.缩略显示内容(真)
        图片列表框1.置图片显示方式(3)
        如果 记录分类<>公用模块.窗口分类 则
                图片列表框1.清空项目()
                列表框1.清空项目()
                列表框2.清空项目()
                列表框3.清空项目()
                是否清空=真
                记录分类=公用模块.窗口分类
                标签1.标题="<   "&公用模块.窗口分类&"   "
                页数=1
                判断 公用模块.窗口分类
                        分支 "电视剧"
                                网页="https://www.360kan.com/dianshi/list.php?"
                        多线程1.开始取网页源码2(网页,"UTF-8")
                        分支 "电影"       
                                网页="https://www.360kan.com/dianying/list.php?"
                                多线程2.开始取网页源码2(网页,"UTF-8")
                        分支 "综艺"
                                网页="https://www.360kan.com/zongyi/list.php?"
                                多线程3.开始取网页源码2(网页,"UTF-8")
                        分支 "动漫"       
                                网页="https://www.360kan.com/dongman/list.php?"
                                多线程4.开始取网页源码2(网页,"UTF-8")
                                分支 "儿童"       
                                网页="https://www.360kan.com/dianying/list.php?year=all&area=all&act=all&cat=107"
                                多线程6.开始取网页源码2(网页,"UTF-8")
                结束 判断
        结束 如果
结束 事件

事件 多线程1.取网页源码2完毕(源码 为 文本型)
        如果 是否清空=真 则
      变量 类型 为 文本型
                变量 年代 为 文本型
                变量 地区 为 文本型
                变量 类型名称数组 为 文本型()
                变量 类型代码数组 为 文本型()
                变量 年代名称数组 为 文本型()
                变量 年代代码数组 为 文本型()
                变量 地区名称数组 为 文本型()
                变量 地区代码数组 为 文本型()
                变量 计数 为 整数型
                类型=子文本替换(取指定文本2(源码,"类型:</dt>","tab_类型:_更多"),"<i class=\"s-hot-icon\"></i>","")
                类型名称数组=取指定文本(类型,":_","\">")
                类型代码数组=取指定文本(类型,"cat=","\" target=")
                计数=0
                列表框1.清空项目()
                列表框1.添加项目("全部")
                列表框1.置项目标记(列表框1.取项目数()-1,"&cat=all")
                列表框1代码="&cat=all"
                列表框1.置现行选中项(0)
                判断循环首 计数< 取数组成员数(类型名称数组)
                        列表框1.添加项目(删首尾空(类型名称数组(计数)))
                  列表框1.置项目标记(列表框1.取项目数()-1,"&cat="&类型代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                年代=子文本替换(取指定文本2(源码,"年代:</dt>","tab_年代:_更多"),"<i class=\"s-hot-icon\"></i>","")
                年代名称数组=取指定文本(年代,":_","\">")
                年代代码数组=取指定文本(年代,"year=","\" target=")
                计数=0
                列表框2.清空项目()
                列表框2.添加项目("全部")
                列表框2.置项目标记(列表框2.取项目数()-1,"&year=all")
                列表框2代码="&year=all"
                列表框2.置现行选中项(0)
                判断循环首 计数< 取数组成员数(年代名称数组)
                        列表框2.添加项目(删首尾空(年代名称数组(计数)))
                  列表框2.置项目标记(列表框2.取项目数()-1,"&year="&年代代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                地区=子文本替换(取指定文本2(源码,"地区:</dt>","tab_地区:_更多"),"<i class=\"s-hot-icon\"></i>","")
                地区名称数组=取指定文本(地区,":_","\">")
                地区代码数组=取指定文本(地区,"area=","\" target=")
                计数=0
                列表框3.清空项目()
                列表框3.添加项目("全部")
                列表框3.置项目标记(列表框3.取项目数()-1,"&area=all")
                列表框3代码="&area=all"
                列表框3.置现行选中项(0)
                判断循环首 计数< 取数组成员数(地区名称数组)
                        列表框3.添加项目(删首尾空(地区名称数组(计数)))
                  列表框3.置项目标记(列表框3.取项目数()-1,"&area="&地区代码数组(计数))
                        计数=计数+1
                判断循环尾
                是否清空=假
                列表框1.置现行选中项(0)
                列表框1.获取焦点()
        结束 如果
       
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
        数据数组 = 取指定文本(取指定文本2(源码,"安装360影视大全APP，免费观看","加载更多"),"<li class=\"item\">","</li>")
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\">")
                标题=取指定文本2(数据数组(循环变量),"<span class=\"s1\">","</span>")
                地址=取指定文本2(数据数组(循环变量),"<a class=\"js-tongjic\" href=\"","\"")
                图片列表框1.添加项目(图片,标题)
                图片列表框1.置项目副标题(图片列表框1.取项目数()-1,地址)
        变量循环尾
        图片列表框1.获取焦点()
结束 事件
事件 多线程2.取网页源码2完毕(源码 为 文本型)
        如果 是否清空=真 则
                变量 类型 为 文本型
                变量 年代 为 文本型
                变量 地区 为 文本型
                变量 类型名称数组 为 文本型()
                变量 类型代码数组 为 文本型()
                变量 年代名称数组 为 文本型()
                变量 年代代码数组 为 文本型()
                变量 地区名称数组 为 文本型()
                变量 地区代码数组 为 文本型()
                变量 计数 为 整数型
                类型=子文本替换(取指定文本2(源码,"类型:</dt>","tab_类型:_更多"),"<i class=\"s-hot-icon\"></i>","")
                类型名称数组=取指定文本(类型,":_","\">")
                类型代码数组=取指定文本(类型,"cat=","\" target=")
                计数=0
                列表框1.清空项目()
                列表框1.添加项目("全部")
                列表框1.置项目标记(列表框1.取项目数()-1,"&cat=all")
                列表框1代码="&cat=all"
                列表框1.置现行选中项(0)
                判断循环首 计数< 取数组成员数(类型名称数组)
                        列表框1.添加项目(删首尾空(类型名称数组(计数)))
                  列表框1.置项目标记(列表框1.取项目数()-1,"&cat="&类型代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                年代=子文本替换(取指定文本2(源码,"年代:</dt>","tab_年代:_更多"),"<i class=\"s-hot-icon\"></i>","")
                年代名称数组=取指定文本(年代,":_","\">")
                年代代码数组=取指定文本(年代,"year=","\" target=")
                计数=0
                列表框2.清空项目()
                列表框2.添加项目("全部")
                列表框2.置项目标记(列表框2.取项目数()-1,"&year=all")
                列表框2代码="&year=all"
                列表框2.置现行选中项(0)
                判断循环首 计数< 取数组成员数(年代名称数组)
                        列表框2.添加项目(删首尾空(年代名称数组(计数)))
                  列表框2.置项目标记(列表框2.取项目数()-1,"&year="&年代代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                地区=子文本替换(取指定文本2(源码,"地区:</dt>","tab_地区:_更多"),"<i class=\"s-hot-icon\"></i>","")
                地区名称数组=取指定文本(地区,":_","\">")
                地区代码数组=取指定文本(地区,"area=","\" target=")
                计数=0
                列表框3.清空项目()
                列表框3.添加项目("全部")
                列表框3.置项目标记(列表框3.取项目数()-1,"&area=all")
                列表框3代码="&area=all"
                列表框3.置现行选中项(0)
                判断循环首 计数< 取数组成员数(地区名称数组)
                        列表框3.添加项目(删首尾空(地区名称数组(计数)))
                  列表框3.置项目标记(列表框3.取项目数()-1,"&area="&地区代码数组(计数))
                        计数=计数+1
                判断循环尾
                是否清空=假
                列表框1.置现行选中项(0)
                列表框1.获取焦点()
        结束 如果
       
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
    数据数组 = 取指定文本(取指定文本2(源码,"安装360影视大全APP，免费观看","加载更多"),"<li class=\"item\">","</li>")
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\">")
                标题=取指定文本2(数据数组(循环变量),"<span class=\"s1\">","</span>")
                地址=取指定文本2(数据数组(循环变量),"<a class=\"js-tongjic\" href=\"","\"")
                图片列表框1.添加项目(图片,标题)
                图片列表框1.置项目副标题(图片列表框1.取项目数()-1,地址)
        变量循环尾
        图片列表框1.获取焦点()
结束 事件
事件 多线程3.取网页源码2完毕(源码 为 文本型)
        如果 是否清空=真 则
                变量 类型 为 文本型
                变量 年代 为 文本型
                变量 地区 为 文本型
                变量 类型名称数组 为 文本型()
                变量 类型代码数组 为 文本型()
                变量 年代名称数组 为 文本型()
                变量 年代代码数组 为 文本型()
                变量 地区名称数组 为 文本型()
                变量 地区代码数组 为 文本型()
                变量 计数 为 整数型
                类型=子文本替换(取指定文本2(源码,"类型:</dt>","tab_类型:_更多"),"<i class=\"s-hot-icon\"></i>","")
                类型名称数组=取指定文本(类型,":_","\">")
                类型代码数组=取指定文本(类型,"cat=","\" target=")
                计数=0
                列表框1.清空项目()
                列表框1.添加项目("全部")
                列表框1.置项目标记(列表框1.取项目数()-1,"&cat=all")
                列表框1代码="&cat=all"
                列表框1.置现行选中项(0)
                判断循环首 计数< 取数组成员数(类型名称数组)
                        列表框1.添加项目(删首尾空(类型名称数组(计数)))
                  列表框1.置项目标记(列表框1.取项目数()-1,"&cat="&类型代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                年代=子文本替换(取指定文本2(源码,"明星:</dt>","tab_明星:_更多"),"<i class=\"s-hot-icon\"></i>","")
                年代名称数组=取指定文本(年代,":_","\">")
                年代代码数组=取指定文本(年代,"act=","\" target=")
                计数=0
                列表框2.清空项目()
                列表框2.添加项目("全部")
                列表框2.置项目标记(列表框2.取项目数()-1,"&act=all")
                列表框2代码="&act=all"
                列表框2.置现行选中项(0)
                判断循环首 计数< 取数组成员数(年代名称数组)
                        列表框2.添加项目(删首尾空(年代名称数组(计数)))
                  列表框2.置项目标记(列表框2.取项目数()-1,"&act="&年代代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                地区=子文本替换(取指定文本2(源码,"地区:</dt>","tab_地区:_更多"),"<i class=\"s-hot-icon\"></i>","")
                地区名称数组=取指定文本(地区,":_","\">")
                地区代码数组=取指定文本(地区,"area=","\" target=")
                计数=0
                列表框3.清空项目()
                列表框3.添加项目("全部")
                列表框3.置项目标记(列表框3.取项目数()-1,"&area=all")
                列表框3代码="&area=all"
                列表框3.置现行选中项(0)
                判断循环首 计数< 取数组成员数(地区名称数组)
                        列表框3.添加项目(删首尾空(地区名称数组(计数)))
                  列表框3.置项目标记(列表框3.取项目数()-1,"&area="&地区代码数组(计数))
                        计数=计数+1
                判断循环尾
                是否清空=假
                列表框1.置现行选中项(0)
                列表框1.获取焦点()
        结束 如果
       
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
        数据数组 = 取指定文本(取指定文本2(源码,"安装360影视大全APP，免费观看","加载更多"),"<li class=\"item\">","</li>")
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\">")
                标题=取指定文本2(数据数组(循环变量),"<span class=\"s1\">","</span>")
                地址=取指定文本2(数据数组(循环变量),"<a class=\"js-tongjic\" href=\"","\"")
                图片列表框1.添加项目(图片,标题)
                图片列表框1.置项目副标题(图片列表框1.取项目数()-1,地址)
        变量循环尾
        图片列表框1.获取焦点()
结束 事件
事件 多线程4.取网页源码2完毕(源码 为 文本型)
        如果 是否清空=真 则
                变量 类型 为 文本型
                变量 年代 为 文本型
                变量 地区 为 文本型
                变量 类型名称数组 为 文本型()
                变量 类型代码数组 为 文本型()
                变量 年代名称数组 为 文本型()
                变量 年代代码数组 为 文本型()
                变量 地区名称数组 为 文本型()
                变量 地区代码数组 为 文本型()
                变量 计数 为 整数型
                类型=子文本替换(取指定文本2(源码,"类型:</dt>","tab_类型:_更多"),"<i class=\"s-hot-icon\"></i>","")
                类型名称数组=取指定文本(类型,":_","\">")
                类型代码数组=取指定文本(类型,"cat=","\" target=")
                计数=0
                列表框1.清空项目()
                列表框1.添加项目("全部")
                列表框1.置项目标记(列表框1.取项目数()-1,"&cat=all")
                列表框1代码="&cat=all"
                列表框1.置现行选中项(0)
                判断循环首 计数< 取数组成员数(类型名称数组)
                        列表框1.添加项目(删首尾空(类型名称数组(计数)))
                  列表框1.置项目标记(列表框1.取项目数()-1,"&cat="&类型代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                年代=子文本替换(取指定文本2(源码,"年代:</dt>","tab_年代:_更多"),"<i class=\"s-hot-icon\"></i>","")
                年代名称数组=取指定文本(年代,":_","\">")
                年代代码数组=取指定文本(年代,"year=","\" target=")
                计数=0
                列表框2.清空项目()
                列表框2.添加项目("全部")
                列表框2.置项目标记(列表框2.取项目数()-1,"&year=all")
                列表框2代码="&year=all"
                列表框2.置现行选中项(0)
                判断循环首 计数< 取数组成员数(年代名称数组)
                        列表框2.添加项目(删首尾空(年代名称数组(计数)))
                  列表框2.置项目标记(列表框2.取项目数()-1,"&year="&年代代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                地区=子文本替换(取指定文本2(源码,"地区:</dt>","tab_地区:_更多"),"<i class=\"s-hot-icon\"></i>","")
                地区名称数组=取指定文本(地区,":_","\">")
                地区代码数组=取指定文本(地区,"area=","\" target=")
                计数=0
                列表框3.清空项目()
                列表框3.添加项目("全部")
                列表框3.置项目标记(列表框3.取项目数()-1,"&area=all")
                列表框3代码="&area=all"
                列表框3.置现行选中项(0)
                判断循环首 计数< 取数组成员数(地区名称数组)
                        列表框3.添加项目(删首尾空(地区名称数组(计数)))
                  列表框3.置项目标记(列表框3.取项目数()-1,"&area="&地区代码数组(计数))
                        计数=计数+1
                判断循环尾
                是否清空=假
                列表框1.置现行选中项(0)
                列表框1.获取焦点()
        结束 如果
       
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
        数据数组 = 取指定文本(取指定文本2(源码,"安装360影视大全APP，免费观看","加载更多"),"<li class=\"item\">","</li>")
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\">")
                标题=取指定文本2(数据数组(循环变量),"<span class=\"s1\">","</span>")
                地址=取指定文本2(数据数组(循环变量),"<a class=\"js-tongjic\" href=\"","\"")
                图片列表框1.添加项目(图片,标题)
                图片列表框1.置项目副标题(图片列表框1.取项目数()-1,地址)
        变量循环尾
        图片列表框1.获取焦点()
结束 事件


事件 多线程6.取网页源码2完毕(源码 为 文本型)
        如果 是否清空=真 则
                变量 类型 为 文本型
                变量 年代 为 文本型
                变量 地区 为 文本型
                变量 类型名称数组 为 文本型()
                变量 类型代码数组 为 文本型()
                变量 年代名称数组 为 文本型()
                变量 年代代码数组 为 文本型()
                变量 地区名称数组 为 文本型()
                变量 地区代码数组 为 文本型()
                变量 计数 为 整数型
                类型=子文本替换(取指定文本2(源码,"类型:</dt>","tab_类型:_更多"),"<i class=\"s-hot-icon\"></i>","")
                类型名称数组=取指定文本(类型,":_","\">")
                类型代码数组=取指定文本(类型,"cat=","\" target=")
                计数=0
                列表框1.清空项目()
                列表框1.添加项目("全部")
                列表框1.置项目标记(列表框1.取项目数()-1,"&cat=all")
                列表框1代码="&cat=all"
                列表框1.置现行选中项(0)
                判断循环首 计数< 取数组成员数(类型名称数组)
                        列表框1.添加项目(删首尾空(类型名称数组(计数)))
                  列表框1.置项目标记(列表框1.取项目数()-1,"&cat="&类型代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                年代=子文本替换(取指定文本2(源码,"年代:</dt>","tab_年代:_更多"),"<i class=\"s-hot-icon\"></i>","")
                年代名称数组=取指定文本(年代,":_","\">")
                年代代码数组=取指定文本(年代,"year=","\" target=")
                计数=0
                列表框2.清空项目()
                列表框2.添加项目("全部")
                列表框2.置项目标记(列表框2.取项目数()-1,"&year=all")
                列表框2代码="&year=all"
                列表框2.置现行选中项(0)
                判断循环首 计数< 取数组成员数(年代名称数组)
                        列表框2.添加项目(删首尾空(年代名称数组(计数)))
                  列表框2.置项目标记(列表框2.取项目数()-1,"&year="&年代代码数组(计数))
                        计数=计数+1
                判断循环尾
               
                地区=子文本替换(取指定文本2(源码,"地区:</dt>","tab_地区:_更多"),"<i class=\"s-hot-icon\"></i>","")
                地区名称数组=取指定文本(地区,":_","\">")
                地区代码数组=取指定文本(地区,"area=","\" target=")
                计数=0
                列表框3.清空项目()
                列表框3.添加项目("全部")
                列表框3.置项目标记(列表框3.取项目数()-1,"&area=all")
                列表框3代码="&area=all"
                列表框3.置现行选中项(0)
                判断循环首 计数< 取数组成员数(地区名称数组)
                        列表框3.添加项目(删首尾空(地区名称数组(计数)))
                  列表框3.置项目标记(列表框3.取项目数()-1,"&area="&地区代码数组(计数))
                        计数=计数+1
                判断循环尾
                是否清空=假
                列表框1.置现行选中项(0)
                列表框1.获取焦点()
        结束 如果
       
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
        数据数组 = 取指定文本(取指定文本2(源码,"安装360影视大全APP，免费观看","加载更多"),"<li class=\"item\">","</li>")
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\">")
                标题=取指定文本2(数据数组(循环变量),"<span class=\"s1\">","</span>")
                地址=取指定文本2(数据数组(循环变量),"<a class=\"js-tongjic\" href=\"","\"")
                图片列表框1.添加项目(图片,标题)
                图片列表框1.置项目副标题(图片列表框1.取项目数()-1,地址)
        变量循环尾
        图片列表框1.获取焦点()
结束 事件
事件 窗口列表.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        判断 键代码
                分支 返回键
                        如果 读取窗口("窗口_首页")=空 则
                                保存窗口("窗口_首页",创建 窗口_首页)
                        结束 如果
                        切换窗口(读取窗口("窗口_首页"))
        结束 判断
结束 事件
    变量 页数 为 整数型
事件 图片列表框1.表项被滚动(首个可见项目索引 为 整数型,可见项目总数 为 整数型,所有项目总数 为 整数型)
        如果 首个可见项目索引 = 所有项目总数 - 可见项目总数 则
                页数=页数+1
                判断 公用模块.窗口分类
                        分支 "电视剧"
                                网页="https://www.360kan.com/dianshi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程1.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                        分支 "电影"       
                                网页="https://www.360kan.com/dianying/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程2.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                        分支 "综艺"
                                网页="https://www.360kan.com/zongyi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程3.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                        分支 "动漫"       
                                网页="https://www.360kan.com/dongman/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程4.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                                分支 "儿童"       
                                网页="https://www.360kan.com/dianying/list.php?year=all&area=all&act=all&cat=107"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程6.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                       
                结束 判断
        结束 如果
结束 事件
    变量 列表框1代码 为 文本型
        变量 列表框2代码 为 文本型
        变量 列表框3代码 为 文本型
事件 列表框1.表项被单击(项目索引 为 整数型)
        列表框1代码=列表框1.取项目标记(项目索引)
        图片列表框1.清空项目()
        页数=1
        判断 公用模块.窗口分类
                分支 "电视剧"
                        网页="https://www.360kan.com/dianshi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                多线程1.开始取网页源码2(网页,"UTF-8")
                分支 "电影"       
                        网页="https://www.360kan.com/dianying/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程2.开始取网页源码2(网页,"UTF-8")
                分支 "综艺"
                        网页="https://www.360kan.com/zongyi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程3.开始取网页源码2(网页,"UTF-8")
                分支 "动漫"       
                        网页="https://www.360kan.com/dongman/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程4.开始取网页源码2(网页,"UTF-8")
        结束 判断
结束 事件


事件 列表框2.表项被单击(项目索引 为 整数型)
        列表框2代码=列表框2.取项目标记(项目索引)
        图片列表框1.清空项目()
        页数=1
        判断 公用模块.窗口分类
                分支 "电视剧"
                        网页="https://www.360kan.com/dianshi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                多线程1.开始取网页源码2(网页,"UTF-8")
                分支 "电影"       
                        网页="https://www.360kan.com/dianying/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程2.开始取网页源码2(网页,"UTF-8")
                分支 "综艺"
                        网页="https://www.360kan.com/zongyi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程3.开始取网页源码2(网页,"UTF-8")
                分支 "动漫"       
                        网页="https://www.360kan.com/dongman/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程4.开始取网页源码2(网页,"UTF-8")
        结束 判断
结束 事件
事件 列表框3.表项被单击(项目索引 为 整数型)
        列表框3代码=列表框3.取项目标记(项目索引)
        图片列表框1.清空项目()
        页数=1
        判断 公用模块.窗口分类
                分支 "电视剧"
                        网页="https://www.360kan.com/dianshi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                多线程1.开始取网页源码2(网页,"UTF-8")
                分支 "电影"       
                        网页="https://www.360kan.com/dianying/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程2.开始取网页源码2(网页,"UTF-8")
                分支 "综艺"
                        网页="https://www.360kan.com/zongyi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程3.开始取网页源码2(网页,"UTF-8")
                分支 "动漫"       
                        网页="https://www.360kan.com/dongman/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程4.开始取网页源码2(网页,"UTF-8")
        结束 判断
结束 事件

事件 图片列表框1.表项被单击(项目索引 为 整数型)
        公用模块.播放标题 = 图片列表框1.取项目标题(项目索引)
        公用模块.播放链接 = 图片列表框1.取项目副标题(项目索引)
        如果 读取窗口("窗口播放")=空 则
      保存窗口("窗口播放",创建 窗口播放)
    结束 如果
    切换窗口(读取窗口("窗口播放"))
结束 事件
事件 标签2.获得焦点()
        页数=页数+1
                判断 公用模块.窗口分类
                        分支 "电视剧"
                                网页="https://www.360kan.com/dianshi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                        多线程1.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                        分支 "电影"       
                                网页="https://www.360kan.com/dianying/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程2.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                        分支 "综艺"
                                网页="https://www.360kan.com/zongyi/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程3.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                        分支 "动漫"       
                                网页="https://www.360kan.com/dongman/list.php?"&列表框1代码 & 列表框2代码 & 列表框3代码
                                多线程4.开始取网页源码2(网页 & "&pageno=" & 页数,"UTF-8")
                结束 判断
结束 事件

独坐英雄冢 发表于 2020-12-16 10:31:16

https://www.eruyi.cn/forum.php?mod=viewthread&tid=9727

quzj2010 发表于 2020-12-16 10:32:43

独坐英雄冢 发表于 2020-12-16 10:31
https://www.eruyi.cn/forum.php?mod=viewthread&tid=9727

https://www.eruyi.cn/thread-9727-1-3.html

chengwei5714869 发表于 2020-12-16 10:34:18

没啥难度，自己多看看采集的类名代码是不是跟360影视的源代码一样，自己多看看就能修复，而且自己修复将来变动自己也就一次性自己改了！

eruyivip 发表于 2020-12-16 13:41:27

易如意中文编程学习交流论坛有你更精彩~

大飞工作室 发表于 2020-12-16 13:41:35

易如意中文编程学习交流论坛有你更精彩~

xmt2020 发表于 2020-12-19 00:16:27

亲测无效

xmt2020 发表于 2020-12-19 00:16:50

独坐英雄冢 发表于 2020-12-16 10:31
https://www.eruyi.cn/forum.php?mod=viewthread&tid=9727

亲测无效

独坐英雄冢 发表于 2020-12-19 23:37:18

xmt2020 发表于 2020-12-19 00:16
亲测无效

拿着我的代码，跟我说无效？除非你上次不是跟我的教程修改的。点我头像里看看吧。

acx520 发表于 2024-2-29 15:28:42

ѧϰ
页: [1]
查看完整版本: 求最新的360影视筛选界面修复