时间：2020年04月15日 | 作者 : liuhui | 分类 : Windows | 浏览: 8194次 | 评论 0 人
| 阿里云限量代金券 | 此广告位出租25元/月 |
用下面这个批处理脚本可以使用cmd命令下载任何http或https链接的文件。
打开一个记事本，将下面的代码复制进去
/* & @echo off& title 下载脚本 作者：☆夢幻煋涳☆ QQ:372763861
*/
var iLocal,iRemote,xPost,sGet;
iLocal =WScript.Arguments(1);
iRemote = WScript.Arguments(0);
iLocal=iLocal.toLowerCase();
iRemote=iRemote.toLowerCase();
xPost = new ActiveXObject("Microsoft"+String.fromCharCode(0x2e)+"XMLHTTP");
xPost.Open("GET",iRemote,0);
xPost.Send();
sGet = new ActiveXObject("ADODB"+String.fromCharCode(0x2e)+"Stream");
sGet.Mode = 3;
sGet.Type = 1;
sGet.Open();
sGet.Write(xPost.responseBody);
sGet.SaveToFile(iLocal,2);
/*
cls
set URL=%1
set FILE=%2
echo.&echo.&echo 正在从 %URL% 下载文件 %FILE%
cd %~dp0
cscript -nologo -e:jscript "%~f0" "%URL%" "%FILE%"
rem ^
*/将文件另存为downfile.bat
使用方法
#win+r输入cmd回车 downfile.bat URL FILE
如果还觉得这样输入还是不方便，可以使用下面改进后的批处理脚本，会有脚本操作提示
/* & @echo off& title 下载脚本 作者：☆夢幻煋涳☆ QQ:372763861
*/
var iLocal,iRemote,xPost,sGet;
iLocal =WScript.Arguments(1);
iRemote = WScript.Arguments(0);
iLocal=iLocal.toLowerCase();
iRemote=iRemote.toLowerCase();
xPost = new ActiveXObject("Microsoft"+String.fromCharCode(0x2e)+"XMLHTTP");
xPost.Open("GET",iRemote,0);
xPost.Send();
sGet = new ActiveXObject("ADODB"+String.fromCharCode(0x2e)+"Stream");
sGet.Mode = 3;
sGet.Type = 1;
sGet.Open();
sGet.Write(xPost.responseBody);
sGet.SaveToFile(iLocal,2);
/*
cls
set URL=%1
set FILE=%2
if "%1" == "" goto :input
if "%2" == "" goto :input
goto :run
:input
echo.&echo.&
set /p URL=请输入 URL【默认：%a%】
set /p FILE=请输入 文件名【默认：%a%】
if "%URL%" == "" goto :help
if "%FILE%" == "" goto :help
goto :run
:run
echo.&echo.& echo 正在从 %URL% 下载文件 %FILE%
cd %~dp0
cscript -nologo -e:jscript "%~f0" "%URL%" "%FILE%"
pause
goto :EOF
:help
echo.&echo.&
echo 命令行调用方法:
echo %~n0 下载链接 要保存的文件名全称
echo 例：%~n0 http://www.lu8.win/downloads/curl/curl.exe curl.exe
echo.
goto :input
rem ^
*/最好是使用丢包比较少的下载地址，否则你会发现下载的文件体积很小没办法打开。
 |
推荐您阅读更多有关于“”的文章
Powered By Z-Blogphp
分享：
支付宝
微信
