使用批处理更新Joe主题

使用批处理更新Joe主题
前提条件是安装WinRARX64，其他版本请自行更改路径。

下载后将up.exe放在C:\WWW\usr\themes文件夹内，并设置计划任务，可以设置每两小时执行一次
执行的时候视github.com网速情况，我这在下载过程中景3分钟后才会继续执行其他步骤

www.gpcb.net 原创，转载请保留此信息。
http://159.75.97.208/admin/write-post.php?cid=417

@echo off & title Bat+Vbs
::设置要下载的文件链接，仅支持http协议。必写项。
set Url=https://codeload.github.com/HaoOuBa/Joe/zip/master
::设置文件保存目录，若下载至当前目录，请留空
set Save=
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
echo ado.Close
echo End Sub)>DownloadFile.vbs
DownloadFile.vbs "%Url%" "%Save%\%FileName%"
del DownloadFile.vbs

代码未完，回复后可以打包下载批处理文件。
以上是下载主题包的命令，下载器 By 依梦琴瑶