需求:
一共有98个表情包需要下载到本地电脑,表情包png图片的远程URL地址如下:
http://bbs.296o.com/emoj/1.png 至 http://bbs.296o.com/emoj/98.png
如果是手工下载的话,要浪费很多时间,我们直接有windows系统上使用bat批处理命令实现。
实现方法:
1、新建一个DownloadFile.vbs文件,代码如下:
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()
'等待1秒,等文件下载
wscript.sleep 1000
aGet.Write(post.responseBody)'写数据
aGet.SaveToFile target,2
End Sub
2、再新建一个批量下载表情包.bat文件,代码如下:
@echo off
for /l %%i in (1,1,98) do (
echo "http://bbs.296o.com/emoj//%%i.png" "%cd%/%%i.png"
DownloadFile.vbs "http://bbs.296o.com/emoj//%%i.png" "%cd%/%%i.png"
)
然后双击运行这个批量下载表情包.bat文件即可,效果如下: