使用bat 处理文件 批量下载图片，下载文件

Download Wscript.Arguments(0),Wscript.Arguments(1)
Sub Download(url,target)
	Set post=CreateObject("Msxml2.XMLHTTP")
	post.Open "GET",url
	'发送请求
	post.Send()
	Set aGet = CreateObject("ADODB.Stream")
	aGet.Mode = 3
	aGet.Type = 1
	aGet.Open()
	'等待3秒，等文件下载
	wscript.sleep 3000 
	aGet.Write(post.responseBody)'写数据
	aGet.SaveToFile target,2
End Sub

 右键新建文本文件 并命名为： DownloadFile.vbs

 

@echo off
for /l %%i in (1,1,88) do (
echo "http://资源域名/%%i.mp3" "%cd%/%%i.mp3"
DownloadFile.vbs "http://资源域名/%%i.mp3" "%cd%/%%i.mp3"
)

 

右键新建文本文件，并命名为：DownloadFile.bat