求助-用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 '
因为公司禁用迅雷或快车下载,所以一计无施工,因此想用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 '
