Visio 2019的激活

在六维上下载了visio2019的光盘映像（其他地方下载也是一样的），就安装了。之前下载过2016的，但是我的电脑已经安装过office2016，也是光盘映像方式安装的，所以提示冲突了，改为2019的下载再安装就可以了。
安装后用上面提供的激活软件是可以激活的，但是导致我的office变成了未激活状态，重新激活即可。现在不知什么原因我的visio又显示未激活状态，所以重新激活，之前软件无法使用了，提示我重装系统。。。。。
下面新方法，把以下代码复制粘贴到一个新建的记事本里，也就是txt文件里，文件名随意即可，保存之后把文件的后缀改为“.bak”，然后双击运行即可。（最好在双击前手动关闭windows的防火墙）

@echo off
title Activate Microsoft Visio 2019&cls&echo ============================================================================&echo #Visio: Activating Microsoft software products for FREE without software&echo ============================================================================&echo.&echo #Supported products:&echo - Microsoft Visio Standard 2019&echo - Microsoft Visio Professional Plus 2019&echo.&echo.&(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")&cscript //nologo ospp.vbs /inslic:"..\root\Licenses16\pkeyconfig-office.xrm-ms" >nul&(for /f %%x in ('dir /b ..\root\Licenses16\client-issuance*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\visioprovl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&(for /f %%x in ('dir /b ..\root\Licenses16\visiopro2019vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&echo.&echo ============================================================================&echo 正在尝试激活...&cscript //nologo ospp.vbs /unpkey:7VCBB >nul&cscript //nologo ospp.vbs /inpkey:9BGNQ-K37YR-RQHF2-38RQ3-7VCBB >nul&set i=1
:server
if %i%==1 set KMS_Sev=kms.xspace.in
if %i%==2 set KMS_Sev=kms.03k.org
if %i%==3 set KMS_Sev=kms7.MSGuides.com
if %i%==4 goto notsupported
cscript //nologo ospp.vbs /sethst:%KMS_Sev% >nul&echo ============================================================================&echo.&echo.
cscript //nologo ospp.vbs /act | find /i "successful" && (echo 已完成，按任意键退出) || (echo 连接KMS服务器失败! 试图连接到另一个… & echo 请等待... & echo. & echo. & set /a i+=1 & goto server)
pause >nul
exit

上面kms的网址可能会失效，如果失效可以百度一下可用的kms网址，替换进去，再运行即可。（我第一次运行激活就用此种情况，上面代码已经替换过，可直接使用）