B站视频一键解析,支持高清批量下载
2020-11-6 乱云飞 评论(0) 浏览(562) 标签: 批量下载 高清下载 B站解析
批处理批量下载文件
2019-6-29 乱云飞 评论(0) 浏览(741) 标签: 代码 批处理 批量下载 下载文件
@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