[已解决]寻求高手解决采集结果0字节问题

kxing

我希望采集某站点上的音效素材，程序基本框架都写好了。
可惜，down回来的音效文件都是0字节。估计是做防盗链了。
特意来寻求高手看看有没办法解决，感觉成功几率渺茫，只抱着一线希望！

_inetget("http://yisell.com/search.htm?c=8",@ScriptDir&"\综合音效\铃声音效")

msgbox(64,"恭喜","所有音效下载完成！")

func _inetget($url,$dir)
Local $tmp=@ScriptDir&"\~source.tmp"
InetGet($url,$tmp)
local $str=fileread($tmp)

local $alist=stringregexp($str,'<a id="[^"]+" href="([^"]+)">(.+?)</a><br />人气：',3)
if @error then return false

$str=""
DirCreate($dir)
for $i=0 to ubound($alist)-2 step 2
_download($alist[$i],$dir&""&$alist[$i+1])
next
endfunc

func _download($url,$dir)
Local $tmp=@ScriptDir&"\~source.tmp"
InetGet($url,$tmp)
local $str=fileread($tmp)
local $alist=stringregexp($str,"'/paipai_(.+?\.\w{3})'",3)
if @error then return false

$downurl="http://down.yisell.com/paipai/"&$alist[0]
$downpath=$dir&stringright($downurl,4)
if fileexists($downpath) then
$downpath&="."&random(100,999,1)
endif
inetget($downurl,$downpath)
endfunc

kxing

解决了，原来自己粗心把网址传递错了。。。

Netfox