默认
Lavender
Sky
Flowers
Wizard
Snow
Beige
California
City
Dragon
Black
London
Sunset glow
Pink
Cloud
| 楼主，我也是同样的问题，修改那些地方呀 |
| 把你的源码分享一下。 |
a12352 发表于 2018-9-23 11:10 虽然不是海报，但是我改了下就修复了，感谢！ |
881008 发表于 2018-9-23 11:02 高级列表框点击事件 里 没有 给 公用模块.影视海报 赋值 |
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.取项目信息(项目索引) 如果 读取窗口("窗口_播放")=空 则 保存窗口("窗口_播放",创建 窗口_播放) 结束 如果 切换窗口(读取窗口("窗口_播放")) 结束 如果 结束 事件 事件 窗口_搜索.按下某键(键代码 为 整数型,传址 屏蔽 为 逻辑型) 如果 键代码 = 返回键 则 公用模块.关键字="" 公用模块.后退() 结束 如果 结束 事件 |
881008 发表于 2018-9-23 10:30 你直接把 点击切换窗口 那段代码 发上来吧 |
a12352 发表于 2018-9-23 09:51 能远程给我看看吗，不会 371977756 |
| 你看看搜索 进入播放页这的代码 是不是没有给 公用模块.电影海报 赋值 |
快捷导航
组图打开中，请稍候......
