[海盗湾] 磁力链接批量获取

这个工具的用途就是批量获取海盗湾的磁力链接,例如:https://thepiratebay.cr/search/tokyo%20hot

如果要获取链接使用迅雷下载可以使用这个工具,查看网页源代码,贴入上面的文本框,点击提取链接就会获取全部磁力连接了。

源代码:用的多年不用的Delphi XE8

代码语言:javascript
复制
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) 》许可协议。


分享文章:

相关文章:

  1. 蛋疼的挂掉360云查杀的小玩意儿
  2. Let them drag and drop files on your program
  3. Visual Studio 2010 注册信息修改器
  4. IP归属地查询器
  5. Delphi 关键字详解
  6. MemLibrary 内存 加载DLL DELPHI
  7. Delphi中实现程序的延时的方法
  8. Delphi2010开发团队全家福
  9. FTP my IP
  10. IP发送者(IP sender)