中国DOS联盟

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

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

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 求助-用VBS或BAT如何下载

lgx8280998
初级用户

千浪小子

积分 52
发帖 22
注册 2006-10-19
状态离线

『楼主』: 求助-用VBS或BAT如何下载

求助-用VBS或BAT如何下载
因为公司禁用迅雷或快车下载,所以一计无施工,因此想用VBS或BAT来实现下载.

1.要求能断点续传,youxi01写过一个歌曲下载的可以实现.但本人不懂这些代码.
参考连接如下:http://bbs.bathome.cn/viewthread.php?tid=16&extra=page%3D1
2.最好能有进度显示,当然这个没有也行.毕竟不是最重要的目的.
以下是一段VBS的下载代码,被杀毒软件定为病毒,试了可以下载,但不能续传.
因些可不可以把youxi01的歌曲下载和这代码综合起来?

代码如下:
Set xPost = createObject("Microsoft.XMLHTTP")
xPost.Open "GET","http://www.XXX.com/cc.jpg",0 '
xPost.Send()
Set sGet = createObject("ADODB.Stream")
sGet.Mode = 3
sGet.Type = 1
sGet.Open()
sGet.Write(xPost.responseBody)
sGet.SaveToFile "D:\cc.jpg",2 '

2008-1-23 15:36