使用批处理更新Joe主题

使用批处理更新Joe主题

傻木
2021-04-23 / 0 评论 / 48 阅读 / 正在检测是否收录...

使用批处理更新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 依梦琴瑶

0

评论 (0)

取消
网站版权本人所有,你要有本事,盗版不究。 sam@gpcb.net