| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | | | |
超级列表框.
全部删除 ()进度条1.位置 ＝ 0
启动线程 (&搜索种子, ,
)搜索电影返回数据 ＝
网页_访问S (“http://www.btba.com.cn/search?keyword=” ＋
编码_URL编码 (编辑框_地址.内容, 真,
真), 0, ,
)调试输出 (搜索电影返回数据
)
如果真 (寻找文本 (搜索电影返回数据,
“请尽量用正确的影视名称或主演进行搜索”, ,
假) ≠ -1
)
信息框 (“请尽量使用正确的影视名称或者主演进行搜索”,
#警告图标, “提示”,
)返回 ()
如果真 (寻找文本 (搜索电影返回数据,
“没有数据”, ,
假) ≠ -1
)信息框 (“对不起，没有找到您想要的数据！”,
#信息图标, “提示”,
)返回 ()启动线程 (&分析电影返回数据, , )| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 标识符 | 文本型 | | 0 |
| i | 整数型 | | |
| 索引 | 整数型 | | |
启动线程 (&进度条过度, 50,
)文本_取中间_批量 (搜索电影返回数据,
#bsf_left, #bsf_right, 标识符, , , , , , ,
)
计次循环首 (取数组成员数 (标识符
), i
)索引 ＝ 超级列表框.
插入表项 (, , , , ,
)超级列表框.
置标题 (索引, 0,
到文本 (i
))
超级列表框.
置标题 (索引, 1,
到文本 (文本_取出中间文本 (搜索电影返回数据,
#title_midden ＋ 标识符
[i
] ＋
#title_left, #title_right, ))
)超级列表框.
置标题 (索引, 2, 标识符
[i
])超级列表框.
置标题 (索引, 3,
“http://www.btba.com.cn/bt/” ＋ 标识符
[i
] ＋
“.html”)透明标签_提示.标题 ＝
“数据分析中……”判断 (寻找文本 (编码_URL解码 (到文本 (HTTP读文件 (“http://www.btba.com.cn/down/” ＋ 标识符
[i
] ＋
“/1.html”)),
真),
“对不起，你所请求的页面不存在。”, ,
假) ＝ -1
)超级列表框.
置标题 (索引, 4,
“种子可用！”)
超级列表框.
置标题 (索引, 5,
“双击此处可以复制种子链接！”)
超级列表框.
置标题 (索引, 4,
“种子失效！”)
超级列表框.
置标题 (索引, 5,
“双击此处无效！”)
计次循环尾 ()启动线程 (&进度条过度, 100,
)即将打开的URL ＝ 超级列表框.
取标题 (超级列表框.现行选中项, 2
)复制的影片标题 ＝ 超级列表框.
取标题 (超级列表框.现行选中项, 1
)即将打开的URL ＝
“http://www.btba.com.cn/down/” ＋ 即将打开的URL ＋
“/1.html”调试输出 (即将打开的URL
) |
| _超级列表框_被双击 | 逻辑型 | |
|
| 横向位置 | 整数型 | | | |
纵向位置 | 整数型 | | | | 功能键状态 | 整数型 | | | |
| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| 种子链接 | 文本型 | | |
| 总内容 | 文本型 | | |
总内容 ＝
到文本 (HTTP读文件 (即将打开的URL
))
种子链接 ＝
文本_取出中间文本 (总内容,
“clip.addEventListener('mouseOver',function(client){clip.setText('”,
“')});”,
)判断 (置剪辑板文本 (种子链接
) ＝
真)信息框 (“种子链接复制成功！快到迅雷里面复制下载吧！” ＋
#换行符 ＋
“您复制的影片信息为：” ＋
#换行符 ＋
“影片名称：” ＋ 复制的影片标题 ＋
#换行符 ＋
“种子地址：” ＋ 种子链接 ＋
#换行符 ＋
“种子已经成功复制到您的剪辑版中，快到迅雷里面下载吧！”,
#信息图标, “复制成功！”,
)信息框 (“对不起,复制失败！你可以联系我的QQ:1454144616”,
#错误图标, “提示：”,
)返回 ()启动线程 (&进度条过度, 10,
)透明标签_提示.标题 ＝
“程序加载成功！”判断循环首 (进度条1.位置 ＜ 进度
)进度条1.位置 ＝ 进度条1.位置 ＋ 1
延迟 (100
)判断循环尾 ()判断 (进度条1.位置 ＝ 10
)透明标签_提示.标题 ＝
“程序加载成功！”
如果真 (进度条1.位置 ＜ 10
)透明标签_提示.标题 ＝
“程序正在加载！”
判断 (进度条1.位置 ＝ 50
)透明标签_提示.标题 ＝
“数据搜索完毕，准备分析数据……”如果真 (进度条1.位置 ＜ 50
且 进度条1.位置 ＞ 10
)透明标签_提示.标题 ＝
“数据搜索中……”判断 (进度条1.位置 ＝ 100
)透明标签_提示.标题 ＝
“数据分析完毕，双击项目文本可以复制种子，仅限于有效种子哟~”如果真 (进度条1.位置 ＜ 100
且 进度条1.位置 ＞ 50
)透明标签_提示.标题 ＝
“数据分析中……”
小歪：种子搜索器.rar
(846.91 KB, 下载次数: 256)
老司机开车了 ，请系好安全带~~~
