洛阳翼展电脑

批处理批量下载文件

2019-6-29 乱云飞 评论(0) 浏览(692) 标签: 代码 批处理 批量下载 下载文件

@echo off  &REM 会被火绒识别为木马
for /l %%i in (1,1,88) do (  
echo "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
down.vbs "http://80c.cc/%%i.mp3" "%cd%/%%i.mp3"  
)  
******************************************************
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