360搜索无法正常收藏和记录历史记录

881008

1：具体情况是，这里进去就正常可以收藏和计入历史记录


2：用搜索的进就不行，收藏的电影除了标题对，影视的图片和点进去播放的影片却不是收藏或计录的影片
如图：除了标题对，其他都错误的，包括点击播放页不是收藏的内容，而是串在别的影剧



请问这个怎么修复呢，天天影视的

a12352

881008 发表于 2018-9-23 11:02
事件 图片框2.被单击()
        公用模块.关键字=""
        公用模块.后退()

公用模块.影视海报= 高级列表框3.取项目图片(项目索引)

a12352

你看看搜索 进入播放页这的代码 是不是没有给 公用模块.电影海报    赋值

881008

a12352 发表于 2018-9-23 09:51
你看看搜索 进入播放页这的代码 是不是没有给 公用模块.电影海报    赋值

能远程给我看看吗，不会  371977756

a12352

881008 发表于 2018-9-23 10:30
能远程给我看看吗，不会  371977756

你直接把 点击切换窗口 那段代码 发上来吧

881008

a12352 发表于 2018-9-23 11:00
你直接把 点击切换窗口 那段代码 发上来吧

               


事件 图片框2.被单击()
        公用模块.关键字=""
        公用模块.后退()
结束 事件

事件 窗口_搜索.创建完毕()
        ok打不死的小强1.开启小强()
        okTab特效1.初始内容(分割文本("360影视区-抢先资源区1-抢先资源区2","-"))
        okTab特效1.置选中项(0)
        okTab特效1.背景颜色=无色
        okTab特效1.置横线颜色(蓝色)
        okTab特效1.置横线高度(3)
        okTab特效1.置选中停留(2)
        okTab特效1.置字体颜色(黑色)
        okTab特效1.置选中颜色(蓝色)
        okTab特效1.置特效类型(1)
        okTab特效1.置特效效果时间(300)
       
       
       
       
        高级列表框1.缩略显示内容(真)
        高级列表框1.初始化下载引擎(0,0,0,10,假)
        高级列表框1.置分割线高度(1)
       
        编辑框1.置左侧图标("search.png",编辑框1.高度/2,编辑框1.高度/2,10)
        编辑框1.置提示信息颜色(白色)
        编辑框1.置搜索模式()
       
        图片框3.可视=假
       
        高级列表框1.可视=真
        高级列表框2.可视=假
        高级列表框3.可视=假
        多线程3.开始取网页源码2("https://www.360kan.com/hotquery","utf8")
结束 事件

事件 窗口_搜索.切换完毕()
        高级列表框1.清空项目()
        高级列表框2.清空项目()
        高级列表框3.清空项目()
        编辑框1.内容=""

'        编辑框1.获取焦点()
'        编辑框1.显示输入法()
'        如果 公用模块.关键字<>"" 则
'                编辑框1.内容=公用模块.关键字
'                多线程1.开始取网页源码2("https://so.360kan.com/index.php?kw=" & 编辑框1.内容 & "&from=","UTF-8")
'                多线程2.开始取网页源码2("http://okzyzy.com/index.php?m=vod-search&wd=" & 编辑框1.内容,"UTF-8")
'        结束 如果
结束 事件

事件 okTab特效1.完成跳转(索引 为 整数型,标题 为 文本型)
        判断 索引
                分支 0
                        高级列表框1.可视=真
                        高级列表框2.可视=假
                        高级列表框3.可视=假
                        如果 编辑框1.内容 = "" 则
                                ok流式选择框1.可视=真
                        结束 如果
                分支 1
                        高级列表框1.可视=假
                        高级列表框2.可视=真
                        高级列表框3.可视=假
                        ok流式选择框1.可视=假
                分支 2
                        高级列表框1.可视=假
                        高级列表框2.可视=假
                        高级列表框3.可视=真
                        ok流式选择框1.可视=假
        结束 判断
结束 事件

