SoftCnKiller 更新程序 bat 调用vbs 更新，下载gitee文件 更新自身数据
<p>bat</p><pre><code>@echo off
title 更新流氓软件黑名单
cd /d "%~dp0"
echo 请选择更新源，默认使用1、GitCode更新。
echo.&choice /C 12 /T 5 /D 1 /M "1、使用GitCode仓库更新 2、使用Gitee仓库更新"
if errorlevel 2 goto gitee
if errorlevel 1 goto gitcode
:gitcode
for /f "tokens=4,5 delims=. " %%i in ('ver') do if %%i%%j leq 62 (
echo.&echo 当前系统版本较低，更新WinHttp协议中以确保正常下载黑名单...
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings" /f /v SecureProtocols/t REG_DWORD /d 2688 1>nul
reg add "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings" /f /v SecureProtocols/t REG_DWORD /d 2688 1>nul
reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp" /f /v DefaultSecureProtocols/t REG_DWORD /d 2688 1>nul
reg add "HKLM\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Internet Settings\WinHttp" /f /v DefaultSecureProtocols/t REG_DWORD /d 2688 1>nul
)
echo.&echo 使用GitCode更新...
wscript.exe -e:vbs data\GitCode更新名单.vbs
exit
:gitee
echo.&echo 使用Gitee更新...
wscript.exe -e:vbs data\Gitee更新名单.vbs
exit
</code></pre>
<p>vbs</p>
<pre><code>currentfolder = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path
Set fso=CreateObject("Scripting.FileSystemObject")
if fso.folderExists(currentfolder+"\data") then
downFile "https://gitee.com/softcnkiller/data/raw/master/whitepath.txt","\data\whitepath.txt"
downFile "https://gitee.com/softcnkiller/data/raw/master/AppdataInfo.txt","\data\AppdataInfo.txt"
downFile "https://gitee.com/softcnkiller/data/raw/master/folder.txt","\data\folder.txt"
downFile "https://gitee.com/softcnkiller/data/raw/master/sign.txt","\data\sign.txt"
downFile "https://gitee.com/softcnkiller/data/raw/master/Descrip/%E5%85%B3%E4%BA%8Efolder%E8%AF%B4%E6%98%8E.txt","\data\说明\关于folder说明.txt"
downFile "https://gitee.com/softcnkiller/data/raw/master/Descrip/%E5%85%B3%E4%BA%8E%E6%95%B0%E7%AD%BEsign%E8%AF%B4%E6%98%8E.txt","\data\说明\关于数签sign说明.txt"
if fso.GetFile(currentfolder+"\data\sign.txt").size>100 and fso.GetFile(currentfolder+"\data\folder.txt").size>1000and fso.GetFile(currentfolder+"\data\AppdataInfo.txt").size >400 then
msgbox "更新完成！"
else
msgbox "更新出错，请切换更新源！或手动到网址下载：https://free.lanzoui.com/b0cpu1guf"
end if
else
msgbox "Data目录不存在，请在软件目录下运行！"
end if
Sub downFile(url,path)
Set xHttp = CreateObject("WinHttp.WinHttpRequest.5.1")
Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", url, False
xHttp.Send
with bStrm
.type = 1 '
.open
.write xHttp.responseBody
.savetofile currentfolder+path, 2 '//覆盖
end with
End Sub
</code></pre>
</div>
<div id="MySignature" role="contentinfo">
---------------------------------------------<br>
生活的意义就是你自己知道你要做什么，明确目标。没有目标，后面都是瞎扯！<br><br>
https://pengchenggang.github.io/vuejsdev-com-github/ <br><br>
SMART原则:<br><br>
目标必须是具体的（Specific）<br>
目标必须是可以衡量的（Measurable）<br>
目标必须是可以达到的（Attainable）<br>
目标必须和其他目标具有相关性（Relevant）<br>
目标必须具有明确的截止期限（Time-based）<br><br><br>
来源：https://www.cnblogs.com/pengchenggang/p/15856599.html
頁:
[1]