[已解决]寻求高手解决采集结果0字节问题
本帖最后由 kxing 于 2010-12-24 09:58 编辑我希望采集某站点上的音效素材，程序基本框架都写好了。
可惜，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
$downpath=$dir&stringright($downurl,4)
if fileexists($downpath) then
$downpath&="."&random(100,999,1)
endif
inetget($downurl,$downpath)
endfunc
解决了，原来自己粗心把网址传递错了。。。 {:face (270):}
页:
[1]