批量下载 - 翼展电脑服务中心


批处理批量下载文件

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

@echo off  
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  
预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog