如何编程下载一个bt种子文件。一般文件下载不行。清高手指点。 ( 积分: 200 )

X

xiaoren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #1

小弟想做个bt 种子自动下载软件，但找了些文件下载源代码，试了下都不行啊，下载到的
种子文件不能用。请高手指点下。测试网页：http://bt1.btchina.net/cnxp/

 

X

xiaoren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #2

小弟想做个bt 种子自动下载软件，但找了些文件下载源代码，试了下都不行啊，下载到的
种子文件不能用。请高手指点下。测试网页：http://bt1.btchina.net/cnxp/

 

无

无泪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #3

to xiaoren2000
我知道原因了，那是你的那个网站限制的原因，
它不让你下载真正的文件，而是在内存中一个连接，然后自动打开BT下载工具，直接下载，
所以你下载不了这个文件了。

你试试这个：
“文件下载： 点下面立即下载Torrent文件. [下载电影] ”
http://down.bt990.com/torrent/2005/8/5/2005852126610.torrent
这个连接才是真正的种子文件。
你下载后保存成.torrent，然后直接点击这个文件就可以自动打开BT下载了。

edit1.text中写http://down.bt990.com/torrent/2005/8/5/2005852126610.torrent
edit2.text中写c:/1.torrent
这样就可以在C盘下面有一个1文件的种子了！

//////////////////////////////////////////////////////////////////
回答的累，幸亏我也常用BT要不然真回答不了！

 

无

无泪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-05

• #4

uses
UrlMon
function DownloadFile(Source, Dest: string): Boolean;
begin
try
Result := UrlDownloadToFile(nil, PChar(source), PChar(Dest), 0, nil) = 0;
except
Result := False;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
if DownloadFile(edit1.Text, edit2.Text) then
ShowMessage('下载成功')
else ShowMessage('下载失败');
end;

 

X

xiaoren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #5

无泪阿，这个你也看见了。虽然高手不一定是为了分数，但是你帮我解决这个问题，两个
帖子的分数全是你的。可是你的方法不行。
简单点：你就拿这个网站说吧：http://bt1.btchina.net/cnxp/
我如何在程序里下载到他的bt种子。如何突破网站的限制。ok??

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #6

我试了，可惜下咱到种子文件啊。楼主你说的是哪个链接下不到啊？我用BitComet可以下载到，在链接上点右键另存为，可以下载到。复制连接的地址到网络快车，还是可以下载到。我都找不到楼主说的问题了。
我就是从http://bt1.btchina.net/cnxp/ 实验的。

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #7

我大概明白怎么回事了。是因为网站下载验证cookie的缘故。你用URLDownloadToFile和IdHttp下载，是下载不来的。你用FlashGet下载试试，它是可以的。原因是它下载的时候，发送下载请求时同时发送了cookie给服务器。我正在看这个问题，有结果答复你。

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #8

哈哈哈～我已经可以下载到了。开始以为他们网站通过cookie来判断用户合法性，结果发现秘密不在这里：） 在Refer这里：）我过一会把东西贴出来。

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-06

• #9

我强烈要求楼主发抚恤金！！！现在我用我的工具下载种子，由于请求过于密集，已经被http://bt1.btchina.net/cnxp/从1到4号服务器要求输入图片识别码才能下载了！！！！晕死！！
到 http://free.ys168.com/?crazycock (我的网络存储空间)，到那个“BT种子下载测试”文件夹中下载演示程序。其实对于你提到的这个网站，关键点在Referer的判断上，因为对方服务器有防机器下载的代码。
你下载频繁些就会被列入黑名单了。不知道是我被列入了，还是服务器自动启动防偷种子的机制了，说不定大家下载种子的时候也要输入图片识别码了，哈哈哈～～不关我事不要打我啊～～（）％※＃（％×＃）——

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #10

半夜时候又可以下载了。速度还不错。不过很快又被封了。估计服务器还有不少手段。例如cookie变化、请求间隔限制等。

 

无

无泪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #11

to crazycock
你可真厉害，可以看看你的代码吗？？
我怎么试也搞不定这个cookie!

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #12

cookie虽然用了IdCookieManager，可以自动接收cookie，并可查看。但是idHTTP发送请求的时候，发现还是没有付上cookie发给服务器。不过可以手工处理一下，加到请求里面去。
[red]到 http://free.ys168.com/?crazycock (我的网络存储空间)，到那个“BT种子下载测试”文件夹中下载演示程序。[/red]

 

X

xiaoren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #13

to crazycock
首先，谢谢你啊，这么辛苦，主要还是你的精神，其实大富翁的高手都像你和无泪这样，那这个论坛就更加繁荣了。我这停了一天的电，我刚上来，先给你会这个贴，我在试试。

 

X

xiaoren2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-07

• #14

你的demo我试过了，很好用啊。你用的delphi是6.0还是7.0，怎么我打开有好多控件要求被忽略。我用的是6.0。

 

C

crazycock

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-12

• #15

我用的是Delphi7哦～