事件 编辑框1.内容被改变(新内容 为 文本型)
       

        如果 高级列表框1.取项目数()<>0 则
                高级列表框1.清空项目()
        结束 如果
        如果 高级列表框2.取项目数()<>0 则
                高级列表框2.清空项目()
        结束 如果
        如果 高级列表框3.取项目数()<>0 则
                高级列表框3.清空项目()
        结束 如果
        如果 新内容<>"" 则
                图片框3.可视=真
                图片框1.可视=假
        否则
                ok流式选择框1.可视=真
                图片框3.可视=假
                图片框1.可视=真
        结束 如果
       
结束 事件




事件 图片框3.被单击()
        编辑框1.内容=""
        图片框3.可视=假
结束 事件


过程 开始搜索()
        如果 编辑框1.内容<>"" 则
                图片框3.可视=真
                多线程1.开始取网页源码2("https://so.360kan.com/index.php?kw=" & 编辑框1.内容 & "&from=","UTF-8")
                多线程2.开始取网页源码2("http://okzyzy.com/index.php?m=vod-search&wd=" & 编辑框1.内容,"UTF-8")
                多线程4.开始取网页源码2("http://www.zuidazyw.com/index.php?m=vod-search&wd=" & 编辑框1.内容,"UTF-8")
                ok流式选择框1.可视=假
        否则
        图片框3.可视=假
        图片框1.可视=真
        弹出提示("请先输入搜索内容！")
       
        结束 如果
结束 过程

事件 标签3.被单击()
        开始搜索()
        ok流式选择框1.可视=假

       
结束 事件

事件 编辑框1.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 回车键 则
                开始搜索()
        结束 如果
结束 事件

事件 多线程1.取网页源码2完毕(源码 为 文本型)
        变量 数据数组 为 文本型()
        变量 图片 为 文本型       
        变量 标题 为 文本型
        变量 地址 为 文本型

        变量 频道 为 文本型
        变量 类型 为 文本型
        变量 循环变量 为 整数型

        数据数组 = 取指定文本(源码,"<div class=\"m-mainpic\">","</div></div></div></div>")
        高级列表框1.清空项目()
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1 步进 1
                图片=取指定文本2(数据数组(循环变量),"<img src=\"","\" alt=")
                标题=取指定文本2(数据数组(循环变量),"\" alt=\"","\" />")
                地址=取指定文本2(数据数组(循环变量),"<a href=\"","\" class=")

                频道=取指定文本2(数据数组(循环变量),"playtype\">[","]<")
                类型=子文本替换(子文本替换(取指定文本2(数据数组(循环变量),"<li><b>类型：</b>","</li></ul>"),"<span>","") ,"</span>"," ")
                如果 类型="" 则
                        类型="未知"
                结束 如果
                高级列表框1.添加项目(图片,标题,"频道：" & 频道,"ssan.png","查看详情")
                高级列表框1.副标题一字体颜色=灰色
                高级列表框1.置副标题一(循环变量,"类型：" & 类型)
                高级列表框1.副标题二字体颜色=无色
                高级列表框1.置副标题二(循环变量,地址)
                高级列表框1.副标题三字体颜色=无色
                高级列表框1.置副标题三(循环变量,"QQ：332730557")
        变量循环尾
结束 事件

事件 高级列表框1.表项被单击(项目索引 为 整数型)
        公用模块.上个窗口="窗口_搜索"
        公用模块.关键字=""
        公用模块.详细信息=子文本替换(高级列表框1.取副标题二(项目索引),"http://www.360kan.com","")
        如果 读取窗口("窗口_播放")=空 则
        保存窗口("窗口_播放",创建 窗口_播放)
        结束 如果
        切换窗口(读取窗口("窗口_播放"))
结束 事件

事件 高级列表框1.按钮被单击(项目索引 为 整数型)
        公用模块.上个窗口="窗口_搜索"
        公用模块.关键字=""
        公用模块.详细信息=子文本替换(高级列表框1.取副标题二(项目索引),"http://www.360kan.com","")
        如果 读取窗口("窗口_播放")=空 则
        保存窗口("窗口_播放",创建 窗口_播放)
        结束 如果
        切换窗口(读取窗口("窗口_播放"))
结束 事件

