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

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

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

源代码：用的多年不用的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) 》许可协议。

分享文章：

蛋疼的挂掉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)

https tcp/ip 网络安全 delphi 腾讯云开发者社区

1 人点赞

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

相关文章: