bat下载并更新文件

at 2年前 ca 记录笔记 by authorhu

@echo off & title Bat+Vbs 更新器 By imhu ::设置要下载的文件链接,仅支持http协议。必写项。 set Url= ::设置文件保存目录,若下载至当前目录,请留空 set Save=%cd% for %%a in ("%Url%") do set "FileName=%%~nxa" if not defined Save set "Save=%cd%" (echo Download Wscript.Arguments^(0^),Wscript.Arguments^(1^) echo Sub Download^(url,target^) echo Const adTypeBinary = 1 echo Const adSaveCreateOverWrite = 2 echo Dim http,ado echo Set http = CreateObject^("Msxml2.ServerXMLHTTP"^) echo http.open "GET",url,False echo http.send echo Set ado = createobject^("Adodb.Stream"^) echo ado.Type = adTypeBinary echo ado.Open echo ado.Write http.responseBody echo ado.SaveToFile target,adSaveCreateOverWrite echo ado.Close echo End Sub)>DownloadFile.vbs DownloadFile.vbs "%Url%" "%Save%\%FileName%" del DownloadFile.vbs


版权声明

本文仅代表作者观点,未经许可,不得转载。

分享:

支付宝

微信