bat下载并更新文件

180it 2020-02-16 AM 3543℃ 0条

@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

支付宝打赏支付宝打赏 微信打赏微信打赏

如果文章或资源对您有帮助,欢迎打赏作者。一路走来,感谢有您!

标签: none

bat下载并更新文件