[海盗湾] 磁力链接批量获取
这个工具的用途就是批量获取海盗湾的磁力链接，例如：https://thepiratebay.cr/search/tokyo%20hot
如果要获取链接使用迅雷下载可以使用这个工具，查看网页源代码，贴入上面的文本框，点击提取链接就会获取全部磁力连接了。
源代码：用的多年不用的Delphi XE8
代码语言：javascript代码运行次数：0运行复制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://cloud.tencent.com/developer/article/2224367
* 转载文章请标明文章来源，原文标题以及原文链接。请遵从 《署名-非商业性使用-相同方式共享 2.5 中国大陆 (CC BY-NC-SA 2.5 CN) 》许可协议。
分享文章：
相关文章:蛋疼的挂掉360云查杀的小玩意儿 Let them drag and drop files on your program Visual Studio 2010 注册信息修改器 IP归属地查询器 Delphi 关键字详解 MemLibrary 内存 加载DLL DELPHI Delphi中实现程序的延时的方法 Delphi2010开发团队全家福 FTP my IP IP发送者(IP sender)