小歪：网络种子搜索器

Eyy讲师小歪

小歪：种子搜索器.rar (846.91 KB, 下载次数: 256)

2017-6-21 17:21 上传

点击文件名下载附件
下载积分: 精币 -2 枚

本程序使用的post技术，使用的是种子吧接口，基础post程序，大家不懂得可以加我QQ：1454144616
我知道网上类似于这种软件数不胜数，比我这个好的也有很多。但是我的初衷还是那样，我就是想让大家都用上我们自己的程序，谁知道网上的那些东西都在里面加了什么不干净的呢，我这样开源给大家大家用的安心，我也开心。

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮_搜索_被单击

超级列表框.全部删除 ()
进度条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)
' 打开指定网址 (即将打开的URL)
' http://www.btba.com.cn/down/810821647149/2.html
' http://www.btba.com.cn/down/246473110724/2.html

子程序名	返回值类型	公开	备 注
_超级列表框_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
种子链接	文本型
总内容	文本型

总内容 ＝ 到文本 (HTTP读文件 (即将打开的URL))
种子链接 ＝ 文本_取出中间文本 (总内容, “clip.addEventListener('mouseOver',function(client){clip.setText('”, “')});”, )
判断 (置剪辑板文本 (种子链接) ＝ 真)
信息框 (“种子链接复制成功！快到迅雷里面复制下载吧！” ＋ #换行符 ＋ “您复制的影片信息为：” ＋ #换行符 ＋ “影片名称：” ＋ 复制的影片标题 ＋ #换行符 ＋ “种子地址：” ＋ 种子链接 ＋ #换行符 ＋ “种子已经成功复制到您的剪辑版中，快到迅雷里面下载吧！”, #信息图标, “复制成功！”, )
信息框 (“对不起,复制失败！你可以联系我的QQ:1454144616”, #错误图标, “提示：”, )
返回 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

启动线程 (&进度条过度, 10, )
透明标签_提示.标题 ＝ “程序加载成功！”

子程序名	返回值类型	公开	备 注
进度条过度
参数名	类 型	参考	可空	数组	备 注
进度	整数型

判断循环首 (进度条1.位置 ＜ 进度)
进度条1.位置 ＝ 进度条1.位置 ＋ 1
延迟 (100)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

判断 (进度条1.位置 ＝ 10)
透明标签_提示.标题 ＝ “程序加载成功！”
如果真 (进度条1.位置 ＜ 10)
透明标签_提示.标题 ＝ “程序正在加载！”

判断 (进度条1.位置 ＝ 50)
透明标签_提示.标题 ＝ “数据搜索完毕，准备分析数据……”
如果真 (进度条1.位置 ＜ 50 且 进度条1.位置 ＞ 10)
透明标签_提示.标题 ＝ “数据搜索中……”
判断 (进度条1.位置 ＝ 100)
透明标签_提示.标题 ＝ “数据分析完毕，双击项目文本可以复制种子，仅限于有效种子哟~”
如果真 (进度条1.位置 ＜ 100 且 进度条1.位置 ＞ 50)
透明标签_提示.标题 ＝ “数据分析中……”

i支持库列表	支持库注释
iext	扩展界面支持库一
EThread	多线程支持库
spec	特殊功能支持库
internet	互联网支持库

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

恼人的秋风

很不错，拿来学习

易小生2017

很不错，拿来学习

智明

666666666666666

左胸膛

老司机开车了，买好营养快线

gaoqing

希望还可以啊

zhlip

wu杰

感谢楼主，楼主真乃大神也

w312011652

lalalalalalala啦啦阿拉

huuxii

谢谢分享

网上邻居007

支持开源啊