用户组 
易积分193
热心0
好评0
|
想请教大佬们，影视列表可以正常取出来，但是图片列表框被单击切换窗口后我就不知道怎么取了，特别是影视播放链接，比如战狼2只有3个播放文本，如果换一个影视是4个播放链接怎么办呢？ 一切换窗口一就闪退，窗口一我想取剧集来源
变量 翻页 为 整数型=1
事件 主窗口.创建完毕()
荣幸_电影列表1.初始化列表(400,400)
荣幸_电影列表1.置项目列数(3)
多线程1.开始取网页源码2("https://api.web.360kan.com/v1/filter/list?catid=1&rank=rankhot&cat=&year=&area=&act=&size=35&pageno=1","UTF-8")
结束 事件
事件 多线程1.取网页源码2完毕(源码 为 文本型)
变量 json对象1 为 对象
变量 json对象2 为 对象
变量 数组 为 对象
变量 剧名 为 文本型
变量 i 为 整数型
变量 数组内 为 对象
变量 图片 为 文本型
变量 副标题 为 文本型
变量 地址 为 文本型
json对象1=JSON操作1.解析(源码)
json对象2=JSON操作1.取对象(json对象1,"data")
数组=JSON操作1.取数组(json对象2,"movies")
i=0
判断循环首 i< JSON操作1.取数组内成员数(数组)
数组内 = JSON操作1.取数组内对象(数组,i)
剧名=JSON操作1.取文本值(数组内,"title")
图片=JSON操作1.取文本值(数组内,"cdncover")
副标题=JSON操作1.取文本值(数组内,"comment")
地址="https://api.web.360kan.com/v1/detail?cat=" & 翻页 & "&id=" & JSON操作1.取文本值(数组内,"id")
荣幸_电影列表1.添加项目("http:" &图片,剧名,副标题,"","","")
i=i+1
判断循环尾
结束 事件
事件 荣幸_电影列表1.滚动到底部()
翻页=翻页+1
多线程1.开始取网页源码2("https://api.web.360kan.com/v1/filter/list?catid=1&rank=rankhot&cat=&year=&area=&act=&size=35&pageno="& 翻页,"UTF-8")
结束 事件
事件 荣幸_电影列表1.表项被单击(项目索引 为 整数型)
公用模块.播放地址=荣幸_电影列表1.取项目标记(项目索引)
如果 读取窗口("窗口1")=空 则
保存窗口("窗口1",创建 窗口1)
结束 如果
切换窗口(读取窗口("窗口1"))
结束 事件
事件 窗口1.创建完毕()
多线程1.开始取网页源码2(公用模块.播放地址,"UTF-8")
ok打不死的小强1.开启小强()
结束 事件
事件 多线程1.取网页源码2完毕(源码 为 文本型)
变量 json对象1 为 对象
变量 json对象2 为 对象
变量 json对象3 为 对象
变量 数组 为 对象
变量 剧名 为 文本型
变量 i 为 整数型
变量 数组内 为 对象
变量 图片 为 文本型
变量 副标题 为 文本型
变量 地址 为 文本型
变量 来源 为 对象
变量 来源名称 为 对象
json对象1=JSON操作1.解析(源码)
json对象2=JSON操作1.取对象(json对象1,"data")
json对象3=JSON操作1.取数组(json对象2,"movies")
来源=JSON操作1.取数组(json对象3,"playlink_sites")
判断循环首 i< JSON操作1.取数组内成员数(来源)
来源名称=JSON操作1.取数组内对象(来源,i)
列表框1.插入项目(0,来源名称)
i=i+1
判断循环尾
结束 事件
事件 窗口1.切换完毕()
列表框1.清空项目()
结束 事件
|
|
默认
Lavender
Sky
Flowers
Wizard
Snow
Beige
California
City
Dragon
Black
London
Sunset glow
Pink
Cloud
快捷导航
提升卡
变色卡
