1. 事件 多线程_获取视频数据.取网页源码2完毕(源码 为 文本型)
2. 如果 源码 <> "" 则
3. 变量 JSON对象 为 对象
4. 变量 请求结果 为 文本型
5. 变量 子JSON对象 为 对象
6. 变量 影视信息组 为 对象
7. 变量 标题 为 文本型
8. 变量 图片 为 文本型
9. 变量 链接 为 文本型
10. 变量 I 为 整数型
11. I=0
12. JSON对象=JSON操作1.解析(源码)
13. 请求结果=JSON操作1.取文本值(JSON对象,"status")
14. 弹出提示("数据加载成功")
15. 如果 请求结果="success" 则
16. 子JSON对象=JSON操作1.取对象(JSON对象,"data")
17. 影视信息组=JSON操作1.取数组(子JSON对象,"arr")
18. 判断循环首 I<JSON操作1.取数组内成员数(影视信息组)
19. JSON对象=JSON操作1.取数组内对象(影视信息组,I)
20. 标题=JSON操作1.取文本值(JSON对象,"name")
21. 图片=JSON操作1.取文本值(JSON对象,"imgUrl")
22. 链接=JSON操作1.取文本值(JSON对象,"urlLink")
23. 图片列表框1.添加项目(图片,标题)
24. 图片列表框1.置项目副标题(图片列表框1.取项目数()-1,链接)
25. I=I+1
26. 判断循环尾
27. 结束 如果
28. 如果 全局_是否筛选 = 真 则
29. 时钟_置视频现行选中项.时钟周期 = 500
30. 结束 如果
31. 否则
32. ok工具类1.失败信息框(1,"温馨提示","加载视频信息失败,请点右上角筛选进行视频信息读取")
33. 结束 如果
34. 关闭进度对话框()
35. 结束 事件