[海盗湾] 磁力链接批量获取
2023-06-13 09:17:14 时间
这个工具的用途就是批量获取海盗湾的磁力链接,例如:https://thepiratebay.cr/search/tokyo%20hot
如果要获取链接使用迅雷下载可以使用这个工具,查看网页源代码,贴入上面的文本框,点击提取链接就会获取全部磁力连接了。
源代码:用的多年不用的Delphi XE8
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, SkinCtrls, Vcl.StdCtrls, SkinBoxCtrls, RegularExpressions,
SkinHint, SkinData, DynamicSkinForm, spSkinUnZip, spSkinZip;
type
TForm1 = class(TForm)
spSkinMemo1: TspSkinMemo;
提取链接: TspSkinButton;
spSkinMemo2: TspSkinMemo;
spDynamicSkinForm1: TspDynamicSkinForm;
spSkinFrame1: TspSkinFrame;
spSkinData1: TspSkinData;
spCompressedStoredSkin1: TspCompressedStoredSkin;
spCompressedSkinList1: TspCompressedSkinList;
spResourceStrData1: TspResourceStrData;
spSkinHint1: TspSkinHint;
spSkinZip1: TspSkinZip;
spSkinUnZip1: TspSkinUnZip;
spSkinStatusBar1: TspSkinStatusBar;
spSkinStatusPanel1: TspSkinStatusPanel;
spSkinStatusPanel2: TspSkinStatusPanel;
spSkinStatusPanel3: TspSkinStatusPanel;
spSkinScrollBar1: TspSkinScrollBar;
spSkinScrollBar2: TspSkinScrollBar;
procedure 提取链接Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
const
pattern = 'magnet\:\?[^\"]+'; {#'^magnet[A-Za-z0-9:?= ]+$'; }
implementation
{$R *.dfm}
procedure TForm1.提取链接Click(Sender: TObject);
var
matchs: TMatchCollection;
match: TMatch;
i:Integer;
begin
matchs:=TRegEx.Matches(spSkinMemo1.Lines.Text,pattern);
spSkinMemo2.Lines.Clear;
//ShowMessage(IntToStr(matchs.Count));
spSkinStatusPanel1.Caption := '总数:' + IntToStr(matchs.Count);
for match in matchs do
begin
spSkinMemo2.Lines.Add(match.Value);
end;
end;
end.
下载地址:链接: https://pan.baidu.com/s/16VC9ZsxNSIn2HatowjX3Tw 提取码: icef 复制这段内容后打开百度网盘手机App,操作更方便哦
☆文章版权声明☆
* 网站名称:obaby@mars * 网址:https://h4ck.org.cn/ * 本文标题: 《[海盗湾] 磁力链接批量获取》 * 本文链接:https://h4ck.org.cn/2019/01/6310/ * 转载文章请标明文章来源,原文标题以及原文链接。请遵从 《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。
分享文章:
相关文章:
相关文章
- 使用ADB链接夜神的方式与吐槽
- 动态链接(Dynamic Linking)
- 【Android 逆向】类加载器 ClassLoader ( 类加载时机 | 隐式加载 | 显示加载 | 类加载步骤 | 装载 | 链接 | 初始化 )
- CSAPP---第七章-链接
- 导入链接和导出链接
- 解决Oracle客户端连接问题(oracle客户端链接)
- Linux技巧:创建目录链接快速实现文件管理(linux创建目录链接)
- Linux链接工具概览(linux链接工具)
- 『走出墙外:链接外网MSSQL数据库』(链接外网数据库mssql)
- Oracle数据库实现内部链接外部链接的技术探索(oracle内链接外链接)
- 从BI到MySQL 链接一个改变着你的世界(bi怎么链接mysql)
- 如何使用C语言连接Oracle数据库(c 代码链接oracle)
- asp之GetArray提取链接地址,以$Array$分隔的代码
- JavaScript实现url地址自动检测并添加URL链接示例代码