中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
作者:
标题: 用VBS做的断点续传 上一主题 | 下一主题
5548646
初级用户





积分 81
发帖 28
注册 2007-8-27
状态 离线
『楼 主』:  用VBS做的断点续传

if (lcase(right(wscript.fullname,11))="wscript.exe") then '判断脚本宿主的名称' die("Script host must be CScript.exe.") '脚本宿主不是CScript,于是就die了' end if if wscript.arguments.count<1 then '至少要有一个参数' die("Usage: cscript webdl.vbs url [filename]") '麻雀虽小五脏俱全,Usage不能忘' end if url=wscript.arguments(0) '参数数组下标从0开始' if url="" then die("URL can't be null.") '敢唬我,空url可不行' if wscript.arguments.count>1 then '先判断参数个数是否大于1' filename=wscript.arguments(1) '再访问第二个参数' else '如果没有给出文件名,就从url中获得' t=instrrev(url,"/") '获得最后一个"/"的位置' if t=0 or t=len(url) then die("Can not get filename to save.") '没有"/"或以"/"结尾' filename=right(url,len(url)-t) '获得要保存的文件名' end if if not left(url,7)="http://" then url="http://"&url '如果粗心把“http://”忘了,加上' set fso=wscript.createobject("Scripting.FileSystemObject") 'FSO,ASO,HTTP三个对象一个都不能少' set aso=wscript.createobject("ADODB.Stream") set http=wscript.createobject("Microsoft.XMLHTTP") if fso.fileexists(filename) then '判断要下载的文件是否已经存在' start=fso.getfile(filename).size '存在,以当前文件大小作为开始位置' else start=0 '不存在,一切从零开始' fso.createtextfile(filename).close '新建文件' end if wscript.stdout.write "Connectting..." '好戏刚刚开始' current=start '当前位置即开始位置' do http.open "GET",url,true '这里用异步方式调用HTTP' http.setrequestheader "Range","bytes="&start&"-"&cstr(start+20480) '断点续传的奥秘就在这里' http.setrequestheader "Content-Type:","application/octet-stream" http.send '构造完数据包就开始发送' for i=1 to 120 '循环等待' if http.readystate=3 then showplan() '状态3表示开始接收数据,显示进度' if http.readystate=4 then exit for '状态4表示数据接受完成' wscript.sleep 500 '等待500ms' next if not http.readystate=4 then die("Timeout.") '1分钟还没下完20k?超时!' if http.status>299 then die("Error: "&http.status&" "&http.statustext) '不是吧,又出错?' if not http.status=206 then die("Server Not Support Partial Content.") '服务器不支持断点续传' aso.type=1 '数据流类型设为字节' aso.open aso.loadfromfile filename '打开文件' aso.position=start '设置文件指针初始位置' aso.write http.responsebody '写入数据' aso.savetofile filename,2 '覆盖保存' aso.close range=http.getresponseheader("Content-Range") '获得http头中的"Content-Range"' if range="" then die("Can not get range.") '没有它就不知道下载完了没有' temp=mid(range,instr(range,"-")+1) 'Content-Range是类似123-456/789的样子' current=clng(left(temp,instr(temp,"/")-1)) '123是开始位置,456是结束位置' total=clng(mid(temp,instr(temp,"/")+1)) '789是文件总字节数' if total-current=1 then exit do '结束位置比总大小少1就表示传输完成了' start=start+20480 '否则再下载20k' loop while true wscript.echo chr(13)&"Download ("&total&") Done." '下载完了,显示总字节数' function die(msg) '函数名来自Perl内置函数die' wscript.echo msg '交代遗言^_^' wscript.quit '去见马克思了' end function function showplan() '显示下载进度' if i mod 3 = 0 then c="/" '简单的动态效果' if i mod 3 = 1 then c="-" if i mod 3 = 2 then c="\" wscript.stdout.write chr(13)&"Download ("&current&") "&c&chr(8)'13号ASCII码是回到行首,8号是退格' end function 以上是代码 我有一处不明白 : http.setrequestheader "Range","bytes="&start&"-"&cstr(start+20480) '断点续传的奥秘就在这里' 为什么 “bytes="&start&"-"&cstr(start+20480)”这是什么意思呢 有什么作用


2008-5-10 21:01
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
slore
铂金会员





积分 5212
发帖 2478
注册 2007-2-8
状态 离线
『第 2 楼』:  

range范围 start是上面得到的文件大小 start=fso.getfile(filename).size setrequestheader 设置请求 意思设置你下载的起点……


2008-5-10 22:43
查看资料  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: