现实中大家用原版win10系统Metro应用很多不需要也不习惯使用我们可以通过以下代码来删除。
1、复制下面代码，新建一个TXT文本文件并粘贴。
2、TXT文本文件另存为xx.bat格式。
3、执行xx.bat就可以进行删除你不需要功能了。
@echo off
ver|find "10.">nul||(echo 脚本仅限Windows 10使用&pause>nul&exit)
ver|find "6.">nul&&goto admin
openfiles.exe>nul
if "%errorlevel%" neq "0" (goto uac) else (goto admin)
:uac
> "%temp%\adminr.vbs" echo CreateObject^("Shell.Application"^).ShellExecute "%~0", "", "", "runas", 1
"%temp%\adminr.vbs"
rem del "%temp%\adminr.vbs" >nul 2>nul
exit /b
:admin
pushd "%CD%"&cd /d "%~dp0"
title "%~n0" By: fastslz
:slz
cls
color 0a
mode con: cols=80 lines=32
set "OSx=%PROCESSOR_ARCHITECTURE%"
set "Disms=%~dp0x%OSx:~-2%"
echo,
echo Windows 10 微软 Metro 组件删除工具
echo 1: 人脉
echo 2: OneNote
echo 3: 3D 打印
echo 4: 邮件和日历
echo 5: Groove音乐
echo 6: 电影与电视
echo 7: 手机助手
echo 8: 纸牌游戏
echo 9: Windows 图片
echo 10: Windows 相机
echo 11: Windows 地图
echo 12: 语音录音机
echo 13: Xbox 系电脑列
echo 14: 获取Skype
echo 15: 获取Office
echo 16: 必应资讯
echo 17: 必应财经
echo 18: 必应天气
echo 19: 必应体育
echo 20: 删除所有微软Metro应用
echo,
set /p aKey=输入删除项目序号，并按回车键（退出直接按回车键）
if "%aKey%"=="" exit
if %aKey% equ 1 Call :rApp "Microsoft.People"
if %aKey% equ 2 Call :rApp "Microsoft.Office.OneNote"
if %aKey% equ 3 Call :rApp "Microsoft.3DBuilder"
if %aKey% equ 4 Call :rApp "Microsoft.windowscommunicationsapps"
if %aKey% equ 5 Call :rApp "Microsoft.ZuneMusic"
if %aKey% equ 6 Call :rApp "Microsoft.ZuneVideo"
if %aKey% equ 7 Call :rApp "Microsoft.WindowsPhone"
if %aKey% equ 8 Call :rApp "Microsoft.MicrosoftSolitaireCollection"
if %aKey% equ 9 Call :rApp 电脑 "Microsoft.Windows.Photos"
if %aKey% equ 10 Call :rApp "Microsoft.WindowsCamera"
if %aKey% equ 11 Call :rApp "Microsoft.WindowsMaps"
if %aKey% equ 12 Call :rApp "Microsoft.WindowsSoundRecorder"
if %aKey% equ 13 Call :rApp "Microsoft.XboxApp"
if %aKey% equ 14 Call :rApp "Microsoft.SkypeApp"
if %aKey% equ 15 Call :rApp "Microsoft.MicrosoftOfficeHub"
if %aKey% equ 16 Call :rApp "Microsoft.BingNews"
if %aKey% equ 17 Call :rApp "Microsoft.BingFinance"
if %aKey% equ 18 Call :rApp "Microsoft.BingWeather"
if %aKey% equ 19 Call :rApp "Microsoft.BingSports"
if %aKey% equ 20 Call :rApp "Microsoft.*"
PowerShell Sleep 2
cls
goto slz
:rApp
if "%~1"=="" goto:eof
PowerShell "Get-AppxPackage %~1 | Remove-AppxPackage" 2>nul
for /f "delims=" %%i in ('dir /ad/b "%ProgramFiles%\WindowsApps\*%~1*neutral*" 2^>nul') do (
"%Disms%\Dism.exe" /online /Remove-ProvisionedAppxPackage /PackageName:"%%~i"
)
goto:eof
//OneDrive删除批处理工具taskkill /f /im OneDrive.exe
taskkill /f /im explorer.exe
if exist %SYSTEMROOT%\SysWOW64\OneDriveSetup.exe (
%SYSTEMROOT%\SysWOW64\OneDriveSetup.exe /uninstall
) else (
%SYSTEMROOT%\System32\OneDriveSetup.exe /uninstall
)
rd /s /q "%USERPROFILE%\OneDrive"
rd /s /q "%LOCALAPPDATA%\Microsoft\OneDrive"
rd /s /q "%PROGRAMDATA%\Microsoft OneDrive"
reg delete "HKEY_CLASSES_ROOT\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /f
reg delete "HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /f
start explorer
电脑
