admin管理员组

文章数量:1600378

一 前言

今天闲了没事干翻了一下代码库发现原来刚刚接触代码时编的office2019激活程序，今天来分享一下，让更多人不用再花冤枉钱！有那钱还不如攒着买配置高的电脑呢！

二 系统配置

系统:window11

编译器:VBScript

三 代码分析

其实代码也没啥分析的，很简单，其实就是把cmd指令做成bat格式了，其中也调了vbs指令，这个代码相信你们一看就明白了，因为它真的easy啊

四 源码

接下来就是源码啦

@echo off
(cd /d "%~dp0")&&(NET FILE||(powershell start-process -FilePath '%0' -verb runas)&&(exit /B)) >NUL 2>&1
title Office 2019 Activator r/Piracy
echo Converting... & mode 40,25
(if exist "%ProgramFiles%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles%\Microsoft Office\Office16")&(if exist "%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs" cd /d "%ProgramFiles(x86)%\Microsoft Office\Office16")&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\ProPlus2019VL*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)
cscript //nologo ospp.vbs /unpkey:6MWKP >nul&cscript //nologo ospp.vbs /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP >nul&set i=1
:server
if %i%==1 set KMS_Sev=kms7.MSGuides
if %i%==2 set KMS_Sev=kms8.MSGuides
if %i%==3 set KMS_Sev=kms9.MSGuides
cscript //nologo ospp.vbs /sethst:%KMS_Sev% >nul
echo %KMS_Sev% & echo Activating...
cscript //nologo ospp.vbs /act | find /i "successful" && (echo Complete) || (echo Trying another KMS Server & set /a i+=1 & goto server)
pause >nul
exit

五 最后

其实代码这东西练练就好了，一定要坚持，对了我看我的代码库里还有一个激活window系统的，不想花钱的兄弟们记得关注我下一篇文章哦！

本文标签： 让你几行轻松代码bat

版权声明：本文标题：用bat几行代码让你轻松用上office2019 内容由热心网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：https://m.elefans.com/dongtai/1728342024a1155049.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。