使用批处理更新 Joe 主题

前提条件

• 安装 WinRARX64（其他版本请自行更改路径）。

使用说明

1. 下载后将 up.exe 放在 C:\WWW\usr\themes 文件夹内。
2. 设置计划任务，可以设置每两小时执行一次。
3. 注意： 执行时视 github.com 网速情况，下载过程中可能会阻塞（如需等待 3 分钟）后才会继续执行其他步骤。

核心脚本 (下载部分)

代码说明： 以上是下载主题包的命令，下载器 By 依梦琴瑶。

@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

进阶操作 (隐藏/封装部分)

批处理下载

说明： 批处理已封装为 exe，如不喜可以复制以下代码重构。

1. 执行更名

ren "*master" master.zip

2. 执行删除旧主题包

rd /s /Q joe

3. 执行解压主题包

"C:\Program Files\WinRAR\WinRAR.exe" x "master.zip" "./"

4. 执行重命名解压后的主题包

ren Joe-master Joe

5. 执行删除下载的 zip 主题包

del /s /Q  master.zip

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