事件 多线程2.取网页源码2完毕(源码 为 文本型)
        变量 截取源码 为 文本型
        变量 数据数组 为 文本型()
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
       
        截取源码 = 取指定文本2(源码,"更新时间</span></li>","<em>首页</em>")
        数据数组 = 取指定文本(截取源码,"<ul>","</ul>")
        高级列表框2.清空项目()
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1 步进 1
                标题=取指定文本2(数据数组(循环变量),"target=\"_blank\">","</a></span>")
                地址=取指定文本2(数据数组(循环变量),"<a href=\"","\" target=")
                高级列表框2.添加项目("cloud.png",标题,地址,"","")
        变量循环尾
结束 事件

事件 多线程3.取网页源码2完毕(源码 为 文本型)
        变量 正则文本 为 文本型 = "\"(.*?)\""
        变量 热搜 为 文本型
        创建表达式(正则文本,真,真)
        开始匹配(源码)
        ok流式选择框1.清空()
        判断循环首 匹配下一个()       
                ok流式选择框1.添加项目(UCS2解码(取子匹配文本(1)),黑色,&HFFF0F0F0,&HFF99CCFF,取绝对像素(5))
        判断循环尾
        ok流式选择框1.获取焦点()
结束 事件

事件 ok流式选择框1.被单击(标题 为 文本型)
        编辑框1.内容=标题
        开始搜索()
        ok流式选择框1.可视=假
        高级列表框1.可视=真
结束 事件

事件 高级列表框2.表项被单击(项目索引 为 整数型)
        公用模块.上个窗口="窗口_搜索"
        如果 公用模块.登录状态=假 则
                如果 读取窗口("窗口_登录")=空 则
                保存窗口("窗口_登录",创建 窗口_登录)
                结束 如果
                切换窗口(读取窗口("窗口_登录"))
        否则
                公用模块.详细信息 = 高级列表框2.取项目信息(项目索引)
                如果 读取窗口("窗口_播放")=空 则
                保存窗口("窗口_播放",创建 窗口_播放)
                结束 如果
                切换窗口(读取窗口("窗口_播放"))
        结束 如果
结束 事件

事件 多线程4.取网页源码2完毕(源码 为 文本型)
        变量 截取源码 为 文本型
        变量 数据数组 为 文本型()
        变量 标题 为 文本型
        变量 地址 为 文本型
        变量 循环变量 为 整数型
       
        截取源码 = 取指定文本2(源码,"更新时间</span></li>","<em>首页</em>")
        数据数组 = 取指定文本(截取源码,"<ul>","</ul>")
        高级列表框3.清空项目()
        变量循环首 循环变量=0 至 取数组成员数(数据数组)-1 步进 1
                标题=取指定文本2(数据数组(循环变量),"target=\"_blank\">","<span>")
                地址=取指定文本2(数据数组(循环变量),"<a href=\"","\" target=")
                高级列表框3.添加项目("cloud.png",标题,地址,"","")
        变量循环尾
结束 事件

事件 高级列表框3.表项被单击(项目索引 为 整数型)
        公用模块.上个窗口="窗口_搜索"
        如果 公用模块.登录状态=假 则
                如果 读取窗口("窗口_登录")=空 则
                保存窗口("窗口_登录",创建 窗口_登录)
                结束 如果
                切换窗口(读取窗口("窗口_登录"))
        否则
                公用模块.详细信息= "/" & 高级列表框3.取项目信息(项目索引)
                如果 读取窗口("窗口_播放")=空 则
                保存窗口("窗口_播放",创建 窗口_播放)
                结束 如果
                切换窗口(读取窗口("窗口_播放"))
        结束 如果
结束 事件

事件 窗口_搜索.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型)
        如果 键代码 = 返回键 则
                公用模块.关键字=""
                公用模块.后退()
        结束 如果
结束 事件

a12352

881008 发表于 2018-9-23 11:02
事件 图片框2.被单击()
        公用模块.关键字=""
        公用模块.后退()

高级列表框点击事件 里 没有 给 公用模块.影视海报 赋值

881008

a12352 发表于 2018-9-23 11:10
公用模块.影视海报= 高级列表框3.取项目图片(项目索引)

虽然不是海报，但是我改了下就修复了，感谢！

dy1122

把你的源码分享一下。

heeks

楼主，我也是同样的问题，修改那些地方呀