Download and activate Windows and Microsoft Office without using third-party programs

briztour, у меня не слетает уже больше года

VladaVas,

One_Cumersen, может \не так скопировал? он в любом случае не должен закрыться сразу

One_Cumersen, напиши мне в телеграм

bearzilla, попробуй с ***

Ilinenko, выполнил код, который я дал тебе?

MALWARE, Да, всё сделал, зашел опять в ворд все равно надпись

Ilinenko, можешь дать anydesk?

MALWARE, гений...

MALWARE, ахуеть коттонеайджое ответил что нет значит точно нет

Bebrik22_inactive5641276, ахуеть Bebrik22_inactive5641276 сказал что активировать так небезопасно, значит точно небезопасно

Георгий11111, ну как бэ...

Георгий11111, ты куда зашел вообще? Не используй приложение "Office", после установки у тебя должны появиться Word, Excel, PowerPoint итд. В пуске найди.

MALWARE, хорошо, жду

Bogdan_bolotin,

@echo off
title Activator Microsoft Visio 2021
openfiles>nul
if NOT %ERRORLEVEL% EQU 0 goto notadmin
set KMS=104.244.78.23
cls
(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\visiopro2021vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&cscript //nologo slmgr.vbs /ckms >nul&cscript //nologo ospp.vbs /setprt:1688 >nul&cscript //nologo ospp.vbs /unpkey:K2HT4 >nul&cscript //nologo ospp.vbs /inpkey:KNH8D-FGHT4-T8RK3-CTDYJ-K2HT4 >nul||goto notsupported
echo Visio naiden, activatsija...
cscript //nologo ospp.vbs /sethst:%KMS%>nul
cscript //nologo ospp.vbs /act | find /i "successful" && (echo Visio yspeshno aktivirovan! Najmite lubyju klavishu, chtobi viiti.&goto done) || (echo Ne udalos soedinitsa s serverom. Vozmozhno, server aktivatsii ymer. Napishite v teme, chtobi ja proveril eto. Najmite lubyju klavishu, chtobi viiti.&goto done)
:notsupported
echo Visio ne naiden. Versija Visio i versija koda tochno sootvetstvyut? Napishite ob etom v teme.&goto done
:notadmin
echo Fail nyzhno zapystit ot imeni administratora! Najmite lubyju klavishu, chtobi viiti.&goto done
:done
pause>nul

CMD

@echo off

title Activator Microsoft Visio 2021

openfiles>nul

if NOT %ERRORLEVEL% EQU 0 goto notadmin

set KMS=104.244.78.23

cls

(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\visiopro2021vl_kms*.xrm-ms') do cscript ospp.vbs /inslic:"..\root\Licenses16\%%x" >nul)&cscript //nologo slmgr.vbs /ckms >nul&cscript //nologo ospp.vbs /setprt:1688 >nul&cscript //nologo ospp.vbs /unpkey:K2HT4 >nul&cscript //nologo ospp.vbs /inpkey:KNH8D-FGHT4-T8RK3-CTDYJ-K2HT4 >nul||goto notsupported

echo Visio naiden, activatsija...

cscript //nologo ospp.vbs /sethst:%KMS%>nul

cscript //nologo ospp.vbs /act | find /i "successful" && (echo Visio yspeshno aktivirovan! Najmite lubyju klavishu, chtobi viiti.&goto done) || (echo Ne udalos soedinitsa s serverom. Vozmozhno, server aktivatsii ymer. Napishite v teme, chtobi ja proveril eto. Najmite lubyju klavishu, chtobi viiti.&goto done)

:notsupported

echo Visio ne naiden. Versija Visio i versija koda tochno sootvetstvyut? Napishite ob etom v teme.&goto done

:notadmin

echo Fail nyzhno zapystit ot imeni administratora! Najmite lubyju klavishu, chtobi viiti.&goto done

:done

pause>nul

MALWARE, спасибо, все работает

adawdwadwad, по русски я не мог написать, получились бы кракозябры

adawdwadwad, Офис активирован. Спасибо

Ilinenko,

kguevel,
у тебя нету такого значка?

kguevel, сделай так же, как с активацией, только файл .reg, а не .cmd

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\word]
"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"
"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"
"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\excel]
"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"
"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"
"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\onenote]
"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"
"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"
"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\outlook]
"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"
"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"
"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\powerpoint]
"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"
"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"
"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"

REG

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\word]

"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"

"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"

"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"



[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\excel]

"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"

"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"

"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"



[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\onenote]

"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"

"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"

"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"



[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\outlook]

"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"

"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"

"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"



[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Common\ExperimentConfigs\ExternalFeatureOverrides\powerpoint]

"Microsoft.Office.UXPlatform.FluentSVRefresh"="true"

"Microsoft.Office.UXPlatform.RibbonTouchOptimization"="true"

"Microsoft.Office.UXPlatform.FluentSVRibbonOptionsMenu"="true"

Radost69,

не подхватил, я дома сижу

cr1stalik182662, какие 10 мин? Меньше 30 секунд нужно. Ты может быть тыкнул в командную строку и тем самым сделал паузу (выделение)

cr1stalik182662, тыкни еще раз чтобы убрать выделение или попробуй заново запустить