求助-用VBS或BAT如何下载 - 中国DOS联盟论坛

求助-用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 '

第1楼　lgx8280998	发表于 2008-01-23 15:36
初级用户　发帖 22　积分 52
求助-用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 '

第2楼　DanLin	发表于 2008-01-23 19:51
新手上路　发帖 2　积分 4
这个VBS在我的PC上运行出错（在调用Send() 方法时），不知道是不是关闭了某些系统服务？

第3楼　zerocq	发表于 2008-01-24 00:39
中级用户　发帖 196　积分 458
wget好像支持断点续传 http://www.math.ecnu.edu.cn/~jypan/linux/command/wget.htm