KMS180天激活Windows

1、把如下代码保存为installer.bat即可获得原料.@echo offsetlocal EnableExtensions EnableDelayedExpansion::调用::读取注册漉胜衲仰表-已安装应用路径for /f "skip=2 tokens=1,2,*" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\KKStudio\KMS"') do set 注册表_%%a=%%c>nulif exist "%注册表_InstallDir%" set 注册表_InstallDir=%注册表_InstallDir:"=%&set 安装路径=%注册表_InstallDir%::检测已存在版本if exist "%注册表_InstallDir%\JSetupinfo\Info.jsi" for /f "eol=: tokens=1,2 delims=;" %%a in ('type "%注册表_InstallDir%\JSetupinfo\Info.jsi"') do ( if "%%a"=="软件版本" set 旧软件版本=%%b )call :Wizard Installgoto :EOF:Wizardtitle KMS Installercls:: 若未设定语言，依据目前代码页设定if not defined Language ( for /f "tokens=2 delims=:" %%i in ('chcp') do ( if "%%i"==" 936" ( set "Language=chs" ) else ( set "Language=en" chcp 437 >nul ) )):: 依据设定语言，导入语言包if /i "%Language%"=="chs" (call :Langs-chs) else (call :Langs-en):: 预设错误代码for /l %%i in (1,1,4) do set "if.error.%%i=|| (call :MsgBox "!txt_vc.err.%%i!" "%txt_vc.err.info%" & goto :EOF)":: 配置路径和窗口set "dir.KMS.default=%appdata%\KKStudio"if "%1"=="Install" ( set "dir.KMS=%dir.KMS.default%" set "dir.KMS.temp=%temp%\KKStudio.KMS" >nul 2>nul md !dir.KMS.temp! mode 90, 25 color f0):: KMS 便携版判断if /i "%dir.KMS%"=="%dir.KMS.default%" (set "KMS.Portable=") else (set "KMS.Portable=1"):: Mshta 可用性判断mshta "vbscript:execute(close)" || ( echo;%txt_vc.err.hta% echo;%txt_vc.err.info% pause >nul):: 检测 Bits 组件for %%i in (Install Upgrade) do if "%1"=="%%i" ( bitsadmin /? >nul 2>nul %if.error.4% :: 若 Bits 服务被禁用，询问开启 sc qc bits | findstr /i "DISABLED" >nul && ( if "%1"=="Install" call :MsgBox-s key "%txt_vc.bits.n.in%" "%txt_vc.bits.acc%" if "%1"=="Upgrade" call :MsgBox-s key "%txt_vc.bits.n.up%" "%txt_vc.bits.acc%" if "!key!"=="1" ( :: 启用 Bits 服务 net session >nul 2>nul && (sc config bits start= demand >nul) net session >nul 2>nul || ( mshta vbscript:CreateObject^("Shell.Application"^).ShellExecute^("cmd.exe","/c sc config bits start= demand >nul","","runas",1^)^(window.close^) ) ping localhost -n 2 >nul ) else ( call :MsgBox "%txt_vc.err.fail%" "%txt_vc.err.info%" goto :EOF ) )):: 获取 Github 上的 KMS 安装信息for %%i in (Install Upgrade) do if "%1"=="%%i" ( >nul 2>nul ( dir "%dir.KMS.temp%\ver.ini" /a:-d /b && del /q /f /s "%dir.KMS.temp%\ver.ini" ) if not defined KMS.branches set "KMS.branches=master" bitsadmin /transfer !random! /download /priority foreground https://17192175113.github.io/KKKMS/Ver.ini "%dir.KMS.temp%\ver.ini" %if.error.1% cls >nul 2>nul dir "%dir.KMS.temp%\ver.ini" /a:-d /b %if.error.2% for /f "eol=[ usebackq tokens=1,* delims==" %%a in (`type "%dir.KMS.temp%\ver.ini"`) do set "%%a=%%b" if defined KMS.newver.url set "KMS.newver.url=!KMS.newver.url: =%%20!" set "KMS.newver.page=%dir.KMS.temp%\full.!KMS.newver!.exe")::UI--------------------------------------------------set get=%txt_vc.get%set getauto=%txt_vc.getauto%clsecho;echo;echo;if "%1"=="Install" echo; %txt_vc.get% %KMS.newver%for %%a in (Install Upgrade) do if "%1"=="%%a" if /i not "%KMS.ver%"=="%KMS.newver%" ( echo; echo; if defined 旧软件版本 ( call :if set getauto=%txt_vc.getauto1% set get=%txt_vc.get1% cls echo; echo; echo; if "%1"=="Install" echo; %txt_vc.get1% %KMS.newver% echo; echo; echo. 已经安装 KMS %旧软件版本% echo; echo;) echo Powerd By KKOnlineInstallerMaker)::UI--------------------------------------------------:: 弹出选择框set "key="if "%1"=="Install" call :MsgBox-s key "%get% %KMS.newver%" " " "%getauto%"if "%1"=="UnInstall" call :MsgBox-s key "%txt_vc.rid%"if "%1"=="Upgrade" ( if /i "%KMS.ver%"=="%KMS.newver%" ( call :MsgBox "KMS %KMS.ver% %txt_vc.newest%" ) else ( call :MsgBox-s key "%txt_vc.getnew% %KMS.newver%" " " "%txt_vc.getauto%" ))if not "%key%"=="1" goto :EOF:: KMS 便携版判断，目录清空/移除询问set "key="if defined KMS.Portable ( for %%a in (Install Upgrade) do if "%1"=="%%a" ( call :MsgBox-s key "%txt_vc.pt.update%" " " "%dir.KMS%" "%txt_vc.path.sure%" " " "%txt_vc.sure%" ) if "%1"=="UnInstall" ( call :MsgBox-s key "%txt_vc.path.rd%" " " "%dir.KMS%" "%txt_vc.path.sure%" " " "%txt_vc.sure%" ) if not "!key!"=="1" goto :EOF):: 获取 KMS 安装包for %%a in (Install Upgrade) do if "%1"=="%%a" ( >nul 2>nul ( dir "%KMS.newver.page%" /a:-d /b && del /q /f /s "%KMS.newver.page%" ) bitsadmin /transfer %random% /download /priority foreground %KMS.newver.url% "%KMS.newver.page%" %if.error.1% cls >nul 2>nul dir "%KMS.newver.page%" /a:-d /b %if.error.2%):: 解除安装for %%a in (Upgrade UnInstall) do if "%1"=="%%a" ( call "%dir.KMS%\Parts\Set_Lnk.cmd" -off all call "%dir.KMS%\Parts\Set_Assoc.cmd" -off):: 安装for %%a in (Install Upgrade) do if "%1"=="%%a" ( cmd /q /c "rd /q /s "%dir.KMS%" >nul 2>nul & md "%dir.KMS%" >nul 2>nul & "%KMS.newver.page%" x -o"%dir.KMS%\" & "%dir.KMS%\%KMS.newver.installer%"" exit 0):: 删除 KMS 注册表项和目录if "%1"=="UnInstall" ( >nul ( reg delete "HKCU\Console\KKStudio.KMS" /f reg delete "HKCU\Software\KKStudio.KMS" /f ) start "" /min cmd /q /c ">nul rd /q /s "%dir.KMS%"")goto :EOF:: 语言包:Langs-chsset txt_vc.err.info=更多信息详见邮箱17192175113@qq.com。set txt_vc.err.1=取得 安装信息 失败。set txt_vc.err.2=下载的文件不存在，请重新尝试。set txt_vc.err.3=安装包已经运行。set txt_vc.err.4=缺失 Bitsadmin 组件，在早期版本 Windows 中不存在。set txt_vc.err.hta=Mshta 不可用，无法安装 KMS。set txt_vc.err.fail=抱歉，无法安装 KMS。set txt_vc.bits.n.in=KMS 安装过程需要 Bits 服务。set txt_vc.bits.n.up=KMS 更新过程需要 Bits 服务。set txt_vc.bits.acc=您是否允许 KMS 启用服务？set txt_vc.get=现在可以安装 KMSset txt_vc.get1=现在可以更新 KMSset txt_vc.rid=确实要解除安装 KMS 吗？set txt_vc.getnew=现在可以获取新版本set txt_vc.getauto=安装将自动开始。set txt_vc.getauto1=更新将自动开始。set txt_vc.newest=是最新的。set txt_vc.pt.update=您正使用 KMS 便携版，更新前将清空 KMS 所在文件夹。set txt_vc.pt.uninstall=已完成 KMS 便携版解除安装。set txt_vc.path.rd=移除 KMS 所在路径吗？set txt_vc.path.sure=请确保路径不含个人文件。set txt_vc.sure=确定吗？set txt_vc.notice=提示信息goto :EOF:Langs-enset txt_vc.err.info=更多信息详见邮箱17192175113@qq.com。set txt_vc.err.1=取得 安装信息 失败。set txt_vc.err.2=下载的文件不存在，请重新尝试。set txt_vc.err.3=安装包已经运行。set txt_vc.err.4=缺失 Bitsadmin 组件，在早期版本 Windows 中不存在。set txt_vc.err.hta=Mshta 不可用，无法安装 KMS。set txt_vc.err.fail=抱歉，无法安装 KMS。set txt_vc.bits.n.in=KMS 安装过程需要 Bits 服务。set txt_vc.bits.n.up=KMS 更新过程需要 Bits 服务。set txt_vc.bits.acc=您是否允许 KMS 启用服务？set txt_vc.get=现在可以安装 KMSset txt_vc.get1=现在可以更新 KMSset txt_vc.rid=确实要解除安装 KMS 吗？set txt_vc.getnew=现在可以获取新版本set txt_vc.getauto=安装将自动开始。set txt_vc.getauto1=更新将自动开始。set txt_vc.newest=是最新的。set txt_vc.pt.update=您正使用 KMS 便携版，更新前将清空 KMS 所在文件夹。set txt_vc.pt.uninstall=已完成 KMS 便携版解除安装。set txt_vc.path.rd=移除 KMS 所在路径吗？set txt_vc.path.sure=请确保路径不含个人文件。set txt_vc.sure=确定吗？set txt_vc.notice=提示信息goto :EOF:: 插件:MsgBoxmshta vbscript:execute^("msgbox(""%~1""&vbCrLf&vbCrLf&""%~2"",64+4096,""%txt_vc.notice%"")(close)"^)goto :EOF:MsgBox-sset "msgbox.t1=""":MsgBox-s_cif not "%~2"=="" ( set "msgbox.t2=%~2" if "!msgbox.t2: =!"=="" ( set "msgbox.t1=!msgbox.t1!&vbCrLf" ) else ( set "msgbox.t2=!msgbox.t2:(=^(!" set "msgbox.t2=!msgbox.t2:)=^)!" set "msgbox.t2=!msgbox.t2:&=`?`&Chr(38)&`?`!" set "msgbox.t2=!msgbox.t2: =`?`&Chr(32)&`?`!" set "msgbox.t2=!msgbox.t2:,=`?`&Chr(44)&`?`!" set "msgbox.t1=!msgbox.t1!&"!msgbox.t2!"&vbCrLf" ) shift /2 goto :MsgBox-s_c)for /f "delims=" %%a in (' mshta "vbscript:CreateObject("Scripting.Filesystemobject").GetStandardStream(1).Write(msgbox(%msgbox.t1:`?`="%,1+64+4096,"%txt_vc.notice%"))(close)" ') do ( set "%~1=%%a")goto :EOF:if if %旧软件版本%==%KMS.newver% ( cls echo; echo; echo 已经安装最新版 echo; echo; echo 按确定退出 echo; echo; echo Powerd By KKOnlineInstallerMaker call :MsgBox-s key "已经安装最新版 KMS" " " "按确定退出" exit 0 )

2、运行installer.bat,然后按确定

3、然后稍等弹出安装界面

4、按3下回车，即可自动安装

5、打开桌面上的软件，根据需求选择即可完成激活