· 8 years ago · Mar 04, 2018, 06:04 PM
1@echo off
2SetLocal EnableDelayedExpansion
3
4
5:: define current version
6set CurV=4.0
7
8
9Title Windows 10 Toggle Tweaker v%CurV%
10Color 1F
11
12::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
13:: get admininstrative privileges ::::==============================================================================================================================================================================
14::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
15mode con:cols=55 lines=2
16
17
18
19>nul 2>&1 "%SYSTEMROOT%\system32\cacls.exe" "%SYSTEMROOT%\system32\config\system"
20if '%errorlevel%' NEQ '0' (
21 echo Requesting administrative privileges...
22 goto UACPrompt
23) else ( goto gotAdmin )
24
25:UACPrompt
26echo Set UAC = CreateObject^("Shell.Application"^) > "%temp%\getadmin.vbs"
27echo UAC.ShellExecute "cmd.exe", "/c %~s0 %params%", "", "runas", 1 >> "%temp%\getadmin.vbs"
28"%temp%\getadmin.vbs"
29exit /b
30
31:gotAdmin
32if exist "%temp%\getadmin.vbs" ( del "%temp%\getadmin.vbs" )
33pushd "%CD%"
34CD /D "%~dp0"
35
36
37
38::::::::::::::::::::::::::::==============================================================================================================================================================================
39:: set global variables ::::==============================================================================================================================================================================
40::::::::::::::::::::::::::::==============================================================================================================================================================================
41
42::Set Default Input Mode
43set "SelectMode=Mouse"
44
45::set Reg key path to use to store Script configs
46set "Main_Script_Reg_key=HKLM\SOFTWARE\ToggleTweaker"
47
48:: create dependencies
49call :batbox
50rem replacement variables for dependencies
51set BB="%temp%\batbox.exe"
52
53:: change window size
54mode con:cols=119 lines=33
55
56:: define known builds, new ones will be added as they come along
57set "knownBuilds=10240 10586 14393"
58
59:: Define the current windows build number
60for /f "tokens=4-7 delims=[.] " %%i in ('ver') do @(if %%i==Version (set "windowsBuild=%%i.%%j.%%k") else (set "windowsBuild=%%k"))
61
62set "WAaction=1"
63
64:: Define color for all Back buttons in sub-menus
65set BackButtonColor=8F
66
67::Define Supprted apps in removing sections
68set "AppStrings=3DBuilder_8wekyb3d8bbwe WindowsAlarms_8wekyb3d8bbwe WindowsCalculator_8wekyb3d8bbwe windowscommunicationsapps_8wekyb3d8bbwe WindowsCamera_8wekyb3d8bbwe MicrosoftOfficeHub_8wekyb3d8bbwe SkypeApp_kzf8qxf38zg5c Getstarted_8wekyb3d8bbwe ZuneMusic_8wekyb3d8bbwe WindowsMaps_8wekyb3d8bbwe MicrosoftSolitaireCollection_8wekyb3d8bbwe BingFinance_8wekyb3d8bbwe ZuneVideo_8wekyb3d8bbwe BingNews_8wekyb3d8bbwe Office.OneNote_8wekyb3d8bbwe People_8wekyb3d8bbwe WindowsPhone_8wekyb3d8bbwe Windows.Photos_8wekyb3d8bbwe BingSports_8wekyb3d8bbwe WindowsSoundRecorder_8wekyb3d8bbwe BingWeather_8wekyb3d8bbwe XboxApp_8wekyb3d8bbwe Messaging_8wekyb3d8bbwe ConnectivityStore_8wekyb3d8bbwe CommsPhone_8wekyb3d8bbwe Office.Sway_8wekyb3d8bbwe oneconnect_8wekyb3d8bbwe microsoftstickynotes_8wekyb3d8bbwe Microsoft3DViewer_8wekyb3d8bbwe MSPaint_8wekyb3d8bbwe WindowsStore_8wekyb3d8bbwe"
69
70
71rem LineFeed variable, requires 2 empty lines below
72set LF=^
73
74
75
76:: Disable Quickedit in CMD (To make Mouse Work)
77Reg.exe add "HKCU\Console" /v "QuickEdit" /t REG_DWORD /d "0" /f >nul 2>&1
78Reg.exe add "HKCU\Console\%%SystemRoot%%_System32_cmd.exe" /v "QuickEdit" /t REG_DWORD /d "0" /f >nul 2>&1
79
80
81
82::Show What's NEW PAge if running current version for the first time
83reg query "HKLM\SOFTWARE\ToggleTweaker" /v Version | find "%CurV%" >nul
84if "%errorlevel%"=="0" (goto Versioncheck) else ((Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "Version" /t REG_SZ /d "%CurV%" /f >nul ) & call :WhatsNEW)
85
86
87:::::::::::::::::::::::::::::==============================================================================================================================================================================
88:: check for new version ::::==============================================================================================================================================================================
89:::::::::::::::::::::::::::::==============================================================================================================================================================================
90
91
92:Versioncheck
93
94
95
96cls
97echo Checking For Updates ...
98echo.
99
100if exist "%~dp0\Updater.bat" ( del "%~dp0\Updater.bat" )
101
102call :Servercheck dl.dropbox.com MainMenu
103call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiNkU3VUJkYlh0aGc" TWV.TXT
104
105
106
107set content=
108for /F "delims=" %%i in (TWV.TXT) do set content=!content! %%i
109set NewV=%content%
110del TWV.txt
111if %NewV% GTR %CurV% (Goto New)
112if %CurV% == %NewV% (Goto MainMenu)
113
114:New
115call :msgBox NewVersion
116if /i "!buttonClicked!"=="NO" GOto :Startintro
117if /i "!buttonClicked!"=="YES" (
118::AUTOUpdate
119call :Infomsgbox "Downloading and installing The New version..." 9F 900
120cd %Temp%
121call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiXzdKLTVzUkk0SGs" "Toggle Tweaker.bat"
122CD /D %~dp0
123
124call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiekQtaFJwUzFVYm8" "Updater.bat"
125start Updater.bat
126start https://goo.gl/KZqoyt
127exit
128)
129
130::==============================================================================================================================================================================
131::==============================================================================================================================================================================
132::==============================================================================================================================================================================
133::==============================================================================================================================================================================
134::==============================================================================================================================================================================
135::==============================================================================================================================================================================
136
137:Startintro
138cls
139
140:: Skip the Intro
141call :verify-SkipIntro >nul 2>&1
142If "%SkipIntro%"=="YES" goto MainMenu
143
144:: generate random number between 1 and 3 because there are 3 intro animations :)
145SET /a rand=%random% %%4 +1
146
147:: "play" intro
148call :intro %rand%
149
150
151
152
153
154::::::::::::::
155:: MainMenu ::
156::::::::::::::
157:MainMenu
158
159cls
160call :ClearButtons
161call :verify-Updates 5
162
163set "Title1= _______________________________________________________________________________________"
164set "Title2= ^| ____ __ ___ ___ __ ____ ____ _ _ ____ __ __ _ ____ ____ ^|"
165set "Title3= ^| (_ _) / \ / __) / __)( ) ( __) (_ _)/ )( \( __) / _\ ( / )( __)( _ \ ^|"
166set "Title4= ^| )( ( O )( (_ \( (_ \/ (_/\ ) _) )( \ /\ / ) _) / \ ) ( ) _) ) / ^|"
167set "Title5= ^| (__) \__/ \___/ \___/\____/(____) (__) (_/\_)(____)\_/\_/(__\_)(____)(__\_) ^|"
168set "Title6= ^|_______________________________________________________________________________________^|"
169
170
171set "button1=Windows / Office KMS activation"
172set "button2=Manage Built-in apps and restore old ones"
173set "button3=Enable/Disable stuff In Windows10"
174set "button4=User Interface Tweaks"
175set "button5=Toggle Windows Update status (%Updates%) [O]"
176set "button6=Manage Windows Features"
177set "button7=Manage User Accounts "
178set "button8=Speed Up PC Performance"
179set "button9=Manage Microsoft Edge browser"
180set "button10=Internet Tweaks and Fixes"
181set "button11=Convert Pro/Home version to LTSB [O]"
182set "button12=TELEMETRY and Data collection Settings ^!^!"
183
184set "button13=TWEAKER SETTINGS" & set Button13Color=37
185set "button14=EXIT TOGGLE TWEAKER" & set Button14Color=4F
186
187
188call :drawMenu
189
190
191
192call :readInput
193if "%buttonClicked%"=="1" (cls & goto KMSActivation )
194if "%buttonClicked%"=="2" (cls & goto WinAppsmenu )
195if "%buttonClicked%"=="3" (cls & goto Enable/Disable )
196if "%buttonClicked%"=="4" (cls & goto UI )
197if "%buttonClicked%"=="5" (if /i "%Updates%"=="Disabled" (Call :Enable-Updates) else (Call :Disable-Updates) & Goto MainMenu )
198if "%buttonClicked%"=="6" (cls & goto Features )
199if "%buttonClicked%"=="7" (cls & goto Users )
200if "%buttonClicked%"=="8" (cls & goto Performance )
201if "%buttonClicked%"=="9" (cls & goto Edge )
202if "%buttonClicked%"=="10" (cls & goto NETWORK )
203if "%buttonClicked%"=="11" (cls & goto LTSB )
204if "%buttonClicked%"=="12" (cls & goto TELEMETRY )
205
206if "%buttonClicked%"=="13" (goto :settingsMenu )
207if "%buttonClicked%"=="14" (Exit)
208goto MainMenu
209
210
211
212
213
214
215:TELEMETRY
216Call :GetActiveButton 9 1
217Call :GetActiveButton 10 2
218cls
219call :ClearButtons
220
221set "Title1= _______________________________________________________________________________________"
222set "Title2= ^| ____ __ ___ ___ __ ____ ____ _ _ ____ __ __ _ ____ ____ ^|"
223set "Title3= ^| (_ _) / \ / __) / __)( ) ( __) (_ _)/ )( \( __) / _\ ( / )( __)( _ \ ^|"
224set "Title4= ^| )( ( O )( (_ \( (_ \/ (_/\ ) _) )( \ /\ / ) _) / \ ) ( ) _) ) / ^|"
225set "Title5= ^| (__) \__/ \___/ \___/\____/(____) (__) (_/\_)(____)\_/\_/(__\_)(____)(__\_) ^|"
226set "Title6= ^|_______________________________________________________________________________________^|"
227
228
229
230
231set "button9=[REPO] Windows 10 TELEMETRY REPOSITORY" & set Button3Color=9F
232set "button10=[Guide] Way to Disable Keylogger/ Telemetry" & set Button2Color=9F
233
234set "button14=Go Back" & set Button14Color=%BackButtonColor%
235call :drawMenu
236
237
238%BB% /c 0x1F /g 0 12
239echo Telemetry is not Built inside WIndows 10, BUT Windows 10 is Built on TELEMETRY.
240echo.
241echo The point here is that anyway you try it to disable Telemetry it will be enabled by something else later
242echo And if you go far in disabling it you will find yourself using a system that is worse than Win 8
243echo.
244echo.
245echo.
246echo But if you insist here are some links that may help you
247%BB% /c 0x1F /g 59 21
248
249call :readInput
250
251
252if "%buttonClicked%"=="%ActiveButton9%" (cls & Start https://forums.mydigitallife.info/threads/63874-REPO-Windows-10-TELEMETRY-REPOSITORY)
253if "%buttonClicked%"=="%ActiveButton10%" (cls & Start https://forums.mydigitallife.info/threads/57339-Guide-Way-to-Disable-Keylogger-Telemetry-v3-53)
254
255if "%buttonClicked%"=="14" (Goto MainMenu)
256goto TELEMETRY
257
258
259
260
261
262
263
264
265::==============================================================================================================================================================================
266::==============================================================================================================================================================================
267
268
269
270:KMSActivation
271
272call :ClearButtons
273set "Title1= _______________________________________________________________________________________"
274set "Title2= ^| ____ __ ___ ___ __ ____ ____ _ _ ____ __ __ _ ____ ____ ^|"
275set "Title3= ^| (_ _) / \ / __) / __)( ) ( __) (_ _)/ )( \( __) / _\ ( / )( __)( _ \ ^|"
276set "Title4= ^| )( ( O )( (_ \( (_ \/ (_/\ ) _) )( \ /\ / ) _) / \ ) ( ) _) ) / ^|"
277set "Title5= ^| (__) \__/ \___/ \___/\____/(____) (__) (_/\_)(____)\_/\_/(__\_)(____)(__\_) ^|"
278set "Title6= ^|_______________________________________________________________________________________^|"
279set "button1=Check Windows Activation Status"
280set "button2=Check Office Activation Status"
281set "button3=Activate Windows/Office Using KMSPico"
282set "button14=Go Back" & set Button14Color=%BackButtonColor%
283call :drawMenu
284
285call :readInput
286if "%buttonClicked%"=="1" ( cls & call :CheckWindowsactivation )
287if "%buttonClicked%"=="2" ( cls & call :CheckOfficeactivation )
288if "%buttonClicked%"=="3" ( cls & call :ActivateWindows/office )
289if "%buttonClicked%"=="14" goto MainMenu
290goto KMSActivation
291
292
293::==============================================================================================================================================================================
294
295::==============================================================================================================================================================================
296
297
298:WinAppsmenu
299
300call :ClearButtons
301call :verify-photoviewer 2
302
303set "Title1= _______________________________________________________________________________________"
304set "Title2= ^| _ _ __ _ _ ___ __ _ _ ___ __ ___ ___ ___ ^|"
305set "Title3= ^| ( \/\/ )( )( \( )( \ / \( \/\/ )/ __) ( ) ( ,\( ,\/ __) ^|"
306set "Title4= ^| \ / )( ) ( ) ) )( () )\ / \__ \ /__\ ) _/ ) _/\__ \ ^|"
307set "Title5= ^| \/\/ (__)(_)\_)(___/ \__/ \/\/ (___/ (_)(_)(_) (_) (___/ ^|"
308set "Title6= ^|_______________________________________________________________________________________^|"
309
310
311set "button1=Remove/restore Windows built-in apps from Users"
312set "button3=Uninstall/restore Cortana [O]"
313set "button5=Uninstall/restore Microsoft Edge [O]"
314set "button7=Uninstall/restore Internet Explorer 11 [O]"
315set "button9=Uninstall, Disable and reenable Onedrive"
316set "button11=Uninstall Contact Support (Get Help) App [O]"
317set "button13=Uninstall WindowsFeedback App [O]"
318
319
320set "button2=Restore Old Windows photo viewer (%photoviewer%)"
321set "button4=Restore Legacy Calculator (Classic Win32) [O]"
322set "button6=Restore Win 7 Task manager [O]"
323set "button8=Restore Classic MSConfig [O]"
324set "button10=Install Windows DVD Player app [O]"
325set "button12=Restore Classic Paint app [B:14986] [O]"
326
327
328
329
330
331set "button14=Go Back" & set Button14Color=%BackButtonColor%
332call :drawMenu
333
334
335call :readInput
336if "%buttonClicked%"=="1" ( cls & call :Awamenu )
337if "%buttonClicked%"=="2" ( Call :Enable-photoviewer )
338if "%buttonClicked%"=="3" ( cls & call :UninstallCortana )
339if "%buttonClicked%"=="4" ( cls & call :CALC32 )
340if "%buttonClicked%"=="5" ( cls & call :UninstallEdge )
341if "%buttonClicked%"=="6" ( cls & call :Win7Taskmanager )
342if "%buttonClicked%"=="7" ( cls & call :UninstallIE11 )
343if "%buttonClicked%"=="8" ( cls & call :OLDMSConfig )
344if "%buttonClicked%"=="9" ( cls & call :Onedrive )
345if "%buttonClicked%"=="10" ( cls & call :InstallDVDapp )
346if "%buttonClicked%"=="11" ( cls & call :ContactSuppo )
347if "%buttonClicked%"=="12" ( cls & call :Paint32 )
348if "%buttonClicked%"=="13" ( cls & call :WFeedbackApp )
349if "%buttonClicked%"=="14" goto MainMenu
350goto WinAppsmenu
351
352
353::==============================================================================================================================================================================
354::==============================================================================================================================================================================
355
356
357:Enable/Disable
358
359call :ClearButtons
360call :verify-WindowsDefender 1 >nul 2>&1
361call :verify-QuickAccess 2 >nul 2>&1
362call :verify-Firewall 3 >nul 2>&1
363call :verify-BSOD 4 >nul 2>&1
364
365call :verify-PSWRDReveal 6 >nul 2>&1
366call :verify-Lockscreen 7 >nul 2>&1
367call :verify-HardwareICon 8 >nul 2>&1
368call :verify-SmartScreen 9 >nul 2>&1
369call :verify-CMDinWinX 10 >nul 2>&1
370
371
372
373set "Title1= _______________________________________________________________________________________"
374set "Title2= ^| ___ _ _ __ ___ __ ___ _ ___ __ ___ __ ___ __ ___ ^|"
375set "Title3= ^| ( _)( \( ) ( ) ( ,)( ) ( _) / ) ( \ ( )/ __) ( ) ( ,)( ) ( _) ^|"
376set "Title4= ^| ) _) ) ( /__\ ) ,\ )(__ ) _) / / ) ) ) )( \__ \ /__\ ) ,\ )(__ ) _) ^|"
377set "Title5= ^| (___)(_)\_)(_)(_)(___)(____)(___) /_/ (___) (__)(___)(_)(_)(___)(____)(___) ^|"
378set "Title6= ^|_______________________________________________________________________________________^|"
379
380set "button1=Windows Defender (%WindowsDefender%)"
381set "button3=Windows Firewall (%Firewall%)"
382set "button5=Manage Folders In 'This PC'"
383set "button7=Lockscreen (%Lockscreen%)"
384set "button9=Windows/Store Smart Screen Filter (%SmartScreen%)"
385//set "button11=** Hibernation & Fast Startup" & set Button11Color=4F
386
387
388set "button2=Default Quick Access view in Explorer (%QuickAccess%)"
389set "button4=Show BSOD details instead of the sad smiley (%BSOD%)"
390set "button6=Password Reveal Button (%PSWRDReveal%)"
391set "button8=Safely Remove Hardware Tray Icon (%HardwareICon%)"
392set "button10=Replace PowerShell with CMD in Win X menu (%CMDinWinX%)"
393
394
395set "button14=Go Back" & set Button14Color=%BackButtonColor%
396call :drawMenu
397
398
399call :readInput
400if "%buttonClicked%"=="1" (if /i "%WindowsDefender%"=="Disabled" (Call :Enable-WindowsDefender) else (Call :Disable-WindowsDefender) & Goto Enable/Disable )
401if "%buttonClicked%"=="2" (if /i "%QuickAccess%"=="Disabled" (Call :Enable-QuickAccess) else (Call :Disable-QuickAccess) & Goto Enable/Disable )
402if "%buttonClicked%"=="3" (if /i "%Firewall%"=="Disabled" (Call :Enable-Firewall) else (Call :Disable-Firewall) & Goto Enable/Disable )
403if "%buttonClicked%"=="4" (if /i "%BSOD%"=="Disabled" (Call :Enable-BSOD) else (Call :Disable-BSOD) & Goto Enable/Disable )
404if "%buttonClicked%"=="5" (Goto This-PC)
405if "%buttonClicked%"=="6" (if /i "%PSWRDReveal%"=="Disabled" (Call :Enable-PSWRDReveal) else (Call :Disable-PSWRDReveal) & Goto Enable/Disable )
406if "%buttonClicked%"=="7" (if /i "%Lockscreen%"=="Disabled" (Call :Enable-Lockscreen) else (Call :Disable-Lockscreen) & Goto Enable/Disable )
407if "%buttonClicked%"=="8" (if /i "%HardwareICon%"=="Disabled" (Call :Enable-HardwareICon) else (Call :Disable-HardwareICon) & Goto Enable/Disable )
408if "%buttonClicked%"=="9" (if /i "%SmartScreen%"=="Disabled" (Call :Enable-SmartScreen) else (Call :Disable-SmartScreen) & Goto Enable/Disable )
409if "%buttonClicked%"=="10" (if /i "%CMDinWinX%"=="Disabled" (Call :Enable-CMDinWinX) else (Call :Disable-CMDinWinX) & Goto Enable/Disable )
410if "%buttonClicked%"=="11" ( cls )
411
412if "%buttonClicked%"=="14" goto MainMenu
413goto Enable/Disable
414
415
416
417
418
419
420
421
422::==============================================================================================================================================================================
423::==============================================================================================================================================================================
424
425
426:UI
427call :ClearButtons
428
429call :verify-Darkmode 1 >nul 2>&1
430call :verify-Thumbnails 2 >nul 2>&1
431call :verify-VolumeControlUI 3 >nul 2>&1
432call :verify-TaskViewBTN 4 >nul 2>&1
433call :verify-BatteryStatusUI 5 >nul 2>&1
434call :verify-DeleteDialogDetails 6 >nul 2>&1
435call :verify-AltTabUI 7 >nul 2>&1
436call :verify-TransparencyBlur 8 >nul 2>&1
437call :verify-Logonscreen 10 >nul 2>&1
438call :verify-Thumbnailsize 13 >nul 2>&1
439
440
441
442set "Title1= _______________________________________________________________________________________"
443set "Title2= ^| _ _ ___ ___ ___ __ _ _ ____ ___ ___ ___ __ __ ___ ^|"
444set "Title3= ^| ( )( )/ __)( _)( ,) ( )( \( )(_ _)( _)( ,) ( _) ( ) / _)( _) ^|"
445set "Title4= ^| )()( \__ \ ) _) ) \ )( ) ( )( ) _) ) \ ) _) /__\ ( (_ ) _) ^|"
446set "Title5= ^| \__/ (___/(___)(_)\_) (__)(_)\_) (__) (___)(_)\_)(_) (_)(_) \__)(___) ^|"
447set "Title6= ^|_______________________________________________________________________________________^|"
448
449set "button1=Dark Theme For Apps (%Darkmode%)"
450set "button3=Volume Control UI (%VolumeControlUI%)"
451set "button5=Battery Status UI (%BatteryStatusUI%)"
452set "button7=Alt-Tab Screen UI (%AltTabUI%) [FE]"
453set "button9=Context Menu Tweaks"
454set "button11=Change OEM Information"
455set "button13=Taskbar Thumbnail size ( %Thumbnailsize%) [FE]"
456
457set "button2=Thumbnail Previews in File explorer (%Thumbnails%) [FE]"
458set "button4=Taskview button in Taskbar (%TaskViewBTN%) [FE]"
459set "button6=Show Delete-Confirmation-Dialog Prompt Details (%DeleteDialogDetails%)"
460set "button8=Transparency and Blur in: Taskbar-Clock... (%TransparencyBlur%)"
461set "button10=Change Logon Background Image/accent-color (%Logonscreen%)"
462set "button12=Colourise/Decolourise Start Me,Taskbar and Title bars"
463
464set "button14=Go Back" & set Button14Color=%BackButtonColor%
465
466
467call :drawMenu
468call :readInput
469
470if "%buttonClicked%"=="1" ((if /i "%Darkmode%"=="Disabled" (Call :Enable-Darkmode )) & (if /i "%Darkmode%"=="Enabled" (Call :Disable-Darkmode )) & goto UI ) >nul 2>&1
471if "%buttonClicked%"=="2" ((if /i "%Thumbnails%"=="Disabled" (Call :Enable-Thumbnails )) & (if /i "%Thumbnails%"=="Enabled" (Call :Disable-Thumbnails )) & goto UI ) >nul 2>&1
472if "%buttonClicked%"=="3" ((if /i "%VolumeControlUI%"=="OLD" (Call :NEW-VolumeControlUI )) & (if /i "%VolumeControlUI%"=="NEW" (Call :OLD-VolumeControlUI )) & goto UI ) >nul 2>&1
473if "%buttonClicked%"=="4" ((if /i "%TaskViewBTN%"=="Disabled" (Call :Enable-TaskViewBTN )) & (if /i "%TaskViewBTN%"=="Enabled" (Call :Disable-TaskViewBTN )) & goto UI ) >nul 2>&1
474if "%buttonClicked%"=="5" ((if /i "%BatteryStatusUI%"=="OLD" (Call :NEW-BatteryStatusUI )) & (if /i "%BatteryStatusUI%"=="NEW" (Call :OLD-BatteryStatusUI )) & goto UI ) >nul 2>&1
475if "%buttonClicked%"=="6" ((if /i "%DeleteDialogDetails%"=="Yes" (Call :NO-DeleteDialogDetails )) & (if /i "%DeleteDialogDetails%"==" No" (Call :Yes-DeleteDialogDetails )) & goto UI ) >nul 2>&1
476if "%buttonClicked%"=="7" ((if /i "%AltTabUI%"=="OLD" (Call :NEW-AltTabUI )) & (if /i "%AltTabUI%"=="NEW" (Call :OLD-AltTabUI )) & goto UI ) >nul 2>&1
477if "%buttonClicked%"=="8" ((if /i "%TransparencyBlur%"=="Disabled" (Call :Enable-TransparencyBlur )) & (if /i "%TransparencyBlur%"=="Enabled" (Call :Disable-TransparencyBlur )) & goto UI ) >nul 2>&1
478if "%buttonClicked%"=="9" ( cls & call :ContextMenu)
479if "%buttonClicked%"=="10" ((if /i "%Logonscreen%"=="Color" (Call :Image-Logonscreen )) & (if /i "%Logonscreen%"=="Image" (Call :Color-Logonscreen )) & goto UI ) >nul 2>&1
480if "%buttonClicked%"=="11" ( cls & call :OEMInfo )
481if "%buttonClicked%"=="12" ( cls & call :ColouriseStartmenu )
482if "%buttonClicked%"=="13" ((if /i "%Thumbnailsize%"=="Default" (Call :400-Thumbnailsize )) & (if /i "%Thumbnailsize%"=="190/400" (Call :Default-Thumbnailsize )) & goto UI ) >nul 2>&1
483
484if "%buttonClicked%"=="14" goto MainMenu
485goto UI
486
487
488
489::==============================================================================================================================================================================
490::==============================================================================================================================================================================
491
492
493
494:Features
495cls
496call :ClearButtons
497set "buttonClicked= "
498
499Call :GetActiveButton 5 3
500Call :GetActiveButton 6 4
501Call :GetActiveButton 9 5
502
503set "Title1= _______________________________________________________________________________________"
504set "Title2= ^| ____ ____ __ ____ _ _ ____ ____ ____ ^|"
505set "Title3= ^| ( __)( __) / _\(_ _)/ )( \( _ )( __)/ ___) ^|"
506set "Title4= ^| ) _) ) _) / \ )( ) \/ ( ) / ) _) \___ \ ^|"
507set "Title5= ^| (__) (____)\_/\_/(__) \____/(__\_)(____)(____) ^|"
508set "Title6= ^|_______________________________________________________________________________________^|"
509
510set "button1=Show Windows features list"
511set "button5=Enable a feature"
512set "button9=Disable and Remove feature Payload (clean feature files)"
513
514set "button2=Show 'Turn Windows features on or off' window"
515set "button6=Disable a feature"
516
517set "button14=Go Back" & set Button14Color=%BackButtonColor%
518call :drawMenu
519
520call :readInput
521
522if "%buttonClicked%"=="1" ( cls & dism /online /get-features | more )
523if "%buttonClicked%"=="2" ( start OptionalFeatures.exe )
524if "%buttonClicked%"=="%ActiveButton5%" ( call :Features-Input & cls & DISM /online /enable-feature /featurename:!input! & pause )
525if "%buttonClicked%"=="%ActiveButton6%" ( call :Features-Input & cls & dism /online /disable-feature /featurename:!input! & pause )
526if "%buttonClicked%"=="%ActiveButton9%" ( call :Features-Input & cls & dism /online /disable-feature /featurename:!input! /remove & pause )
527if "%buttonClicked%"=="14" goto MainMenu
528
529goto Features
530
531
532
533:Features-Input
534call :ClearButton 14
535%BB% ^
536 /c 0x1F /g 2 27 /d " ________________________________________________________" ^
537 /c 0x2F /g 2 28 /d "| |"^
538 /g 2 29 /d "| Input : |"^
539 /g 2 30 /d "|________________________________________________________|"^
540 /c 0xF1 /g 12 29 /d " " ^
541 /g 13 29
542)
543
544set /p Input=
545%BB% /c 0x1F
546If "%Input%"=="" Goto Features
547If "%Input%"==" " Goto Features
548If "%Input%"=="0" Goto Features
549
550exit /b
551
552
553
554::==============================================================================================================================================================================
555::==============================================================================================================================================================================
556
557
558
559:Users
560call :ClearButtons
561call :verify-AdminAccount
562
563set "Title1= _______________________________________________________________________________________"
564set "Title2= ^| _ _ ____ ____ ____ ____ _ _ __ __ _ __ ___ ____ ____ ^|"
565set "Title3= ^| / )( \/ ___)( __)( _ \/ ___) ( \/ ) / _\ ( ( \ / _\ / __)( __)( _ \ ^|"
566set "Title4= ^| ) \/ (\___ \ ) _) ) /\___ \ / \/ \/ \/ // \( (_ \ ) _) ) / ^|"
567set "Title5= ^| \____/(____/(____)(__\_)(____/ \_)(_/\_/\_/\_)__)\_/\_/ \___/(____)(__\_) ^|"
568set "Title6= ^|_______________________________________________________________________________________^|"
569
570set "button1=Show me my User accounts"
571set "button3=Add NEW user account"
572set "button5=Change specific user account Password"
573
574set "button4=Delete a user account"
575set "button2=Built-in Administrator Account (%AdminAccount%)"
576
577set "button14=Go Back" & set Button14Color=%BackButtonColor%
578call :drawMenu
579
580call :readInput
581
582if "%buttonClicked%"=="1" ( %BB% /g 1 21 & net user & pause & goto Users )
583if "%buttonClicked%"=="2" ((if /i "%AdminAccount%"=="Disabled" (net user administrator /active:yes & reg add "%Main_Script_Reg_key%" /v "AdminAccount" /t REG_DWORD /d 1 /f )) & (if /i "%AdminAccount%"=="Enabled" (net user administrator /active:no & reg add "%Main_Script_Reg_key%" /v "AdminAccount" /t REG_DWORD /d 0 /f )) & goto Users ) >nul 2>&1
584
585
586reg query "%Main_Script_Reg_key%" /v AdminAccount | find "0x1" >nul
587
588
589
590if "%buttonClicked%"=="3" ( call :Users-Input
591 net user "!Input!" /add
592 PAUSE
593 goto Users
594 )
595
596
597if "%buttonClicked%"=="4" ( call :Users-Input
598 net user "!Input!" /delete
599 PAUSE
600 goto Users
601 )
602
603if "%buttonClicked%"=="5" (%BB% /g 0 22
604 set /p name=* Write the name of the desired account:
605 set /p PWD=* Write the new password:
606 set /p PWDC=* Confirm the new password:
607 if "!PWD!"=="!PWDC!" (net user "!name!" "!PWD!" & call :msgbox ok & goto Users) Else (echo something Happend & pause & goto Users) )
608
609if "%buttonClicked%"=="14" goto MainMenu
610
611goto Users
612
613
614:Users-Input
615call :ClearButton 14
616%BB% ^
617 /c 0x1F /g 1 22 /d " _________________________________________________________" ^
618 /c 0x2F /g 1 23 /d "| |"^
619 /g 1 24 /d "| Input : |"^
620 /g 1 25 /d "|_________________________________________________________|"^
621 /c 0xF1 /g 12 24 /d " " ^
622 /g 13 24
623)
624
625set /p Input=
626%BB% /c 0x1F
627If "%Input%"=="" Goto Users
628If "%Input%"==" " Goto Users
629If "%Input%"=="0" Goto Users
630
631%BB% /g 0 25
632exit /b
633
634:verify-AdminAccount
635reg query "%Main_Script_Reg_key%" /v AdminAccount | find "0x1" >nul
636if "%errorlevel%"=="0" (set "AdminAccount=Enabled") else (set "AdminAccount=Disabled")
637exit/b
638
639
640
641
642::==============================================================================================================================================================================
643::==============================================================================================================================================================================
644
645
646
647
648:Performance
649call :ClearButtons
650
651
652call :FolderSize "%Windir%\SoftwareDistribution\Download" 2
653call :FolderSize "%Temp%" 3
654call :FolderSize "%Windir%\Prefetch" 4
655call :verify-GameMode 7
656
657set "Title1= _______________________________________________________________________________________"
658set "Title2= ^| ____ ___ ____ ____ ____ ____ __ ____ _ _ __ __ _ ___ ____ ^|"
659set "Title3= ^| ( _ \ / __) ( _ \( __)( _ \( __)/ \( _ \( \/ ) / _\ ( ( \ / __)( __) ^|"
660set "Title4= ^| ) __/( (__ ) __/ ) _) ) / ) _)( O )) // \/ \/ \/ /( (__ ) _) ^|"
661set "Title5= ^| (__) \___) (__) (____)(__\_)(__) \__/(__\_)\_)(_/\_/\_/\_)__) \___)(____) ^|"
662set "Title6= ^|_______________________________________________________________________________________^|"
663
664set "button1=Calculate Restart Time"
665set "button3=Clean TEMP Folder {'%FolderSize3%' Can be cleaned}"
666set "button5=Start Disk Cleanup (Not automatic)"
667set "button7=Game Mode (%GameMode%)"
668
669set "button2=Clean Update Junk {'%FolderSize2%' Can be cleaned}"
670set "button4=Clean Prefetch Folder {'%FolderSize4%' Can be cleaned}"
671set "button6=Disable : Unnecessary services,BitLocker,Encrypting..."
672
673
674set "button14=Go Back" & set Button14Color=%BackButtonColor%
675
676
677call :drawMenu
678call :readInput
679
680
681if "%buttonClicked%"=="1" goto Restart_time
682if "%buttonClicked%"=="2" goto CleanUpdatefiles
683if "%buttonClicked%"=="3" (cls & del %TEMP%\*.* /f /s /q & call :batbox)
684if "%buttonClicked%"=="4" (cls & del %Windir%\Prefetch\*.* /f /s /q)
685if "%buttonClicked%"=="5" cleanmgr.exe /LOWDISK
686if "%buttonClicked%"=="6" cls & call :Services
687if "%buttonClicked%"=="7" (if /i "%GameMode%"=="Disabled" (Call :Enable-GameMode) else (Call :Disable-GameMode) & Goto Performance )
688
689
690
691if "%buttonClicked%"=="14" goto MainMenu
692goto Performance
693
694
695if "%buttonClicked%"=="" goto
696
697
698::==============================================================================================================================================================================
699::==============================================================================================================================================================================
700
701
702:NETWORK
703call :ClearButtons
704
705set "Title1= _______________________________________________________________________________________"
706set "Title2= ^| __ __ _ ____ ____ ____ __ _ ____ ____ ____ __ _ _ ____ ____ ^|"
707set "Title3= ^| ( )( ( \(_ _)( __)( _ \( ( \( __)(_ _) ( __)( )( \/ )( __)/ ___) ^|"
708set "Title4= ^| )( / / )( ) _) ) // / ) _) )( ) _) )( ) ( ) _) \___ \ ^|"
709set "Title5= ^| (__)\_)__) (__) (____)(__\_)\_)__)(____) (__) (__) (__)(_/\_)(____)(____/ ^|"
710set "Title6= ^|_______________________________________________________________________________________^|"
711
712set "button1=Fix Empty 'Network Connections'Folder {Network Adapters}"
713set "button3=Restore 'Windows Firewall'+'Network Adapter' settings"
714set "button5=Release and renew the IP address from DHCP server"
715
716
717set "button2=Disable Limit Reservable Bandwidth (kind of)network"
718set "button4=Flush Windows DNS Cache {ipconfig /flushdns}"
719
720
721
722set "button14=Go Back" & set Button14Color=%BackButtonColor%
723
724
725call :drawMenu
726call :readInput
727
728
729if "%buttonClicked%"=="1" Reg.exe delete "HKLM\SYSTEM\CurrentControlSet\Control\Network" /v "Config" /f
730if "%buttonClicked%"=="2" Reg.exe add "HKLM\SOFTWARE\Policies\Microsoft\Windows\Psched" /v "Psched" /t REG_DWORD /d "0" /f
731if "%buttonClicked%"=="3" netsh int ip reset reset.txt & netsh winsock reset & netsh advfirewall reset
732if "%buttonClicked%"=="4" ipconfig /flushdns
733if "%buttonClicked%"=="5" ipconfig /release & ipconfig /renew
734
735if "%buttonClicked%"=="14" goto MainMenu
736goto NETWORK
737
738
739::==============================================================================================================================================================================
740::==============================================================================================================================================================================
741
742
743:Edge
744call :ClearButtons
745
746
747call :verify-EdgeAds 1 >nul 2>&1
748call :verify-EdgeTheme 2 >nul 2>&1
749call :verify-closeTabs 5 >nul 2>&1
750call :verify-CoratnainEdge 6 >nul 2>&1
751call :verify-EdgeFlashPlayer 7 >nul 2>&1
752call :verify-FavoritesBar 8 >nul 2>&1
753call :verify-NewTabPage 10 >nul 2>&1
754
755
756
757set "Title1= _______________________________________________________________________________________"
758set "Title2= ^| _ _ __ ___ ____ __ ____ __ ____ ____ ____ ____ ___ ____ ^|"
759set "Title3= ^| ( \/ )( )/ __)( _ \ / \ / ___) / \( __)(_ _) ( __)( \ / __)( __) ^|"
760set "Title4= ^| / \/ \ )(( (__ ) /( O )\___ \( O )) _) )( ) _) ) D (( (_ \ ) _) ^|"
761set "Title5= ^| \_)(_/(__)\___)(__\_) \__/ (____/ \__/(__) (__) (____)(____/ \___/(____) ^|"
762set "Title6= ^|_______________________________________________________________________________________^|"
763
764set "button1=Disable Ads (using Hosts File) [O] (%EdgeAds%) "
765set "button3=Change Browser Home Button page"
766set "button5=Ask to close all tabs ? (%closeTabs%)"
767set "button7=Adobe Flash Player In Edge (%EdgeFlashPlayer%)"
768set "button9=Uninstall/restore Microsoft Edge [O]"
769
770set "button2=Dark Theme (%EdgeTheme%)"
771set "button4=Change default download directory"
772set "button6=Cortana inside the browser (%CoratnainEdge%)"
773set "button8=Favorites Bar (%FavoritesBar%)"
774set "button10=NewTab Page : %NewTabPage% "
775
776set "button14=Go Back" & set Button14Color=%BackButtonColor%
777
778
779
780
781
782
783call :drawMenu
784
785
786call :readInput
787
788if "%buttonClicked%"=="1" ((if /i "%EdgeAds%"=="Disabled" (Call :Enable-EdgeAds )) & (if /i "%EdgeAds%"=="Enabled" (Call :Disable-EdgeAds )) & goto Edge )
789if "%buttonClicked%"=="2" ((if /i "%EdgeTheme%"=="Disabled" (Call :Enable-EdgeTheme )) & (if /i "%EdgeTheme%"=="Enabled" (Call :Disable-EdgeTheme )) & goto Edge ) >nul 2>&1
790if "%buttonClicked%"=="3" (call :Edge-Input & Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "HomeButtonPage" /t REG_SZ /d "%Input%" /f & goto Edge ) >nul 2>&1
791if "%buttonClicked%"=="4" (call :Edge-Input & Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "Default Download Directory" /t REG_SZ /d "%Input%" /f & goto Edge ) >nul 2>&1
792if "%buttonClicked%"=="5" ((if /i "%closeTabs%"=="Disabled" (Call :Enable-closeTabs )) & (if /i "%closeTabs%"=="Enabled" (Call :Disable-closeTabs )) & goto Edge ) >nul 2>&1
793if "%buttonClicked%"=="6" ((if /i "%CoratnainEdge%"=="Disabled" (Call :Enable-CoratnainEdge )) & (if /i "%CoratnainEdge%"=="Enabled" (Call :Disable-CoratnainEdge )) & goto Edge ) >nul 2>&1
794if "%buttonClicked%"=="7" ((if /i "%EdgeFlashPlayer%"=="Disabled" (Call :Enable-EdgeFlashPlayer )) & (if /i "%EdgeFlashPlayer%"=="Enabled" (Call :Disable-EdgeFlashPlayer )) & goto Edge ) >nul 2>&1
795if "%buttonClicked%"=="8" ((if /i "%FavoritesBar%"=="Disabled" (Call :Enable-FavoritesBar )) & (if /i "%FavoritesBar%"=="Enabled" (Call :Disable-FavoritesBar )) & goto Edge ) >nul 2>&1
796if "%buttonClicked%"=="9" ( cls & call :UninstallEdge)
797if "%buttonClicked%"=="10" ((if /i "%NewTabPage%"=="Suggested" (Call :NewTabPage-Blank )) & (if /i "%NewTabPage%"=="Blank" (Call :NewTabPage-Topsites )) & (if /i "%NewTabPage%"=="Topsites" (Call :NewTabPage-Suggested )) & goto Edge ) >nul 2>&1
798
799if "%buttonClicked%"=="14" goto MainMenu
800goto Edge
801
802
803:Edge-Input
804call :ClearButton 14
805%BB% ^
806 /c 0x1F /g 1 27 /d " _________________________________________________________" ^
807 /c 0x2F /g 1 28 /d "| |"^
808 /g 1 29 /d "| Input : |"^
809 /g 1 30 /d "|_________________________________________________________|"^
810 /c 0xF1 /g 12 29 /d " " ^
811 /g 13 29
812)
813
814set /p Input=
815%BB% /c 0x1F
816exit/b
817
818
819
820
821
822::==============================================================================================================================================================================
823
824:CheckWindowsactivation
825cls
826cd /d %~dp0
827setLocal EnableDelayedExpansion
828if exist "%Windir%\Sysnative\sppsvc.exe" set SysPath=%Windir%\Sysnative
829if exist "%Windir%\System32\sppsvc.exe" set SysPath=%Windir%\System32
830
831echo Windows Status:
832echo =================
833ver
834cscript //nologo %SysPath%\slmgr.vbs /dli
835cscript //nologo %SysPath%\slmgr.vbs /xpr
836
837echo.
838echo.
839call :msgBox ok
840
841exit /b
842
843::==============================================================================================================================================================================
844
845
846:CheckOfficeactivation
847cls
848cd /d %~dp0
849setLocal EnableDelayedExpansion
850if exist "%Windir%\Sysnative\sppsvc.exe" set SysPath=%Windir%\Sysnative
851if exist "%Windir%\System32\sppsvc.exe" set SysPath=%Windir%\System32
852
853echo Office 2016 Status:
854echo =====================
855set office=
856set installed=0
857FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\16.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
858if exist "%office%\OSPP.VBS" (
859 set installed=1
860 cd /d "%office%"
861 cscript //nologo ospp.vbs /dstatus
862 cd /d %~dp0
863)
864set office=
865FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\16.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
866if exist "%office%\OSPP.VBS" (
867 set installed=1
868 cd /d "%office%"
869 cscript //nologo ospp.vbs /dstatus
870 cd /d %~dp0
871)
872if %installed%==1 goto end2016
873if exist "C:\Program Files\Microsoft Office\Office16\OSPP.VBS" (
874 set installed=1
875 cd /d "C:\Program Files\Microsoft Office\Office16"
876 cscript //nologo ospp.vbs /dstatus
877 cd /d %~dp0
878)
879if exist "C:\Program Files (x86)\Microsoft Office\Office16\OSPP.VBS" (
880 set installed=1
881 cd /d "C:\Program Files (x86)\Microsoft Office\Office16"
882 cscript //nologo ospp.vbs /dstatus
883 cd /d %~dp0
884)
885:end2016
886if %installed%==0 echo Not installed
887
888echo.
889echo Office 2013 Status:
890echo =====================
891set office=
892set installed=0
893FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
894if exist "%office%\OSPP.VBS" (
895 set installed=1
896 cd /d "%office%"
897 cscript //nologo ospp.vbs /dstatus
898 cd /d %~dp0
899)
900set office=
901FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
902if exist "%office%\OSPP.VBS" (
903 set installed=1
904 cd /d "%office%"
905 cscript //nologo ospp.vbs /dstatus
906 cd /d %~dp0
907)
908if %installed%==0 echo Not installed
909echo.
910echo Office 2010 Status:
911echo =====================
912set office=
913set installed=0
914FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\14.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
915if exist "%office%\OSPP.VBS" (
916 set installed=1
917 cd /d "%office%"
918 cscript //nologo ospp.vbs /dstatus
919 cd /d %~dp0
920)
921set office=
922FOR /F "tokens=2*" %%a IN ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Common\InstallRoot" /v "Path" 2^>nul') do (SET office=%%b)
923if exist "%office%\OSPP.VBS" (
924 set installed=1
925 cd /d "%office%"
926 cscript //nologo ospp.vbs /dstatus
927 cd /d %~dp0
928)
929if %installed%==0 echo Not installed
930
931call :msgBox ok
932
933exit /b
934
935
936::==============================================================================================================================================================================
937
938
939:ActivateWindows/office
940
941Set CurCD=%CD%
942cd %temp%
943Del TWKMS.ZIP
944Del TWKMS.exe
945
946cls
947echo Downloading KMSpico ...
948echo.
949Call :Servercheck drive.google.com MainMenu
950call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfibDZ1RWRtUzViMGc" TWKMS.ZIP
951echo Installing KMSpico ...
952call :UnZip TWKMS.ZIP
953start /HIGH TWKMS.exe
954
955CD %CurCD%
956
957call :msgBox ok
958exit /b
959
960
961
962
963::==============================================================================================================================================================================
964::==============================================================================================================================================================================
965::==============================================================================================================================================================================
966
967:Awamenu
968set MainInput=
969set appDisplayName1= 1.3D Builder
970set appDisplayName2= 2.Alarms and Clocks
971set appDisplayName3= 3.Calculator
972set appDisplayName4= 4.Calendar and Mail
973set appDisplayName5= 5.Camera
974set appDisplayName6= 6.Get Office
975set appDisplayName7= 7.Skype Preview
976set appDisplayName8= 8.Get Started
977set appDisplayName9= 9.Groove Music
978set appDisplayName10=10.Maps
979set appDisplayName11=11.Microsoft Solitaire
980set appDisplayName12=12.Money (Finance)
981set appDisplayName13=13.Movies and TV
982set appDisplayName14=14.MSN News
983set appDisplayName15=15.OneNote
984set appDisplayName16=16.People
985set appDisplayName17=17.Phone Companion
986set appDisplayName18=18.Photos
987set appDisplayName19=19.Sports
988set appDisplayName20=20.Voice Recorder
989set appDisplayName21=21.Weather
990set appDisplayName22=22.Xbox
991set appDisplayName23=23.Messaging
992set appDisplayName24=24.Microsoft Wi-Fi
993set appDisplayName25=25.Phone
994set appDisplayName26=26.Office Sway
995set appDisplayName27=27.Paid Wifi/cellular
996set appDisplayName28=28.Sticky notes
997set appDisplayName29=29.3D Viewer
998set appDisplayName30=30.3D Paint
999set appDisplayName31=31.Store (No Restore)
1000
1001cls
1002echo _______________________________________________________________________________________
1003echo ^| _ _ __ _ _ ___ __ _ _ ___ __ ___ ___ ___ ^|
1004echo ^| ( \/\/ )( )( \( )( \ / \( \/\/ )/ __) ( ) ( ,\( ,\/ __) ^|
1005echo ^| \ / )( ) ( ) ) )( () )\ / \__ \ /__\ ) _/ ) _/\__ \ ^|
1006echo ^| \/\/ (__)(_)\_)(___/ \__/ \/\/ (___/ (_)(_)(_) (_) (___/ ^|
1007echo ^|_______________________________________________________________________________________^|
1008echo ^| ^| Commands credit to :
1009echo. ^| You can execute multiple commands at once, ex: "a 1 b 6 8 c 23" ^| 'johnye_pt'
1010echo ^|_________________________________________________________________^|
1011echo.
1012
1013
1014echo Default App Removing method :
1015
1016if [!WAaction!]==[2] (
1017 echo a. [ ] Remove App from current User
1018%BB% /c 0x9F /d " b. [x] Remove App from All Users " /c 0x1F & echo.
1019 echo.
1020)
1021
1022
1023if not [!WAaction!]==[2] (
1024
1025%BB% /c 0x9F /d " a. [x] Remove App from current User " /c 0x1F & echo.
1026 echo b. [ ] Remove App from All Users
1027 echo.
1028)
1029
1030
1031for /l %%a in (1,1,31) do (
1032set AS%%a=OFF)
1033
1034
1035
1036
1037echo ________
1038echo Apps : 0. Go back to Main page ^| ^<- ^|
1039echo __________________________________________________________________________________________________________^|________^|
1040echo ^| ^| ^| ^| ^|
1041echo ^| ^| ^| ^| ^|
1042echo ^| ^| ^| ^| ^|
1043echo ^| ^| ^| ^| ^|
1044echo ^| ^| ^| ^| ^|
1045echo ^| ^| ^| ^| ^|
1046echo ^| ^| ^| ^| ^|
1047echo ^| ^| ^| ^| ^|
1048echo ^| ^| ^| ^| ^|
1049echo ^|____________________________^|____________________________^|____________________________^|____________________________^|
1050echo ^| ^| ^| ^|
1051echo ^| 32.ALL, but store ^| V. refresh Apps Installation Status ^| Apply changes ^|
1052echo ^|____________________________^| ^|____________________________^|
1053echo.
1054
1055If /i "%SelectMode%"=="Mouse" ( %BB% ^
1056 /c 0x1F /g 111 1 /d " _______"^
1057 /c 0x3F /g 111 2 /d "| "^
1058 /g 111 3 /d "| USE "^
1059 /g 111 4 /d "| KBD "^
1060 /g 111 5 /d "|_______"
1061
1062) else (%BB% ^
1063 /c 0x1F /g 111 1 /d " _______"^
1064 /c 0x3F /g 111 2 /d "| "^
1065 /g 111 3 /d "|Press U"^
1066 /g 111 4 /d "|'Mouse'"^
1067 /g 111 5 /d "|_______"
1068 )
1069
1070
1071
1072call :ViewCurrentApps
1073
1074
1075If /i "%SelectMode%"=="Mouse" (
1076
1077:readingMouseAppsMenu
1078set buttonClicked=""
1079call :readMouseAppsMenu
1080
1081for /l %%a in (1,1,31) do ( if "!buttonClicked!"=="%%a" (
1082 If !AS%%a!==OFF (
1083 set "MainInput=!MainInput! c !buttonClicked!"
1084 %BB% /c 0x1F /G 1 31 /d "Input =!MainInput!"
1085 call :ToggleAS %%a
1086 ) else (
1087 If %WAaction%==2 set "MainInput=!MainInput! b !buttonClicked!"
1088 If not %WAaction%==2 set "MainInput=!MainInput! a !buttonClicked!"
1089 %BB% /c 0x1F /G 1 31 /d "Input =!MainInput!"
1090 call :ToggleAS %%a )
1091 )
1092)
1093
1094If "!buttonClicked!"=="Back" (
1095set "MainInput=!MainInput:~0,-3!"
1096%BB% /c 0x1F /G 1 31 /d " "
1097%BB% /G 1 31 /d "Input =!MainInput!"
1098
1099)
1100
1101
1102If "!buttonClicked!"=="32" (set "MainInput=!MainInput! 32" & %BB% /c 0x1F /G 1 31 /d "Input =!MainInput!")
1103if "!buttonClicked!"=="V" (set MainInput= & call :ViewCurrentApps)
1104If "!buttonClicked!"=="a" (set "WAaction=1" & goto Awamenu)
1105If "!buttonClicked!"=="b" (set "WAaction=2" & goto Awamenu)
1106If "!buttonClicked!"=="0" (goto WinAppsmenu)
1107
1108if "!buttonClicked!"=="apply" (goto WAfunction)
1109
1110goto readingMouseAppsMenu
1111
1112)
1113
1114
1115
1116If /i "%SelectMode%"=="KBD" (
1117::Clean Mouse-Only UI "
1118%BB% /G 109 14 /d " "
1119%BB% /G 108 15 /d " "
1120%BB% /G 108 16 /d "_________ "
1121
1122%BB% /G 89 27 /d " "
1123%BB% /G 89 28 /d " Press Enter to Apply "
1124%BB% /G 89 29 /d "____________________________"
1125
1126if [!WAaction!]==[3] (
1127 %BB% /g 0 13 /c 0x9F /d " c. [x] Restore App to current User (Not all apps can be restored)" /c 0x1F /g 0 10
1128echo Default action :
1129echo a. [ ] Remove App from current User
1130echo b. [ ] Remove App from All Users
1131) else (%BB% /g 0 13 /d " c. [ ] Restore App to current User (Not all apps can be restored)" /c 0x1F /g 0 10 /d " Default action : ")
1132
1133%BB% /G 1 31
1134set /p MainInput=Input =
1135 if /i !MainInput!==a set "WAaction=1" & goto Awamenu
1136 if /i !MainInput!==b set "WAaction=2" & goto Awamenu
1137 if /i !MainInput!==c set "WAaction=3"
1138 if /i !MainInput!==v goto Awamenu
1139 if /i !MainInput!==0 goto WinAppsmenu
1140
1141 if /i !MainInput!==u ( If /i "%SelectMode%"=="Mouse" (set "SelectMode=KBD" & goto Awamenu ) else ( set "SelectMode=Mouse" & goto Awamenu ) )
1142
1143goto WAfunction
1144
1145)
1146
1147
1148
1149
1150
1151:readMouseAppsMenu
1152for /f "tokens=1,2,3 delims=:" %%a in ('%BB% /m') do (
1153 %BB% /g 0 0
1154
1155 set "buttonClicked"=""
1156 %BB% /d "mouse: %%b %%a %%c " >nul 2>&1
1157 REM : %%a = X %%b = Y
1158 if %%c EQU 1 if %%b EQU 18 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=1"
1159 if %%c EQU 1 if %%b EQU 19 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=5"
1160 if %%c EQU 1 if %%b EQU 20 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=9"
1161 if %%c EQU 1 if %%b EQU 21 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=13"
1162 if %%c EQU 1 if %%b EQU 22 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=17"
1163 if %%c EQU 1 if %%b EQU 23 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=21"
1164 if %%c EQU 1 if %%b EQU 24 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=25"
1165 if %%c EQU 1 if %%b EQU 25 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=29"
1166
1167 if %%c EQU 1 if %%b EQU 18 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=2"
1168 if %%c EQU 1 if %%b EQU 19 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=6"
1169 if %%c EQU 1 if %%b EQU 20 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=10"
1170 if %%c EQU 1 if %%b EQU 21 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=14"
1171 if %%c EQU 1 if %%b EQU 22 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=18"
1172 if %%c EQU 1 if %%b EQU 23 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=22"
1173 if %%c EQU 1 if %%b EQU 24 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=26"
1174 if %%c EQU 1 if %%b EQU 25 if %%a GEQ 31 if %%a LEQ 58 set "buttonClicked=30"
1175
1176 if %%c EQU 1 if %%b EQU 18 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=3"
1177 if %%c EQU 1 if %%b EQU 19 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=7"
1178 if %%c EQU 1 if %%b EQU 20 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=11"
1179 if %%c EQU 1 if %%b EQU 21 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=15"
1180 if %%c EQU 1 if %%b EQU 22 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=19"
1181 if %%c EQU 1 if %%b EQU 23 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=23"
1182 if %%c EQU 1 if %%b EQU 24 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=27"
1183 if %%c EQU 1 if %%b EQU 25 if %%a GEQ 60 if %%a LEQ 87 set "buttonClicked=31"
1184
1185 if %%c EQU 1 if %%b EQU 18 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=4"
1186 if %%c EQU 1 if %%b EQU 19 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=8"
1187 if %%c EQU 1 if %%b EQU 20 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=12"
1188 if %%c EQU 1 if %%b EQU 21 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=16"
1189 if %%c EQU 1 if %%b EQU 22 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=20"
1190 if %%c EQU 1 if %%b EQU 23 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=24"
1191 if %%c EQU 1 if %%b EQU 24 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=28"
1192
1193 if %%c EQU 1 if %%b EQU 11 if %%a GEQ 0 if %%a LEQ 38 set "buttonClicked=a"
1194 if %%c EQU 1 if %%b EQU 12 if %%a GEQ 0 if %%a LEQ 35 set "buttonClicked=b"
1195 if %%c EQU 1 if %%b EQU 28 if %%a GEQ 43 if %%a LEQ 77 set "buttonClicked=V"
1196 if %%c EQU 1 if %%b EQU 15 if %%a GEQ 77 if %%a LEQ 99 set "buttonClicked=0"
1197
1198
1199 if %%c EQU 1 if %%b GEQ 27 if %%b LEQ 29 if %%a GEQ 2 if %%a LEQ 29 set "buttonClicked=32"
1200 if %%c EQU 1 if %%b GEQ 27 if %%b LEQ 29 if %%a GEQ 89 if %%a LEQ 116 set "buttonClicked=apply"
1201 if %%c EQU 1 if %%b GEQ 15 if %%b LEQ 16 if %%a GEQ 109 if %%a LEQ 116 set "buttonClicked=Back"
1202
1203
1204
1205
1206 if %%c EQU 1 if %%b GEQ 1 if %%b LEQ 5 if %%a GEQ 111 if %%a LEQ 119 ( If /i "%SelectMode%"=="Mouse" (set "SelectMode=KBD" & goto Awamenu ) else ( set "SelectMode=Mouse" & goto Awamenu ) )
1207
1208
1209 )
1210exit /b
1211
1212
1213:ToggleAS
1214If /i "!AS%~1!"==" ON" (
1215 set AS%~1=OFF
1216 Call :ColorizeAppButton %~1 5F
1217 set AS%~1= ON
1218 ) else (
1219 set AS%~1= ON
1220 Call :ColorizeAppButton %~1 5F
1221 set AS%~1=OFF)
1222 %BB% !Line! /c 0x1F
1223exit /b
1224
1225
1226
1227
1228:ViewCurrentApps
1229set Line=
1230
1231Rem === Setting Local Variables
1232set "NoRestart=0"
1233Set Installed=
1234Set NotInstalled=
1235set CPT=0
1236
1237Rem === Going through all apps names listed in AppStrings variable
1238for %%k in (%AppStrings%) do (
1239set Keyword=%%k
1240
1241Rem === Finding the app
1242for /f "tokens=4" %%a in ('reg query "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage" /f "!Keyword!"') do (
1243set /a CPT+=1
1244rem === Storing Installed and NotInstalled apps Numbers in variables
1245 if "%%a"=="0" (Set NotInstalled=!NotInstalled! !CPT!
1246 set AS!CPT!=OFF
1247) else (
1248Set Installed=!Installed! !CPT!
1249 set AS!CPT!= ON
1250 )
1251)
1252)
1253
1254rem === colorize apps names
1255for %%I in (%Installed%) do ( Call :ColorizeAppButton %%I 2F )
1256for %%I in (%NotInstalled%) do ( Call :ColorizeAppButton %%I 4F )
1257
1258%BB% !Line!
1259
1260%BB% /c 0x1F /G 1 31 /d "Input = "
1261
1262%BB% /c 0x1F /g 9 31
1263exit /b
1264
1265
1266
1267
1268
1269:WAfunction
1270cls
1271echo.
1272rem === the "WAaction" variable defines what action will be taken
1273rem === the "input" variable from the menu is used below, it equals the order in the "AppStrings" variable
1274
1275
1276rem === circle through all inputs
1277For %%a in (%MainInput%) do (
1278 set input=%%a
1279
1280 rem === initialize App position
1281 set /a AppNum=0
1282
1283 if /i !input!==a set "WAaction=1"
1284 if /i !input!==b set "WAaction=2"
1285 if /i !input!==c set "WAaction=3"
1286
1287
1288 rem === cicle through all Apps
1289 for %%a in (%AppStrings%) do (
1290
1291 rem === increment App position by 1
1292 set /a AppNum+=1
1293
1294 rem === get App Name without underscore
1295 set "AppName=%%a"
1296 set "AppName=!AppName:~0,-14!"
1297
1298
1299
1300 rem === if chosen action is remove App from user/system
1301 if !WAaction! LEQ 2 (
1302
1303 rem === if chosen option is 32 remove all Apps but store
1304 if [!input!]==[32] (
1305
1306 rem === remove all Apps except the store
1307 if NOT [!AppNum!]==[31] (
1308
1309 rem === remove from user
1310 if [!WAaction!]==[1] (
1311 echo Removing "!AppName!" from user...
1312 powershell.exe -command "Get-AppxPackage Microsoft.!AppName! | Remove-AppxPackage" > NUL 2>&1
1313
1314 rem === remove from system
1315 ) else (
1316 echo Removing "!AppName!" from system...
1317 powershell.exe -command "Get-AppxPackage -AllUsers Microsoft.!AppName! | Remove-AppxPackage" > NUL 2>&1
1318 powershell.exe -command "Get-appxprovisionedpackage –Online | Where-Object {$_.DisplayName –eq 'Microsoft.!AppName!'} | Remove-AppxProvisionedPackage –Online" | find "HideOutputFromUser"
1319 )
1320
1321 )
1322 ) else (
1323
1324 rem === remove chosen App
1325 if [!input!]==[!AppNum!] (
1326
1327 rem === remove from user
1328 if [!WAaction!]==[1] (
1329 echo Removing "!AppName!" from user...
1330 powershell.exe -command "Get-AppxPackage Microsoft.!AppName! | Remove-AppxPackage" > NUL 2>&1
1331
1332 rem === remove from system
1333 ) else (
1334
1335 rem === make sure user wants to remove Store App
1336 set "removeApp=0"
1337 if [!input!]==[29] (
1338 echo If Store is removed from system, it cannot be restored^^!
1339 set /p removeApp=* If you are really SURE, type "store" to continue:
1340 if /i [!removeApp!]==[store] set "removeApp=1"
1341 ) else (
1342 set "removeApp=1"
1343 )
1344 if [!removeApp!]==[1] (
1345 echo Removing "!AppName!" from system...
1346 powershell.exe -command "Get-AppxPackage -AllUsers Microsoft.!AppName! | Remove-AppxPackage" > NUL 2>&1
1347 powershell.exe -command "Get-appxprovisionedpackage –Online | Where-Object {$_.DisplayName –eq 'Microsoft.!AppName!'} | Remove-AppxProvisionedPackage –Online" | find "HideOutputFromUser"
1348 )
1349 )
1350 )
1351 )
1352
1353
1354 rem === if chosen action is restore app
1355 ) else (
1356
1357 rem === if chosen option is restore all Apps but store
1358 if [!input!]==[32] (
1359
1360 rem === restore all Apps except the store
1361 if NOT [!AppNum!]==[31] (
1362
1363 rem === restore app with Get-AppxPackage
1364 echo Restoring "!AppName!" to user...
1365 powershell.exe -command "Get-AppxPackage -AllUsers Microsoft.!AppName! | Foreach {Add-AppxPackage -DisableDevelopmentMode -Register ($_.InstallLocation + '\AppXManifest.xml')}" > NUL 2>&1
1366
1367 )
1368 ) else (
1369
1370 rem === restore chosen App
1371 if [!input!]==[!AppNum!] (
1372
1373 rem === restore app with Get-AppxPackage
1374 echo Restoring "!AppName!" to user...
1375 powershell.exe -command "Get-AppxPackage -AllUsers Microsoft.!AppName! | Foreach {Add-AppxPackage -DisableDevelopmentMode -Register ($_.InstallLocation + '\AppXManifest.xml')}" > NUL 2>&1
1376 )
1377 )
1378 )
1379 )
1380)
1381echo.
1382choice /c yn /m "* Reboot to apply changes (y/n)?"
1383echo.
1384if %errorlevel% equ 2 goto Awamenu
1385if %errorlevel% equ 1 REM shutdown -r -t 30 -c "Windows will restart in 30 seconds"
1386goto Awamenu
1387
1388
1389
1390:ColorizeAppButton
1391set N=%~1
1392set /a X=!N! %% 4
1393If !X!==0 set X=4
1394
1395set /a Mod=!N! %% 4
1396set /a Y=(!N!/4)+1
1397If !Mod!==0 set /a Y-=1
1398
1399
1400set /a X=(28*!X!) -27 + !X!
1401set /a Y=!Y!+17
1402
1403
1404set Line=!Line! /c 0x%~2 /g !X! !Y! /D "!appDisplayName%~1!(!AS%~1!)"
1405exit /b
1406
1407
1408
1409
1410
1411::==============================================================================================================================================================================
1412
1413
1414
1415
1416
1417
1418:WFeedbackApp
1419
1420cd /d "%~dp0"
1421
1422
1423call :Infomsgbox "Downloading Windows Feedback Uninstaller..." 9F
1424call :Servercheck drive.google.com Awamenu
1425call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiWTNGYXdiRU9SNVU" install_wim_tweak.exe
1426
1427
1428cls
1429install_wim_tweak.exe /o /l
1430install_wim_tweak.exe /o /c Microsoft-WindowsFeedback /r
1431install_wim_tweak.exe /h /o /l
1432del Packages.txt
1433del install_wim_tweak.exe
1434
1435call :Infomsgbox "Windows Feedback should be uninstalled." 9F
1436
1437If /i "%SelectMode%"=="Mouse" ( %BB% /m
1438) else ( %BB% /k )
1439
1440
1441exit /b
1442
1443::==============================================================================================================================================================================
1444
1445
1446
1447
1448
1449:ContactSuppo
1450cd /d "%~dp0"
1451
1452
1453call :Infomsgbox "Downloading Contact Support Uninstaller..." 9F
1454call :Servercheck drive.google.com Awamenu
1455call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiWTNGYXdiRU9SNVU" install_wim_tweak.exe
1456
1457CLS
1458install_wim_tweak.exe /o /l
1459install_wim_tweak.exe /o /c Microsoft-Windows-ContactSupport /r
1460install_wim_tweak.exe /h /o /l
1461del Packages.txt
1462del install_wim_tweak.exe
1463
1464call :Infomsgbox "Windows Contact Support should be uninstalled." 9F
1465
1466If /i "%SelectMode%"=="Mouse" ( %BB% /m
1467) else ( %BB% /k )
1468
1469
1470GOTO WinAppsmenu
1471
1472
1473::==============================================================================================================================================================================
1474
1475
1476:InstallDVDapp
1477call :Infomsgbox "Downloading and installing necessary files... (1/5)" 9F
1478
1479
1480for /f "delims= " %%a in ('"wmic path win32_useraccount where name='%UserName%' get sid"') do (
1481 if not "%%a"=="SID" (
1482 set sid=%%a
1483 goto :DelReg
1484 )
1485)
1486
1487:DelReg
1488Reg.exe delete "HKEY_CLASSES_ROOT\Installer\Products\AAD08E5278DF5ECD02C2CC206F760320" /f >nul 2>&1
1489reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Appx\AppxAllUserStore\%sid%\Microsoft.WindowsDVDPlayer_2019.6.13291.0_neutral_~_8wekyb3d8bbwe" /f >nul 2>&1
1490
1491
1492if exist "%SYSTEMDRIVE%\Program Files (x86)\" (
1493 Set Arch=64
1494 GOTO DVDDown
1495) else (
1496 Set Arch=32
1497 GOTO DVDDown
1498)
1499
1500:DVDDown
1501cd /d "%~dp0"
1502Set CurCD=%CD%
1503cls
1504call :Infomsgbox "Downloading and installing necessary files... (2/5)" 9F
1505call :Servercheck www.google.com WinAppsmenu
1506call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHficTNjbFA1TlNTSUk" SetACL.zip
1507call :Unzip SetACL.zip
1508del SetACL.zip
1509CD "%CD%\SetACL (executable version)\%Arch% bit"
1510
1511
1512
1513cls
1514call :Infomsgbox "Downloading and installing necessary files... (3/5)" 9F
1515
1516echo "machine\SYSTEM\CurrentControlSet\Services\ADOVMPPackage\Final",4,"O:SYG:SYD:AI(A;CI;CCDCLCSWRPRC;;;IU)(A;CI;CCDCLCSWRPRC;;;SY)(A;CI;CCDCLCSWRPRC;;;BA)(A;CIID;KR;;;BU)(A;CIID;KA;;;BA)(A;CIID;KA;;;SY)(A;CIIOID;KA;;;CO)(A;CIID;KR;;;AC)" > ADOVMPPackage.txt
1517setACL -on "HKLM\SYSTEM\CurrentControlSet\Services\ADOVMPPackage" -ot reg -actn setowner -ownr "n:S-1-5-32-544;s:y" -rec yes >nul 2>&1
1518setACL -on "HKLM\SYSTEM\CurrentControlSet\Services\ADOVMPPackage" -ot reg -actn ace -ace "n:S-1-5-32-544;s:y;p:full" -rec yes >nul 2>&1
1519SetACL.exe -on "HKLM\SYSTEM\CurrentControlSet\Services\ADOVMPPackage\Final" -ot reg -actn restore -bckp .\ADOVMPPackage.txt >nul 2>&1
1520reg.exe add HKLM\SYSTEM\CurrentControlSet\Services\ADOVMPPackage\Final /v ActivationEnabled /t REG_DWORD /d 2 /f >nul 2>&1
1521
1522CD %CurCD%
1523RMDIR /S /Q "%CD%\SetACL (executable version)" >nul 2>&1
1524RMDIR /S /Q "%CD%\SetACL (executable version)" >nul 2>&1
1525del ADOVMPPackage.txt >nul 2>&1
1526
1527cls
1528call :Infomsgbox "Downloading and installing necessary files... (4/5)" 9F
1529
1530del windows10.0-kb3106246-x64_38be8cc4777aadd5eba00476326eaca6952e06c1.cab >nul 2>&1
1531
1532
1533call :Download "http://download.windowsupdate.com/c/msdownload/update/software/updt/2015/11/windows10.0-kb3106246-x64_38be8cc4777aadd5eba00476326eaca6952e06c1.cab" "windows10.0-kb3106246-x64_38be8cc4777aadd5eba00476326eaca6952e06c1.cab"
1534call :Unzip "windows10.0-kb3106246-x64_38be8cc4777aadd5eba00476326eaca6952e06c1.cab"
1535del windows10.0-kb3106246-x64_38be8cc4777aadd5eba00476326eaca6952e06c1.cab
1536
1537
1538
1539if exist "%SYSTEMDRIVE%\Program Files (x86)\" (
1540 Set Arch=64
1541 GOTO DVDInstall
1542) else (
1543 Set Arch=86
1544 GOTO DVDInstall
1545)
1546
1547
1548:DVDInstall
1549cls
1550call :Infomsgbox "Downloading and installing necessary files... (5/5)" 9F
1551
1552windows10.0-kb3106246-x%Arch%.msi
1553del windows10.0-kb3106246-x64.msi
1554del windows10.0-kb3106246-x86.msi
1555cls
1556call :msgbox ok
1557
1558GOTO WinAppsmenu
1559
1560
1561
1562::==============================================================================================================================================================================
1563
1564
1565:Onedrive
1566
1567call :ClearButtons
1568Call :GetActiveButton 9 7
1569
1570
1571set "Title1= _____________________________________________________________________________________________"
1572set "Title2= ^| __ __ __ _ _ __ __ ___ __ __ _ ___ ____ ___ __ _ _ ___ ^|"
1573set "Title3= ^| ( \/ ) ( ) ( \( ) ( ) / _)( _) / \ \ \( )( _) ___ \ \ ( ,) ( )( )( )( _) ^|"
1574set "Title4= ^| ) ( /__\ ) ( /__\ ( (/\ ) _) ( () ) ) ( ) _)(___) ) ) ) ) \ )( \\// ) _) ^|"
1575set "Title5= ^| (_/\/\_)(_)(_)(_)\_)(_)(_) \__/(___) \__/ (_)\_)(___) (___/ (_)\_)(__) (__) (___) ^|"
1576set "Title6= ^|_____________________________________________________________________________________________^|"
1577
1578
1579
1580set "button1=Disable Onedrive"
1581set "button2=Enable Onedrive"
1582set "button3=Remove One-drive Icon From Windows Explorer"
1583set "button4=Remove Dropbox Icon From Windows Explorer"
1584set "button5=Add Onedrive Icon To Windows Explorer"
1585set "button6=Add Onedrive Icon To Windows Explorer"
1586
1587set "button9=Uninstall One-Drive (No-restore)"
1588
1589
1590set "button14=Go Back" & set Button14Color=%BackButtonColor%
1591call :drawMenu
1592
1593
1594
1595
1596call :readInput
1597if "%buttonClicked%"=="1" ( cls & call :Onedrive1 )
1598if "%buttonClicked%"=="2" ( cls & call :Onedrive2 )
1599if "%buttonClicked%"=="3" ( cls & call :Onedrive3OnedireDisable )
1600if "%buttonClicked%"=="4" ( cls & call :Onedrive3DropboxDisable )
1601if "%buttonClicked%"=="5" ( cls & call :Onedrive3OnedireEnable )
1602if "%buttonClicked%"=="6" ( cls & call :Onedrive3DropboxEnable )
1603if "%buttonClicked%"=="%ActiveButton9%" ( cls & call :Onedrive4 )
1604if "%buttonClicked%"=="14" goto WinAppsmenu
1605goto Onedrive
1606
1607
1608
1609:Onedrive1
1610TASKKILL /F /IM OneDrive.exe /T
1611reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableFileSyncNGSC" /t REG_DWORD /d 1 /f
1612reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableLibrariesDefaultSaveToOneDrive" /t REG_DWORD /d 1 /f
1613reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableMeteredNetworkFileSync" /t REG_DWORD /d 1 /f
1614reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableFileSyncNGSC" /t REG_DWORD /d 1 /f
1615reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableLibrariesDefaultSaveToOneDrive" /t REG_DWORD /d 1 /f
1616reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableMeteredNetworkFileSync" /t REG_DWORD /d 1 /f
1617reg add "HKEY_CLASSES_ROOT\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1618reg add "HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1619reg add "HKEY_CURRENT_USER\Software\Classes\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1620reg add "HKEY_CURRENT_USER\Software\Classes\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1621reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "OneDrive" /f
1622
1623
1624call :msgbox ok
1625goto Onedrive
1626
1627
1628:Onedrive2
1629reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableFileSyncNGSC" /t REG_DWORD /d 0 /f
1630reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableLibrariesDefaultSaveToOneDrive" /t REG_DWORD /d 0 /f
1631reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableMeteredNetworkFileSync" /t REG_DWORD /d 0 /f
1632reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableFileSyncNGSC" /t REG_DWORD /d 0 /f
1633reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableLibrariesDefaultSaveToOneDrive" /t REG_DWORD /d 0 /f
1634reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableMeteredNetworkFileSync" /t REG_DWORD /d 0 /f
1635reg add "HKEY_CLASSES_ROOT\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 1 /f
1636reg add "HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 1 /f
1637reg add "HKEY_CURRENT_USER\Software\Classes\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 1 /f
1638reg add "HKEY_CURRENT_USER\Software\Classes\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 1 /f
1639
1640
1641call :msgbox ok
1642goto Onedrive
1643
1644
1645
1646
1647
1648
1649
1650:Onedrive3OnedireDisable
1651Reg.exe add "HKCR\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "0" /f
1652Reg.exe add "HKCR\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "0" /f
1653call :RestartExplorer
1654call :msgbox ok
1655goto Onedrive
1656
1657:Onedrive3DropboxDisable
1658Reg.exe add "HKCR\CLSID\{E31EA727-12ED-4702-820C-4B6445F28E1A}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "0" /f
1659Reg.exe add "HKCR\Wow6432Node\CLSID\{E31EA727-12ED-4702-820C-4B6445F28E1A}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "0" /f
1660call :RestartExplorer
1661call :msgbox ok
1662goto Onedrive
1663
1664:Onedrive3OnedireEnable
1665Reg.exe add "HKCR\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "1" /f
1666Reg.exe add "HKCR\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "1" /f
1667call :RestartExplorer
1668call :msgbox ok
1669goto Onedrive
1670
1671:Onedrive3DropboxEnable
1672Reg.exe add "HKCR\CLSID\{E31EA727-12ED-4702-820C-4B6445F28E1A}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "1" /f
1673Reg.exe add "HKCR\Wow6432Node\CLSID\{E31EA727-12ED-4702-820C-4B6445F28E1A}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d "1" /f
1674call :RestartExplorer
1675call :msgbox ok
1676goto Onedrive
1677
1678
1679:Onedrive4
1680set x86="%SYSTEMROOT%\System32\OneDriveSetup.exe"
1681set x64="%SYSTEMROOT%\SysWOW64\OneDriveSetup.exe"
1682echo.
1683echo Closing OneDrive process.
1684echo ---------------------------------------------------------------------------------------------------------------------
1685
1686echo.
1687taskkill /f /im OneDrive.exe
1688ping 127.0.0.1 -n 1,5 > NUL 2>&1
1689echo.
1690echo Uninstalling OneDrive using included uninstaller
1691echo ---------------------------------------------------------------------------------------------------------------------
1692echo.
1693if exist %x64% (
1694%x64% /uninstall
1695) else (
1696%x86% /uninstall
1697)
1698echo.
1699echo Removing OneDrive leftovers.
1700echo ---------------------------------------------------------------------------------------------------------------------
1701
1702echo.
1703rd "%USERPROFILE%\OneDrive" /Q /S > NUL 2>&1
1704rd "%systemroot%/Users/%username%/OneDrive" /Q /S > NUL 2>&1
1705rd "C:\OneDriveTemp" /Q /S > NUL 2>&1
1706rd "%LOCALAPPDATA%\Microsoft\OneDrive" /Q /S > NUL 2>&1
1707rd "%PROGRAMDATA%\Microsoft OneDrive" /Q /S > NUL 2>&1
1708rd "%Windir%\SysWOW64" /Q /S > NUL 2>&1
1709TASKKILL /F /IM OneDrive.exe /T
1710reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableFileSyncNGSC" /t REG_DWORD /d 1 /f
1711reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableLibrariesDefaultSaveToOneDrive" /t REG_DWORD /d 1 /f
1712reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\OneDrive" /v "DisableMeteredNetworkFileSync" /t REG_DWORD /d 1 /f
1713reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableFileSyncNGSC" /t REG_DWORD /d 1 /f
1714reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableLibrariesDefaultSaveToOneDrive" /t REG_DWORD /d 1 /f
1715reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Policies\Microsoft\Windows\Onedrive" /v "DisableMeteredNetworkFileSync" /t REG_DWORD /d 1 /f
1716reg add "HKEY_CLASSES_ROOT\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1717reg add "HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1718reg add "HKEY_CURRENT_USER\Software\Classes\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1719reg add "HKEY_CURRENT_USER\Software\Classes\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /v "System.IsPinnedToNameSpaceTree" /t REG_DWORD /d 0 /f
1720reg delete "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "OneDrive" /f
1721takeown /F %Windir%\SysWOW64\OneDriveSetup.exe
1722icacls %Windir%\SysWOW64\OneDriveSetup.exe /grant Administrators:F
1723del %Windir%\SysWOW64\OneDriveSetup.exe
1724takeown /F %Windir%\SysWOW64\OneDriveSettingSyncProvider.dll
1725icacls %Windir%\SysWOW64\OneDriveSettingSyncProvider.dll /grant Administrators:F
1726del %Windir%\SysWOW64\OneDriveSettingSyncProvider.dll
1727Del %AppData%\Microsoft\Windows\Start Menu\Programs\OneDrive.lnk
1728echo.
1729echo Removing OneDrive from the Explorer Side Panel.
1730echo ---------------------------------------------------------------------------------------------------------------------
1731
1732REG DELETE "HKEY_CLASSES_ROOT\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /f
1733REG DELETE "HKEY_CLASSES_ROOT\Wow6432Node\CLSID\{018D5C66-4533-4307-9B53-224DE2ED1FE6}" /f
1734echo.
1735echo Removing Onedrive Packages
1736echo ---------------------------------------------------------------------------------------------------------------------
1737cd /d "%~dp0"
1738call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiWTNGYXdiRU9SNVU" install_wim_tweak.exe
1739install_wim_tweak.exe /o /l
1740install_wim_tweak.exe /o /c Microsoft-Windows-OneDrive-Setup-Package /r
1741install_wim_tweak.exe /h /o /l
1742del Packages.txt
1743del install_wim_tweak.exe
1744
1745
1746call :RestartExplorer
1747echo. & echo. & echo. & echo.
1748call :msgbox ok
1749goto Onedrive
1750
1751
1752
1753
1754::==============================================================================================================================================================================
1755
1756:UninstallEdge
1757cls
1758set Button1Color=4F
1759set Button2Color=2F
1760
1761%BB% ^
1762 /c 0x1F /g 16 1 /d "_______________________________________________________________________________________"^
1763 /g 15 2 /d "| __ __ __ __ ___ __ ___ __ ___ ____ ___ ___ __ ___ |"^
1764 /g 15 3 /d "| ( \/ )( ) / _)( ,) / \ / __) / \ ( _)(_ _) ( _)( \ / _)( _) |"^
1765 /g 15 4 /d "| ) ( )( ( (_ ) \ ( () )\__ \( () ) ) _) )( ) _) ) ) )( (/\ ) _) |"^
1766 /g 15 5 /d "| (_/\/\_)(__) \__)(_)\_) \__/ (___/ \__/ (_) (__) (___)(___/ \__/(___) |"^
1767 /g 15 6 /d "|_______________________________________________________________________________________|"^
1768 /g 15 7 /d " "^
1769 /g 16 8 /d "________________________________________________________________________________________"^
1770 /c 0x%Button1Color% /g 15 9 /d "| |"^
1771 /g 15 10 /d "| 1.Uninstall Microsoft Edge |"^
1772 /g 15 11 /d "| This will remove MS Edge completely using : install_wim_tweak but the script |"^
1773 /g 15 12 /d "| will first backup all packages to restore them when needed. |"^
1774 /g 15 13 /d "| If you uninstall MS Edge twice then the packages will be removed. |"^
1775 /g 15 14 /d "| Microsoft .NET Framework 3.5 should be installed. |"^
1776 /g 15 15 /d "| You Should be connected to Internet to download necessary files. |"^
1777 /g 15 16 /d "|________________________________________________________________________________________|"^
1778 /c 0x1F /g 16 17 /d "________________________________________________________________________________________" ^
1779 /c 0x%Button2Color% /g 15 18 /d "| |"^
1780 /g 15 19 /d "| 2.Restore Microsoft Edge |"^
1781 /g 15 20 /d "| This will restore MS Edge using backed up packages.If the restore operation |"^
1782 /g 15 21 /d "| didn't work try it again and Contact Yasser Da Sila in MDL. |"^
1783 /g 15 22 /d "| If you uninstalled EDGE twice you won't be able to restore it. |"^
1784 /g 15 23 /d "|________________________________________________________________________________________|"^
1785 /c 0x1F /g 16 24 /d "________________________________________________________________________________________"^
1786 /c 0x9F /g 15 25 /d "| |"^
1787 /c 0x9F /g 15 26 /d "| 0. Go Back |"^
1788 /c 0x9F /g 15 27 /d "|________________________________________________________________________________________|"^
1789 /c 0x1F
1790
1791If /i "%SelectMode%"=="Mouse" (
1792for /f "tokens=1,2,3 delims=:" %%a in ('%BB% /m') do (
1793 %BB% /g 0 0
1794
1795 set "buttonClicked"=""
1796 %BB% /d "mouse: %%b %%a %%c " >nul 2>&1
1797 if %%c EQU 1 if %%b GEQ 9 if %%b LEQ 16 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=1"
1798 if %%c EQU 1 if %%b GEQ 19 if %%b LEQ 24 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=2"
1799 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 28 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=0"
1800)
1801) else (
1802 %BB% /g 16 29
1803 Set /p buttonClicked=Use Your Keyboard Numbers to select options :
1804)
1805
1806
1807If %buttonClicked%==0 exit /b
1808If %buttonClicked%==1 call :UninstallEdge_Confirm
1809If %buttonClicked%==2 call :UninstallEdge_restore
1810goto UninstallEdge
1811
1812
1813
1814:UninstallEdge_Confirm
1815call :msgbox Confirm
1816if /i "!buttonClicked!"=="No" ( goto UninstallEdge
1817) else (
1818cls
1819call :Infomsgbox "Downloading necessary files... " 9F 0
1820Set CurCD=%CD%
1821Del /Q "%HOMEDRIVE%\Export-Edge-Packages\" >nul 2>&1
1822MKDIR "%HOMEDRIVE%\Export-Edge-Packages\" >nul 2>&1
1823attrib +h %HOMEDRIVE%\Export-Edge-Packages >nul 2>&1
1824cd %HOMEDRIVE%\Export-Edge-Packages
1825
1826call :Servercheck drive.google.com UninstallEdge
1827call :download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiUnZHSm9ZVVBMQTQ" Export-Edge-Packages.zip
1828call :Unzip Export-Edge-Packages.zip
1829del Export-Edge-Packages.zip
1830
1831cmd /c %HOMEDRIVE%\Export-Edge-Packages\Start.cmd
1832cd %CurCD%
1833goto UninstallEdge
1834)
1835
1836
1837
1838:UninstallEdge_restore
1839cls
1840sc stop wuauserv >nul 2>&1
1841FOR /F "delims=" %%A IN ('dir %HOMEDRIVE%\Export-Edge-Packages\Output\*.cab /s /b') DO (dism.exe /online /Add-Package /PackagePath:%%A /NoRestart)
1842FOR /F "delims=" %%A IN ('dir %HOMEDRIVE%\Export-Edge-Packages\Output\*.cab /s /b') DO (dism.exe /online /Add-Package /PackagePath:%%A /NoRestart)
1843call :Infomsgbox "Microsoft Edge should be installed, Please Restart your computer.","9F"
1844goto UninstallEdge
1845
1846
1847
1848
1849
1850
1851::==============================================================================================================================================================================
1852
1853
1854
1855:UninstallCortana
1856cls
1857set Button1Color=4F
1858set Button2Color=2F
1859
1860%BB% ^
1861 /c 0x1F /g 16 1 /d "_______________________________________________________________________________________"^
1862 /g 15 2 /d "| __ __ ___ ____ __ _ _ __ |"^
1863 /g 15 3 /d "| / _) / \ ( ,) (_ _) ( ) ( \( ) ( ) |"^
1864 /g 15 4 /d "| ( (_ ( () ) ) \ )( /__\ ) ( /__\ |"^
1865 /g 15 5 /d "| \__) \__/ (_)\_) (__) (_)(_)(_)\_)(_)(_) |"^
1866 /g 15 6 /d "|_______________________________________________________________________________________|"^
1867 /g 15 7 /d " "^
1868 /g 16 8 /d "________________________________________________________________________________________"^
1869 /c 0x%Button1Color% /g 15 9 /d "| |"^
1870 /g 15 10 /d "| 1.Uninstall Cortana |"^
1871 /g 15 11 /d "| This will remove Cortana completely using : install_wim_tweak but the script |"^
1872 /g 15 12 /d "| will first backup all packages to restore them when needed. |"^
1873 /g 15 13 /d "| If you uninstall Cortana twice then the packages will be removed. |"^
1874 /g 15 14 /d "| Microsoft .NET Framework 3.5 should be installed. |"^
1875 /g 15 15 /d "| You Should be connected to Internet to download necessary files. |"^
1876 /g 15 16 /d "|________________________________________________________________________________________|"^
1877 /c 0x1F /g 16 17 /d "________________________________________________________________________________________" ^
1878 /c 0x%Button2Color% /g 15 18 /d "| |"^
1879 /g 15 19 /d "| 2.Restore Cortana |"^
1880 /g 15 20 /d "| This will restore Cortana using backed up packages.If the restore operation |"^
1881 /g 15 21 /d "| didn't work try it again and Contact Yasser Da Sila in MDL. |"^
1882 /g 15 22 /d "| If you uninstalled Cortana twice you won't be able to restore it. |"^
1883 /g 15 23 /d "|________________________________________________________________________________________|"^
1884 /c 0x1F /g 16 24 /d "________________________________________________________________________________________"^
1885 /c 0x9F /g 15 25 /d "| |"^
1886 /c 0x9F /g 15 26 /d "| 0. Go Back |"^
1887 /c 0x9F /g 15 27 /d "|________________________________________________________________________________________|"^
1888 /c 0x1F
1889
1890
1891If /i "%SelectMode%"=="Mouse" (
1892for /f "tokens=1,2,3 delims=:" %%a in ('%BB% /m') do (
1893 %BB% /g 0 0
1894
1895 set "buttonClicked"=""
1896 %BB% /d "mouse: %%b %%a %%c " >nul 2>&1
1897 if %%c EQU 1 if %%b GEQ 9 if %%b LEQ 16 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=1"
1898 if %%c EQU 1 if %%b GEQ 19 if %%b LEQ 24 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=2"
1899 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 28 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=0"
1900)
1901) else (
1902 %BB% /g 16 29
1903 Set /p buttonClicked=Use Your Keyboard Numbers to select options :
1904)
1905
1906
1907
1908
1909If %buttonClicked%==0 exit /b
1910If %buttonClicked%==1 call :UninstallCortana_Confirm
1911If %buttonClicked%==2 call :UninstallCortana_restore
1912goto UninstallCortana
1913
1914
1915
1916:UninstallCortana_Confirm
1917call :msgbox Confirm
1918if /i "!buttonClicked!"=="No" ( goto UninstallCortana
1919) else (
1920cls
1921call :Infomsgbox "Downloading necessary files... " 9F 0
1922Set CurCD=%CD%
1923Del /Q "%HOMEDRIVE%\Export-Cortana-Packages\" >nul 2>&1
1924MKDIR "%HOMEDRIVE%\Export-Cortana-Packages\" >nul 2>&1
1925attrib +h %HOMEDRIVE%\Export-Cortana-Packages >nul 2>&1
1926cd %HOMEDRIVE%\Export-Cortana-Packages
1927
1928call :Servercheck drive.google.com UninstallCortana
1929call :download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiNTdPeUFSdUx4WkU" Export-Cortana-Packages.zip
1930call :Unzip Export-Cortana-Packages.zip
1931del Export-Cortana-Packages.zip
1932
1933cmd /c %HOMEDRIVE%\Export-Cortana-Packages\Start.cmd
1934cd %CurCD%
1935goto UninstallCortana)
1936
1937
1938
1939:UninstallCortana_restore
1940cls
1941sc stop wuauserv >nul 2>&1
1942FOR /F "delims=" %%A IN ('dir %HOMEDRIVE%\Export-Cortana-Packages\Output\*.cab /s /b') DO (dism.exe /online /Add-Package /PackagePath:%%A /NoRestart)
1943FOR /F "delims=" %%A IN ('dir %HOMEDRIVE%\Export-Cortana-Packages\Output\*.cab /s /b') DO (dism.exe /online /Add-Package /PackagePath:%%A /NoRestart)
1944call :Infomsgbox "Cortana should be installed, Please Restart your computer.","9F"
1945goto UninstallCortana
1946
1947
1948
1949
1950
1951
1952::==============================================================================================================================================================================
1953
1954:UninstallIE11
1955cls
1956set Button1Color=4F
1957set Button2Color=2F
1958
1959%BB% ^
1960 /c 0x1F /g 16 1 /d "_______________________________________________________________________________________"^
1961 /g 15 2 /d "| __ __ _ ____ ____ ____ __ _ ____ ____ ____ _ _ ____ __ __ ____ ____ ____ |"^
1962 /g 15 3 /d "| ( )( ( (_ _( __( _ ( ( ( __(_ _) ( __( \/ ( _ ( ) / ( _ ( __( _ \ |"^
1963 /g 15 4 /d "| )( / / )( ) _) ) / /) _) )( ) _) ) ( ) __/ (_/( O ) /) _) ) / |"^
1964 /g 15 5 /d "| (__)\_)__)(__)(____(__\_\_)__(____)(__) (____(_/\_(__) \____/\__(__\_(____(__\_) |"^
1965 /g 15 6 /d "|_______________________________________________________________________________________|"^
1966 /g 15 7 /d " "^
1967 /g 16 8 /d "________________________________________________________________________________________"^
1968 /c 0x%Button1Color% /g 15 9 /d "| |"^
1969 /g 15 10 /d "| 1.Uninstall Internet Explorer 11 |"^
1970 /g 15 11 /d "| This will remove IE 11 completely using : install_wim_tweak but the script |"^
1971 /g 15 12 /d "| will first backup all packages to restore them when needed. |"^
1972 /g 15 13 /d "| If you uninstall IE 11 twice then the packages will be removed. |"^
1973 /g 15 14 /d "| Microsoft .NET Framework 3.5 should be installed. |"^
1974 /g 15 15 /d "| You Should be connected to Internet to download necessary files. |"^
1975 /g 15 16 /d "|________________________________________________________________________________________|"^
1976 /c 0x1F /g 16 17 /d "________________________________________________________________________________________" ^
1977 /c 0x%Button2Color% /g 15 18 /d "| |"^
1978 /g 15 19 /d "| 2.Restore Internet Explorer 11 |"^
1979 /g 15 20 /d "| This will restore IE 11 using backed up packages.If the restore operation didn't |"^
1980 /g 15 21 /d "| work try it again and Contact Yasser Da Sila in MDL. |"^
1981 /g 15 22 /d "| If you uninstalled IE11 twice you won't be able to restore it. |"^
1982 /g 15 23 /d "|________________________________________________________________________________________|"^
1983 /c 0x1F /g 16 24 /d "________________________________________________________________________________________"^
1984 /c 0x9F /g 15 25 /d "| |"^
1985 /c 0x9F /g 15 26 /d "| 0. Go Back |"^
1986 /c 0x9F /g 15 27 /d "|________________________________________________________________________________________|"^
1987 /c 0x1F
1988
1989
1990
1991If /i "%SelectMode%"=="Mouse" (
1992for /f "tokens=1,2,3 delims=:" %%a in ('%BB% /m') do (
1993 %BB% /g 0 0
1994
1995 set "buttonClicked"=""
1996 %BB% /d "mouse: %%b %%a %%c " >nul 2>&1
1997 if %%c EQU 1 if %%b GEQ 9 if %%b LEQ 16 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=1"
1998 if %%c EQU 1 if %%b GEQ 19 if %%b LEQ 24 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=2"
1999 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 28 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=0"
2000)
2001) else (
2002 %BB% /g 16 29
2003 Set /p buttonClicked=Use Your Keyboard Numbers to select options :
2004)
2005
2006
2007
2008If %buttonClicked%==0 exit /b
2009If %buttonClicked%==1 call :UninstallIE11_Confirm
2010If %buttonClicked%==2 call :UninstallIE11_restore
2011goto UninstallIE11
2012
2013
2014
2015:UninstallIE11_Confirm
2016call :msgbox Confirm
2017if /i "!buttonClicked!"=="No" ( goto UninstallIE11
2018) else (
2019cls
2020call :Infomsgbox "Downloading necessary files... " 9F 0
2021Set CurCD=%CD%
2022Del /Q "%HOMEDRIVE%\Export-IE-Packages\" >nul 2>&1
2023MKDIR "%HOMEDRIVE%\Export-IE-Packages\" >nul 2>&1
2024attrib +h %HOMEDRIVE%\Export-IE-Packages >nul 2>&1
2025cd %HOMEDRIVE%\Export-IE-Packages
2026
2027call :Servercheck drive.google.com UninstallIE11
2028call :download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiVlJ4WUlRVnFhTTg" Export-IE-Packages.zip
2029call :Unzip Export-IE-Packages.zip
2030del Export-IE-Packages.zip
2031
2032cmd /c %HOMEDRIVE%\Export-IE-Packages\Start.cmd
2033cd %CurCD%
2034goto UninstallIE11
2035)
2036
2037
2038
2039:UninstallIE11_restore
2040cls
2041sc stop wuauserv >nul 2>&1
2042FOR /F "delims=" %%A IN ('dir %HOMEDRIVE%\Export-IE-Packages\Output\*.cab /s /b') DO (dism.exe /online /Add-Package /PackagePath:%%A /NoRestart)
2043FOR /F "delims=" %%A IN ('dir %HOMEDRIVE%\Export-IE-Packages\Output\*.cab /s /b') DO (dism.exe /online /Add-Package /PackagePath:%%A /NoRestart)
2044call :Infomsgbox "IE11 should be installed, Please Restart your computer.","9F"
2045goto UninstallIE11
2046
2047
2048
2049
2050::==============================================================================================================================================================================
2051
2052
2053:CALC32
2054cd /d "%~dp0"
2055Set CurCD=%CD%
2056
2057call :Infomsgbox "Downloading and installing necessary files..." 9F 0
2058call :Servercheck drive.google.com WinAppsmenu
2059call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiaGNnbm94aDhQbjg" Old-Calculator-for-Windows10.exe
2060"Old-Calculator-for-Windows10.exe" /S
2061del "Old-Calculator-for-Windows10.exe"
2062
2063cd %CurCD%
2064
2065cls
2066
2067call :msgbox ok
2068exit /b
2069
2070
2071::==============================================================================================================================================================================
2072
2073
2074:Paint32
2075cd /d "%~dp0"
2076Set CurCD=%CD%
2077call :Infomsgbox "Downloading and installing necessary files..." 9F 0
2078call :Servercheck drive.google.com WinAppsmenu
2079call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiVC1SWWRIajRna0E" Classic-Paint-for-Windows-10.exe
2080"Classic-Paint-for-Windows-10.exe" /S
2081del "Classic-Paint-for-Windows-10.exe"
2082cd %CurCD%
2083cls
2084
2085call :msgbox ok
2086exit /b
2087
2088
2089
2090
2091::==============================================================================================================================================================================
2092
2093:Win7Taskmanager
2094cd /d "%~dp0"
2095Set CurCD=%CD%
2096
2097
2098call :Infomsgbox "Downloading and installing necessary files..." 9F 0
2099call :Servercheck drive.google.com WinAppsmenu.................................
2100call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiT1pJWkc4c0VrM0E" Old-Task-Manager-for-Windows10.exe
2101"Old-Task-Manager-for-Windows10.exe" /S
2102del "Old-Task-Manager-for-Windows10.exe"
2103cd %CurCD%
2104
2105cls
2106call :msgbox ok
2107exit /b
2108
2109
2110::==============================================================================================================================================================================
2111
2112
2113:OLDMSConfig
2114cd /d "%~dp0"
2115Set CurCD=%CD%
2116
2117call :Infomsgbox "Downloading and installing necessary files..." 9F 0
2118call :Servercheck drive.google.com WinAppsmenu
2119call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiZTlyQ09ZRGFkTDg" MSCONFIGforWindows10and8.exe
2120"MSCONFIGforWindows10and8.exe" /S
2121del "MSCONFIGforWindows10and8.exe"
2122cd %CurCD%
2123
2124cls
2125
2126call :msgbox ok
2127exit /b
2128
2129
2130
2131:================================================================================================
2132
2133:verify-WindowsDefender
2134 reg query "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender" /v DisableAntiSpyware | find "0x1" >nul
2135 if "%errorlevel%"=="0" ( (set "WindowsDefender=Disabled") & (set Button%~1Color="4F") ) else ( (set "WindowsDefender=Enabled") & (set Button%~1Color="2F") )
2136
2137exit/b
2138
2139
2140:Enable-WindowsDefender
2141reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Notifications\Settings" /v "NOC_GLOBAL_SETTING_TOASTS_ENABLED" /t REG_DWORD /d 1 /f > NUL 2>&1
2142
2143Reg.exe delete "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender" /v "DisableAntiSpyware" /f > NUL 2>&1
2144
2145Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartupApproved\Run" /v "WindowsDefender" /t REG_BINARY /d "060000000000000000000000" /f > NUL 2>&1
2146Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "WindowsDefender" /t REG_EXPAND_SZ /d "\"%%ProgramFiles%%\Windows Defender\MSASCuiL.exe\"" /f > NUL 2>&1
2147
2148Start /d "%ProgramFiles%\Windows Defender" MSASCui.exe
2149call :msgbox ok 300
2150exit /b
2151
2152
2153:Disable-WindowsDefender
2154taskkill /IM MSASCuiL.exe /F > NUL 2>&1
2155reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Notifications\Settings" /v "NOC_GLOBAL_SETTING_TOASTS_ENABLED" /t REG_DWORD /d 0 /f > NUL 2>&1
2156
2157Reg.exe add "HKLM\SOFTWARE\Policies\Microsoft\Windows Defender" /v "DisableAntiSpyware" /t REG_DWORD /d "1" /f > NUL 2>&1
2158
2159Reg.exe delete "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "Windows Defender" /f > NUL 2>&1
2160Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v "WindowsDefender" /f > NUL 2>&1
2161Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartupApproved\Run" /v "Windows Defender" /f > NUL 2>&1
2162
2163call :msgbox ok 300
2164exit /b
2165
2166
2167
2168
2169::==============================================================================================================================================================================
2170
2171
2172
2173
2174:verify-PhotoViewer
2175 reg query "HKCR\Applications\photoviewer.dll\shell\open" /v MuiVerb | find "@photoviewer.dll,-3043" >nul
2176 if "%errorlevel%"=="0" ( (set "PhotoViewer=Enabled") & (set Button%~1Color="2F") ) else ( (set "PhotoViewer=Disabled") & (set Button%~1Color="4F") )
2177
2178exit/b
2179
2180
2181
2182:Enable-PhotoViewer
2183reg add "HKCR\Applications\photoviewer.dll\shell\open" /v "MuiVerb" /t REG_SZ /d "@photoviewer.dll,-3043" /f > NUL 2>&1
2184reg add "HKCR\Applications\photoviewer.dll\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2185reg add "HKCR\Applications\photoviewer.dll\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2186reg add "HKCR\PhotoViewer.FileAssoc.Bitmap" /v "ImageOptionFlags" /t REG_DWORD /d "1" /f > NUL 2>&1
2187reg add "HKCR\PhotoViewer.FileAssoc.Bitmap" /v "FriendlyTypeName" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll,-3056" /f > NUL 2>&1
2188reg add "HKCR\PhotoViewer.FileAssoc.Bitmap\DefaultIcon" /ve /t REG_SZ /d "%%SystemRoot%%\System32\imageres.dll,-70" /f > NUL 2>&1
2189reg add "HKCR\PhotoViewer.FileAssoc.Bitmap\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2190reg add "HKCR\PhotoViewer.FileAssoc.Bitmap\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2191reg add "HKCR\PhotoViewer.FileAssoc.JFIF" /v "EditFlags" /t REG_DWORD /d "65536" /f > NUL 2>&1
2192reg add "HKCR\PhotoViewer.FileAssoc.JFIF" /v "ImageOptionFlags" /t REG_DWORD /d "1" /f > NUL 2>&1
2193reg add "HKCR\PhotoViewer.FileAssoc.JFIF" /v "FriendlyTypeName" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll,-3055" /f > NUL 2>&1
2194reg add "HKCR\PhotoViewer.FileAssoc.JFIF\DefaultIcon" /ve /t REG_SZ /d "%%SystemRoot%%\System32\imageres.dll,-72" /f > NUL 2>&1
2195reg add "HKCR\PhotoViewer.FileAssoc.JFIF\shell\open" /v "MuiVerb" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\photoviewer.dll,-3043" /f > NUL 2>&1
2196reg add "HKCR\PhotoViewer.FileAssoc.JFIF\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2197reg add "HKCR\PhotoViewer.FileAssoc.JFIF\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2198reg add "HKCR\PhotoViewer.FileAssoc.Jpeg" /v "EditFlags" /t REG_DWORD /d "65536" /f > NUL 2>&1
2199reg add "HKCR\PhotoViewer.FileAssoc.Jpeg" /v "ImageOptionFlags" /t REG_DWORD /d "1" /f > NUL 2>&1
2200reg add "HKCR\PhotoViewer.FileAssoc.Jpeg" /v "FriendlyTypeName" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll,-3055" /f > NUL 2>&1
2201reg add "HKCR\PhotoViewer.FileAssoc.Jpeg\DefaultIcon" /ve /t REG_SZ /d "%%SystemRoot%%\System32\imageres.dll,-72" /f > NUL 2>&1
2202reg add "HKCR\PhotoViewer.FileAssoc.Jpeg\shell\open" /v "MuiVerb" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\photoviewer.dll,-3043" /f > NUL 2>&1
2203reg add "HKCR\PhotoViewer.FileAssoc.Jpeg\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2204reg add "HKCR\PhotoViewer.FileAssoc.Jpeg\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2205reg add "HKCR\PhotoViewer.FileAssoc.Png" /v "ImageOptionFlags" /t REG_DWORD /d "1" /f > NUL 2>&1
2206reg add "HKCR\PhotoViewer.FileAssoc.Png" /v "FriendlyTypeName" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll,-3057" /f > NUL 2>&1
2207reg add "HKCR\PhotoViewer.FileAssoc.Png\DefaultIcon" /ve /t REG_SZ /d "%%SystemRoot%%\System32\imageres.dll,-71" /f > NUL 2>&1
2208reg add "HKCR\PhotoViewer.FileAssoc.Png\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2209reg add "HKCR\PhotoViewer.FileAssoc.Png\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2210reg add "HKCR\PhotoViewer.FileAssoc.Gif" /v "ImageOptionFlags" /t REG_DWORD /d "1" /f > NUL 2>&1
2211reg add "HKCR\PhotoViewer.FileAssoc.Gif" /v "FriendlyTypeName" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll,-3057" /f > NUL 2>&1
2212reg add "HKCR\PhotoViewer.FileAssoc.Gif\DefaultIcon" /ve /t REG_SZ /d "%%SystemRoot%%\System32\imageres.dll,-83" /f > NUL 2>&1
2213reg add "HKCR\PhotoViewer.FileAssoc.Gif\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2214reg add "HKCR\PhotoViewer.FileAssoc.Gif\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2215reg add "HKCR\PhotoViewer.FileAssoc.Wdp" /v "EditFlags" /t REG_DWORD /d "65536" /f > NUL 2>&1
2216reg add "HKCR\PhotoViewer.FileAssoc.Wdp" /v "ImageOptionFlags" /t REG_DWORD /d "1" /f > NUL 2>&1
2217reg add "HKCR\PhotoViewer.FileAssoc.Wdp\DefaultIcon" /ve /t REG_SZ /d "%%SystemRoot%%\System32\wmphoto.dll,-400" /f > NUL 2>&1
2218reg add "HKCR\PhotoViewer.FileAssoc.Wdp\shell\open" /v "MuiVerb" /t REG_EXPAND_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\photoviewer.dll,-3043" /f > NUL 2>&1
2219reg add "HKCR\PhotoViewer.FileAssoc.Wdp\shell\open\command" /ve /t REG_EXPAND_SZ /d "%%SystemRoot%%\System32\rundll32.exe \"%%ProgramFiles%%\Windows Photo Viewer\PhotoViewer.dll\", ImageView_Fullscreen %%1" /f > NUL 2>&1
2220reg add "HKCR\PhotoViewer.FileAssoc.Wdp\shell\open\DropTarget" /v "Clsid" /t REG_SZ /d "{FFE2A43C-56B9-4bf5-9A79-CC6D4285608A}" /f > NUL 2>&1
2221reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities" /v "ApplicationDescription" /t REG_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\photoviewer.dll,-3069" /f > NUL 2>&1
2222reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities" /v "ApplicationName" /t REG_SZ /d "@%%ProgramFiles%%\Windows Photo Viewer\photoviewer.dll,-3009" /f > NUL 2>&1
2223reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jpg" /t REG_SZ /d "PhotoViewer.FileAssoc.Jpeg" /f > NUL 2>&1
2224reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".wdp" /t REG_SZ /d "PhotoViewer.FileAssoc.Wdp" /f > NUL 2>&1
2225reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jfif" /t REG_SZ /d "PhotoViewer.FileAssoc.JFIF" /f > NUL 2>&1
2226reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".dib" /t REG_SZ /d "PhotoViewer.FileAssoc.Bitmap" /f > NUL 2>&1
2227reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".png" /t REG_SZ /d "PhotoViewer.FileAssoc.Png" /f > NUL 2>&1
2228reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jxr" /t REG_SZ /d "PhotoViewer.FileAssoc.Wdp" /f > NUL 2>&1
2229reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".bmp" /t REG_SZ /d "PhotoViewer.FileAssoc.Bitmap" /f > NUL 2>&1
2230reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jpe" /t REG_SZ /d "PhotoViewer.FileAssoc.Jpeg" /f > NUL 2>&1
2231reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".jpeg" /t REG_SZ /d "PhotoViewer.FileAssoc.Jpeg" /f > NUL 2>&1
2232reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".gif" /t REG_SZ /d "PhotoViewer.FileAssoc.Gif" /f > NUL 2>&1
2233reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".tif" /t REG_SZ /d "PhotoViewer.FileAssoc.Tiff" /f > NUL 2>&1
2234reg add "HKLM\SOFTWARE\Microsoft\Windows Photo Viewer\Capabilities\FileAssociations" /v ".tiff" /t REG_SZ /d "PhotoViewer.FileAssoc.Tiff" /f > NUL 2>&1
2235Call :msgbox ok 200
2236
2237exit /b
2238
2239
2240:: ===============================================================================================================================================================================
2241
2242:verify-Darkmode
2243
2244 reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v AppsUseLightTheme | find "0x0" >nul
2245 if "%errorlevel%"=="0" ( (set "Darkmode=Enabled") & (set Button%~1Color="2F") ) else ( (set "Darkmode=Disabled") & (set Button%~1Color="4F") )
2246
2247exit/b
2248
2249
2250:Enable-Darkmode
2251Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "AppsUseLightTheme" /t REG_DWORD /d "0" /f >nul
2252Reg.exe add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "AppsUseLightTheme" /t REG_DWORD /d "0" /f >nul
2253Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "Theme" /t REG_DWORD /d "1" /f >nul
2254exit /b
2255
2256
2257
2258:Disable-Darkmode
2259Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "AppsUseLightTheme" /t REG_DWORD /d "1" /f >nul
2260Reg.exe add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "AppsUseLightTheme" /t REG_DWORD /d "1" /f >nul
2261Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "Theme" /t REG_DWORD /d "0" /f >nul
2262exit /b
2263
2264
2265
2266
2267::==============================================================================================================================================================================
2268
2269
2270:verify-VolumeControlUI
2271 reg query "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\MTCUVC" /v EnableMtcUvc | find "0x0" >nul
2272 if "%errorlevel%"=="0" ( (set "VolumeControlUI=OLD") & (set Button%~1Color="4F") ) else ( (set "VolumeControlUI=NEW") & (set Button%~1Color="2F") )
2273exit /b
2274
2275
2276
2277:OLD-VolumeControlUI
2278Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\MTCUVC" /v "EnableMtcUvc" /t REG_DWORD /d "0" /f
2279exit /b
2280
2281
2282:NEW-VolumeControlUI
2283Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\MTCUVC" /v "EnableMtcUvc" /t REG_DWORD /d "1" /f
2284exit /b
2285
2286
2287::==============================================================================================================================================================================
2288
2289
2290:verify-BatteryStatusUI
2291 reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ImmersiveShell" /v UseWin32BatteryFlyout | find "0x1" >nul
2292 if "%errorlevel%"=="0" ( (set "BatteryStatusUI=OLD") & (set Button%~1Color="4F") ) else ( (set "BatteryStatusUI=NEW") & (set Button%~1Color="2F") )
2293exit /b
2294
2295
2296
2297:OLD-BatteryStatusUI
2298Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ImmersiveShell" /v "UseWin32BatteryFlyout" /t REG_DWORD /d "1" /f
2299exit /b
2300
2301
2302:NEW-BatteryStatusUI
2303Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ImmersiveShell" /v "UseWin32BatteryFlyout" /t REG_DWORD /d "0" /f
2304exit /b
2305
2306
2307
2308::==============================================================================================================================================================================
2309
2310
2311
2312:verify-AltTabUI
2313 reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer" /v AltTabSettings | find "0x1" >nul
2314 if "%errorlevel%"=="0" ( (set "AltTabUI=OLD") & (set Button%~1Color="4F") ) else ( (set "AltTabUI=NEW") & (set Button%~1Color="2F") )
2315exit /b
2316
2317
2318
2319:OLD-AltTabUI
2320Reg.exe add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer" /v "AltTabSettings" /t REG_DWORD /d "1" /f
2321call :RestartExplorer
2322exit /b
2323
2324
2325:NEW-AltTabUI
2326Reg.exe delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer" /v "AltTabSettings" /f
2327call :RestartExplorer
2328exit /b
2329
2330
2331::==============================================================================================================================================================================
2332
2333
2334
2335:verify-Thumbnails
2336 reg query "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v IconsOnly | find "0x1" >nul
2337 if "%errorlevel%"=="0" ( (set "Thumbnails=Disabled") & (set Button%~1Color="4F") ) else ( (set "Thumbnails=Enabled") & (set Button%~1Color="2F") )
2338exit /b
2339
2340
2341
2342:Enable-Thumbnails
2343REG ADD "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /V IconsOnly /T REG_DWORD /D 0 /F
2344call :RestartExplorer
2345exit /b
2346
2347
2348:Disable-Thumbnails
2349REG ADD "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /V IconsOnly /T REG_DWORD /D 1 /F
2350call :RestartExplorer
2351exit /b
2352
2353
2354::==============================================================================================================================================================================
2355
2356
2357
2358:verify-TaskViewBTN
2359 reg query "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v ShowTaskViewButton | find "0x0" >nul
2360 if "%errorlevel%"=="0" ( (set "TaskViewBTN=Disabled") & (set Button%~1Color="2F") ) else ( (set "TaskViewBTN=Enabled") & (set Button%~1Color="2F") )
2361exit /b
2362
2363
2364
2365:Enable-TaskViewBTN
2366Reg.exe add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "ShowTaskViewButton" /t REG_DWORD /d "1" /f
2367call :RestartExplorer
2368exit /b
2369
2370
2371:Disable-TaskViewBTN
2372Reg.exe add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "ShowTaskViewButton" /t REG_DWORD /d "0" /f
2373call :RestartExplorer
2374exit /b
2375
2376
2377::==============================================================================================================================================================================
2378
2379
2380
2381:verify-TransparencyBlur
2382 reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v EnableTransparency | find "0x1" >nul
2383 if "%errorlevel%"=="0" ( (set "TransparencyBlur=Enabled") & (set Button%~1Color="2F") ) else ( (set "TransparencyBlur=Disabled") & (set Button%~1Color="4F") )
2384exit /b
2385
2386
2387
2388:Disable-TransparencyBlur
2389Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "EnableBlurBehind" /t REG_DWORD /d "0" /f
2390Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "EnableTransparency" /t REG_DWORD /d "0" /f
2391call :RestartExplorer
2392exit /b
2393
2394
2395:Enable-TransparencyBlur
2396Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "EnableBlurBehind" /t REG_DWORD /d "1" /f
2397Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "EnableTransparency" /t REG_DWORD /d "1" /f
2398call :RestartExplorer
2399exit /b
2400
2401
2402
2403
2404::==============================================================================================================================================================================
2405
2406:verify-Logonscreen
2407 reg query "HKLM\Software\Policies\Microsoft\Windows\System" /v DisableLogonBackgroundImage | find "0x1" >nul
2408 if "%errorlevel%"=="0" (set "Logonscreen=Color") else (set "Logonscreen=Image")
2409exit /b
2410
2411
2412
2413:Color-Logonscreen
2414Reg.exe add "HKLM\Software\Policies\Microsoft\Windows\System" /v "DisableLogonBackgroundImage" /t REG_DWORD /d "1" /f
2415exit /b
2416
2417
2418:Image-Logonscreen
2419Reg.exe add "HKLM\Software\Policies\Microsoft\Windows\System" /v "DisableLogonBackgroundImage" /t REG_DWORD /d "0" /f
2420exit /b
2421
2422::==============================================================================================================================================================================
2423
2424
2425:verify-DeleteDialogDetails
2426 reg query "HKCR\AllFilesystemObjects" /v FileOperationPrompt | find "prop:System.PropGroup.FileSystem;System.ItemNameDisplay;System.ItemTypeText;System.ItemFolderPathDisplay;System.Size;System.DateCreated;System.DateModified;System.FileAttributes;System.OfflineAvailability;System.OfflineStatus;System.SharedWith;System.FileOwner;System.ComputerName" >nul
2427 if "%errorlevel%"=="0" ( (set "DeleteDialogDetails=Yes") & (set Button%~1Color="2F") ) else ( (set "DeleteDialogDetails= No") & (set Button%~1Color="2F") )
2428exit /b
2429
2430
2431
2432:Yes-DeleteDialogDetails
2433Reg.exe add "HKCR\AllFilesystemObjects" /v "FileOperationPrompt" /t REG_SZ /d "prop:System.PropGroup.FileSystem;System.ItemNameDisplay;System.ItemTypeText;System.ItemFolderPathDisplay;System.Size;System.DateCreated;System.DateModified;System.FileAttributes;System.OfflineAvailability;System.OfflineStatus;System.SharedWith;System.FileOwner;System.ComputerName" /f
2434exit /b
2435
2436
2437:NO-DeleteDialogDetails
2438Reg.exe delete "HKCR\AllFilesystemObjects" /v "FileOperationPrompt" /f
2439Reg.exe add "HKCR\AllFilesystemObjects" /f
2440exit /b
2441
2442
2443
2444::==============================================================================================================================================================================
2445
2446:verify-Thumbnailsize
2447 reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband" /v MinThumbSizePx | find "0x190" >nul
2448 if "%errorlevel%"=="0" (set "Thumbnailsize=190/400") else (set "Thumbnailsize=Default")
2449exit /b
2450
2451
2452:400-Thumbnailsize
2453Reg.exe add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband" /v "MinThumbSizePx" /t REG_DWORD /d "400" /f
2454call :RestartExplorer
2455exit /b
2456
2457
2458:Default-Thumbnailsize
2459Reg.exe delete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Taskband" /v "MinThumbSizePx" /f
2460call :RestartExplorer
2461exit /b
2462
2463
2464::==============================================================================================================================================================================
2465
2466
2467
2468
2469:ContextMenu
2470call :ClearButtons
2471
2472call :verify-AdminRightsCM 1 >nul 2>&1
2473call :verify-SelectCM 2 >nul 2>&1
2474call :verify-PinQuickaccess 3 >nul 2>&1
2475call :verify-PersonalizeCM 4 >nul 2>&1
2476call :verify-ResolutionCM 5 >nul 2>&1
2477call :verify-PowerCM 6 >nul 2>&1
2478call :verify-BluetoothCM 7 >nul 2>&1
2479call :verify-OpenwithNotepad 8 >nul 2>&1
2480call :verify-CopyPath 9 >nul 2>&1
2481
2482
2483set "Title1= _______________________________________________________________________________________"
2484set "Title2= ^| __ __ __ _ ____ ___ _ _ ____ __ __ ___ __ _ _ _ ^|"
2485set "Title3= ^| / _) / \ \ \( )(_ _)( _)( \/ )(_ _) ( \/ )( _)\ \( )( )( ) ^|"
2486set "Title4= ^| ( (_ ( () ) ) ( )( ) _) ) ( )( ) ( ) _) ) ( )()/ ^|"
2487set "Title5= ^| \__) \__/ (_)\_) (__) (___)(_/\_) (__) (_/\/\_)(___)(_)\_) \__/ ^|"
2488set "Title6= ^|_______________________________________________________________________________________^|"
2489
2490set "button1='Grant Admin Full Control' In Files and Folders (%AdminRightsCM% )"
2491set "button3= Pin to Quick access (%PinQuickaccess% )"
2492set "button5= Screen Resolution menu in Desktop (%ResolutionCM% )"
2493set "button7= Bluetooth menu in Desktop (%BluetoothCM% )"
2494set "button9= Copy File Location to Clipboard (%CopyPath% )"
2495
2496set "button2= Select Context menu (%SelectCM% )"
2497set "button4= Classic Personalize to Desktop (%PersonalizeCM% )"
2498set "button6= Power Options in Desktop (%PowerCM% )"
2499set "button8= Add Open with Notepad to Files (%OpenwithNotepad% )"
2500
2501
2502set "button14=Go Back" & set Button14Color=%BackButtonColor%
2503call :drawMenu
2504
2505
2506call :readInput
2507
2508if "%buttonClicked%"=="1" ((if /i "%AdminRightsCM%"==" ON" (Call :OFF-AdminRightsCM )) & (if /i "%AdminRightsCM%"=="OFF" (Call :ON-AdminRightsCM )) & goto ContextMenu ) >nul 2>&1
2509if "%buttonClicked%"=="2" ((if /i "%SelectCM%"==" ON" (Call :OFF-SelectCM )) & (if /i "%SelectCM%"=="OFF" (Call :ON-SelectCM )) & goto ContextMenu ) >nul 2>&1
2510if "%buttonClicked%"=="3" ((if /i "%PinQuickaccess%"==" ON" (Call :OFF-PinQuickaccess )) & (if /i "%PinQuickaccess%"=="OFF" (Call :ON-PinQuickaccess )) & goto ContextMenu ) >nul 2>&1
2511if "%buttonClicked%"=="4" ((if /i "%PersonalizeCM%"==" ON" (Call :OFF-PersonalizeCM )) & (if /i "%PersonalizeCM%"=="OFF" (Call :ON-PersonalizeCM )) & goto ContextMenu ) >nul 2>&1
2512if "%buttonClicked%"=="5" ((if /i "%ResolutionCM%"==" ON" (Call :OFF-ResolutionCM )) & (if /i "%ResolutionCM%"=="OFF" (Call :ON-ResolutionCM )) & goto ContextMenu ) >nul 2>&1
2513if "%buttonClicked%"=="6" ((if /i "%PowerCM%"==" ON" (Call :OFF-PowerCM )) & (if /i "%PowerCM%"=="OFF" (Call :ON-PowerCM )) & goto ContextMenu ) >nul 2>&1
2514if "%buttonClicked%"=="7" ((if /i "%BluetoothCM%"==" ON" (Call :OFF-BluetoothCM )) & (if /i "%BluetoothCM%"=="OFF" (Call :ON-BluetoothCM )) & goto ContextMenu ) >nul 2>&1
2515if "%buttonClicked%"=="8" ((if /i "%OpenwithNotepad%"==" ON" (Call :OFF-OpenwithNotepad )) & (if /i "%OpenwithNotepad%"=="OFF" (Call :ON-OpenwithNotepad )) & goto ContextMenu ) >nul 2>&1
2516if "%buttonClicked%"=="9" ((if /i "%CopyPath%"==" ON" (Call :OFF-CopyPath )) & (if /i "%CopyPath%"=="OFF" (Call :ON-CopyPath )) & goto ContextMenu ) >nul 2>&1
2517
2518
2519if "%buttonClicked%"=="14" goto UI
2520goto ContextMenu
2521
2522
2523
2524
2525
2526:verify-AdminRightsCM
2527 reg query "HKCR\*\shell\runas" /v MUIVerb | find "Grant Admin Full Control" >nul
2528 if "%errorlevel%"=="0" (set "AdminRightsCM= ON") else (set "AdminRightsCM=OFF")
2529exit /b
2530
2531
2532
2533:ON-AdminRightsCM
2534Reg.exe add "HKCR\*\shell\runas" /v "MUIVerb" /t REG_SZ /d "Grant Admin Full Control" /f
2535Reg.exe add "HKCR\*\shell\runas" /v "NoWorkingDirectory" /t REG_SZ /d "" /f
2536Reg.exe add "HKCR\*\shell\runas" /v "icon" /t REG_SZ /d "%SystemRoot%\system32\imageres.dll ,73" /f
2537Reg.exe add "HKCR\*\shell\runas\command" /ve /t REG_SZ /d "cmd.exe /c takeown /f \"%%1\" && icacls \"%%1\" /grant administrators:F" /f
2538Reg.exe add "HKCR\*\shell\runas\command" /v "IsolatedCommand" /t REG_SZ /d "cmd.exe /c takeown /f \"%%1\" && icacls \"%%1\" /grant administrators:F" /f
2539Reg.exe add "HKCR\exefile\shell\runas2" /ve /t REG_SZ /d "Grant Admin Full Control" /f
2540Reg.exe add "HKCR\exefile\shell\runas2" /v "NoWorkingDirectory" /t REG_SZ /d "" /f
2541Reg.exe add "HKCR\exefile\shell\runas2" /v "icon" /t REG_SZ /d "%SystemRoot%\system32\imageres.dll ,73" /f
2542Reg.exe add "HKCR\exefile\shell\runas2\command" /ve /t REG_SZ /d "cmd.exe /c takeown /f \"%%1\" && icacls \"%%1\" /grant administrators:F" /f
2543Reg.exe add "HKCR\exefile\shell\runas2\command" /v "IsolatedCommand" /t REG_SZ /d "cmd.exe /c takeown /f \"%%1\" && icacls \"%%1\" /grant administrators:F" /f
2544Reg.exe add "HKCR\Directory\shell\runas" /ve /t REG_SZ /d "Grant Admin Full Control" /f
2545Reg.exe add "HKCR\Directory\shell\runas" /v "NoWorkingDirectory" /t REG_SZ /d "" /f
2546Reg.exe add "HKCR\Directory\shell\runas" /v "icon" /t REG_SZ /d "%SystemRoot%\system32\imageres.dll ,73" /f
2547Reg.exe add "HKCR\Directory\shell\runas\command" /ve /t REG_SZ /d "cmd.exe /c takeown /f \"%%1\" /r /d y && icacls \"%%1\" /grant administrators:F /t" /f
2548Reg.exe add "HKCR\Directory\shell\runas\command" /v "IsolatedCommand" /t REG_SZ /d "cmd.exe /c takeown /f \"%%1\" /r /d y && icacls \"%%1\" /grant administrators:F /t" /f
2549exit /b
2550
2551
2552:OFF-AdminRightsCM
2553Reg.exe delete "HKCR\*\shell\runas" /f
2554Reg.exe delete "HKCR\exefile\shell\runas2" /f
2555Reg.exe delete "HKCR\Directory\shell\runas" /f
2556exit /b
2557
2558
2559
2560:verify-SelectCM
2561 reg query "HKCR\*\shell\Select" /v SubCommands | find "Windows.selectall;Windows.selectnone;Windows.invertselection" >nul
2562 if "%errorlevel%"=="0" (set "SelectCM= ON") else (set "SelectCM=OFF")
2563exit /b
2564
2565
2566
2567:ON-SelectCM
2568Reg.exe add "HKCR\*\shell\Select" /v "MUIVerb" /t REG_SZ /d "Select" /f
2569Reg.exe add "HKCR\*\shell\Select" /v "icon" /t REG_SZ /d "imageres.dll,-5308" /f
2570Reg.exe add "HKCR\*\shell\Select" /v "SubCommands" /t REG_SZ /d "Windows.selectall;Windows.selectnone;Windows.invertselection" /f
2571Reg.exe add "HKCR\Folder\shell\Select" /v "MUIVerb" /t REG_SZ /d "Select" /f
2572Reg.exe add "HKCR\Folder\shell\Select" /v "icon" /t REG_SZ /d "imageres.dll,-5308" /f
2573Reg.exe add "HKCR\Folder\shell\Select" /v "SubCommands" /t REG_SZ /d "Windows.selectall;Windows.selectnone;Windows.invertselection" /f
2574Reg.exe add "HKCR\Directory\Background\shell\Select" /v "MUIVerb" /t REG_SZ /d "Select" /f
2575Reg.exe add "HKCR\Directory\Background\shell\Select" /v "icon" /t REG_SZ /d "imageres.dll,-5308" /f
2576Reg.exe add "HKCR\Directory\Background\shell\Select" /v "SubCommands" /t REG_SZ /d "Windows.selectall" /f
2577Reg.exe add "HKCR\LibraryFolder\Background\shell\Select" /v "MUIVerb" /t REG_SZ /d "Select" /f
2578Reg.exe add "HKCR\LibraryFolder\Background\shell\Select" /v "icon" /t REG_SZ /d "imageres.dll,-5308" /f
2579Reg.exe add "HKCR\LibraryFolder\Background\shell\Select" /v "SubCommands" /t REG_SZ /d "Windows.selectall;Windows.selectnone;Windows.invertselection" /f
2580exit /b
2581
2582
2583:OFF-SelectCM
2584Reg.exe delete "HKCR\*\shell\Select" /f
2585Reg.exe delete "HKCR\Folder\shell\Select" /f
2586Reg.exe delete "HKCR\Directory\Background\shell\Select" /f
2587Reg.exe delete "HKCR\LibraryFolder\Background\shell\Select" /f
2588exit /b
2589
2590
2591
2592
2593:verify-PinQuickaccess
2594 reg query "HKCR\Folder\shell\pintohome" /v MUIVerb | find "@shell32.dll,-51377" >nul
2595 if "%errorlevel%"=="0" (set "PinQuickaccess= ON") else (set "PinQuickaccess=OFF")
2596exit /b
2597
2598
2599
2600:ON-PinQuickaccess
2601Reg.exe delete "HKCR\Folder\shell\pintohome" /f
2602Reg.exe add "HKCR\Folder\shell\pintohome" /v "MUIVerb" /t REG_SZ /d "@shell32.dll,-51377" /f
2603Reg.exe add "HKCR\Folder\shell\pintohome" /v "AppliesTo" /t REG_SZ /d "System.ParsingName:<>\"::{679f85cb-0220-4080-b29b-5540cc05aab6}\"" /f
2604Reg.exe add "HKCR\Folder\shell\pintohome\command" /v "DelegateExecute" /t REG_SZ /d "{b455f46e-e4af-4035-b0a4-cf18d2f6f28e}" /f
2605Reg.exe delete "HKLM\SOFTWARE\Classes\Folder\shell\pintohome" /f
2606Reg.exe add "HKLM\SOFTWARE\Classes\Folder\shell\pintohome" /v "MUIVerb" /t REG_SZ /d "@shell32.dll,-51377" /f
2607Reg.exe add "HKLM\SOFTWARE\Classes\Folder\shell\pintohome" /v "AppliesTo" /t REG_SZ /d "System.ParsingName:<>\"::{679f85cb-0220-4080-b29b-5540cc05aab6}\"" /f
2608Reg.exe add "HKLM\SOFTWARE\Classes\Folder\shell\pintohome\command" /v "DelegateExecute" /t REG_SZ /d "{b455f46e-e4af-4035-b0a4-cf18d2f6f28e}" /f
2609exit /b
2610
2611
2612:OFF-PinQuickaccess
2613Reg.exe delete "HKCR\Folder\shell\pintohome" /f
2614Reg.exe delete "HKLM\SOFTWARE\Classes\Folder\shell\pintohome" /f
2615exit /b
2616
2617
2618
2619:verify-PersonalizeCM
2620 reg query "HKCR\DesktopBackground\Shell\Personalization\shell\001flyout" /v MUIVerb | find "Theme Settings" >nul
2621 if "%errorlevel%"=="0" (set "PersonalizeCM= ON") else (set "PersonalizeCM=OFF")
2622exit /b
2623
2624
2625
2626:ON-PersonalizeCM
2627Reg.exe add "HKCR\DesktopBackground\Shell\Personalization" /v "Icon" /t REG_SZ /d "themecpl.dll" /f
2628Reg.exe add "HKCR\DesktopBackground\Shell\Personalization" /v "MUIVerb" /t REG_SZ /d "Personalize (classic)" /f
2629Reg.exe add "HKCR\DesktopBackground\Shell\Personalization" /v "Position" /t REG_SZ /d "Bottom" /f
2630Reg.exe add "HKCR\DesktopBackground\Shell\Personalization" /v "SubCommands" /t REG_SZ /d "" /f
2631Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\001flyout" /v "MUIVerb" /t REG_SZ /d "Theme Settings" /f
2632Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\001flyout" /v "ControlPanelName" /t REG_SZ /d "Microsoft.Personalization" /f
2633Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\001flyout" /v "Icon" /t REG_SZ /d "themecpl.dll" /f
2634Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\001flyout\command" /v "DelegateExecute" /t REG_SZ /d "{06622D85-6856-4460-8DE1-A81921B41C4B}" /f
2635Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\002flyout" /v "Icon" /t REG_SZ /d "imageres.dll,-110" /f
2636Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\002flyout" /v "MUIVerb" /t REG_SZ /d "Desktop Background" /f
2637Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\002flyout" /v "CommandFlags" /t REG_DWORD /d "32" /f
2638Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\002flyout\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,@desktop" /f
2639Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\003flyout" /v "MUIVerb" /t REG_SZ /d "Change Text Size" /f
2640Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\003flyout" /v "ControlPanelName" /t REG_SZ /d "Microsoft.Display" /f
2641Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\003flyout" /v "Icon" /t REG_SZ /d "display.dll,-1" /f
2642Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\003flyout\command" /v "DelegateExecute" /t REG_SZ /d "{06622D85-6856-4460-8DE1-A81921B41C4B}" /f
2643Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\004flyout" /v "Icon" /t REG_SZ /d "themecpl.dll" /f
2644Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\004flyout" /v "MUIVerb" /t REG_SZ /d "Color and Appearance" /f
2645Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\004flyout\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,Advanced,@Advanced" /f
2646Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\005flyout" /v "Icon" /t REG_SZ /d "SndVol.exe,-101" /f
2647Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\005flyout" /v "MUIVerb" /t REG_SZ /d "Sounds" /f
2648Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\005flyout\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,2" /f
2649Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\006flyout" /v "Icon" /t REG_SZ /d "PhotoScreensaver.scr" /f
2650Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\006flyout" /v "MUIVerb" /t REG_SZ /d "Screen Saver Settings" /f
2651Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\006flyout\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,1" /f
2652Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\007flyout" /v "Icon" /t REG_SZ /d "desk.cpl" /f
2653Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\007flyout" /v "MUIVerb" /t REG_SZ /d "Desktop Icon Settings" /f
2654Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\007flyout" /v "CommandFlags" /t REG_DWORD /d "32" /f
2655Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\007flyout\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0" /f
2656Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\008flyout" /v "Icon" /t REG_SZ /d "main.cpl" /f
2657Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\008flyout" /v "MUIVerb" /t REG_SZ /d "Mouse Pointers" /f
2658Reg.exe add "HKCR\DesktopBackground\Shell\Personalization\shell\008flyout\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL main.cpl,,1" /f
2659exit /b
2660
2661
2662:OFF-PersonalizeCM
2663Reg.exe delete "HKCR\DesktopBackground\Shell\Personalization" /f
2664
2665exit /b
2666
2667
2668:verify-ResolutionCM
2669 reg query "HKCR\DesktopBackground\Shell\Screen resolution" /v ControlPanelName | find "Microsoft.Display" >nul
2670 if "%errorlevel%"=="0" (set "ResolutionCM= ON") else (set "ResolutionCM=OFF")
2671exit /b
2672
2673
2674
2675:ON-ResolutionCM
2676Reg.exe add "HKCR\DesktopBackground\Shell\Screen resolution" /v "ControlPanelName" /t REG_SZ /d "Microsoft.Display" /f
2677Reg.exe add "HKCR\DesktopBackground\Shell\Screen resolution" /v "ControlPanelPage" /t REG_SZ /d "Settings" /f
2678Reg.exe add "HKCR\DesktopBackground\Shell\Screen resolution" /v "Icon" /t REG_SZ /d "%%SystemRoot%%\System32\display.dll,-1" /f
2679Reg.exe add "HKCR\DesktopBackground\Shell\Screen resolution" /v "Position" /t REG_SZ /d "Bottom" /f
2680Reg.exe add "HKCR\DesktopBackground\Shell\Screen resolution" /ve /t REG_SZ /d "@%%SystemRoot%%\system32\Display.dll,-300" /f
2681Reg.exe add "HKCR\DesktopBackground\Shell\Screen resolution\command" /v "DelegateExecute" /t REG_SZ /d "{06622D85-6856-4460-8DE1-A81921B41C4B}" /f
2682exit /b
2683
2684
2685:OFF-ResolutionCM
2686Reg.exe delete "HKCR\DesktopBackground\Shell\Screen resolution" /f
2687exit /b
2688
2689
2690
2691
2692
2693:verify-PowerCM
2694 reg query "HKCR\DesktopBackground\Shell\Power" /v MUIVerb | find "Power" >nul
2695 if "%errorlevel%"=="0" (set "PowerCM= ON") else (set "PowerCM=OFF")
2696exit /b
2697
2698
2699
2700:ON-PowerCM
2701Reg.exe add "HKCR\DesktopBackground\Shell\Power" /v "MUIVerb" /t REG_SZ /d "Power" /f
2702Reg.exe add "HKCR\DesktopBackground\Shell\Power" /v "SubCommands" /t REG_SZ /d "Lock;SwitchUser;SignOut;Sleep;Hibernate;HybridShutdown;ShutDown;SlideToShutdown;Restart;BootOptions" /f
2703Reg.exe add "HKCR\DesktopBackground\Shell\Power" /v "icon" /t REG_SZ /d "shell32.dll,-221" /f
2704Reg.exe add "HKCR\DesktopBackground\Shell\Power" /v "Position" /t REG_SZ /d "bottom" /f
2705
2706Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Lock" /ve /t REG_SZ /d "Lock" /f
2707Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Lock" /v "icon" /t REG_SZ /d "shell32.dll,-48" /f
2708Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Lock\command" /ve /t REG_SZ /d "rundll32.exe user32.dll, LockWorkStation" /f
2709
2710Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SwitchUser" /ve /t REG_SZ /d "Switch User" /f
2711Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SwitchUser" /v "icon" /t REG_SZ /d "imageres.dll,-88" /f
2712Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SwitchUser\command" /ve /t REG_SZ /d "tsdiscon.exe" /f
2713
2714Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SignOut" /ve /t REG_SZ /d "Sign out" /f
2715Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SignOut" /v "icon" /t REG_SZ /d "shell32.dll,-45" /f
2716Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SignOut\command" /ve /t REG_SZ /d "shutdown.exe -L" /f
2717
2718Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\ShutDown" /ve /t REG_SZ /d "Full Shut down" /f
2719Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\ShutDown" /v "icon" /t REG_SZ /d "shell32.dll,-28" /f
2720Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\ShutDown\command" /ve /t REG_SZ /d "shutdown.exe -s -f -t 00" /f
2721
2722Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\HybridShutdown" /ve /t REG_SZ /d "Hybrid Shut down" /f
2723Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\HybridShutdown" /v "icon" /t REG_SZ /d "shell32.dll,-28" /f
2724Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\HybridShutdown\command" /ve /t REG_SZ /d "Shutdown -s -f -hybrid -t 00" /f
2725
2726Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SlideToShutdown" /ve /t REG_SZ /d "Slide to Shut down" /f
2727Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SlideToShutdown" /v "icon" /t REG_SZ /d "shell32.dll,-28" /f
2728Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SlideToShutdown\command" /ve /t REG_SZ /d "SlideToShutDown.exe" /f
2729
2730Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Restart" /ve /t REG_SZ /d "Restart" /f
2731Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Restart" /v "icon" /t REG_SZ /d "shell32.dll,-290" /f
2732Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Restart\command" /ve /t REG_SZ /d "shutdown.exe -r -f -t 00" /f
2733
2734Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\sleep" /ve /t REG_SZ /d "Sleep" /f
2735Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\sleep" /v "icon" /t REG_SZ /d "powercpl.dll,-514" /f
2736Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\sleep\command" /ve /t REG_SZ /d "rundll32.exe powrprof.dll,SetSuspendState Sleep" /f
2737
2738Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\hibernate" /ve /t REG_SZ /d "Hibernate" /f
2739Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\hibernate" /v "icon" /t REG_SZ /d "imageres.dll,-101" /f
2740Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\hibernate\command" /ve /t REG_SZ /d "Shutdown -h" /f
2741
2742Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\BootOptions" /ve /t REG_SZ /d "Restart to Boot Options" /f
2743Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\BootOptions" /v "icon" /t REG_SZ /d "RelPost.exe" /f
2744Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\BootOptions\command" /ve /t REG_SZ /d "Shutdown -r -o -f -t 00" /f
2745exit /b
2746
2747
2748:OFF-PowerCM
2749Reg.exe delete "HKCR\DesktopBackground\Shell\Power" /f
2750Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Lock" /f
2751Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SwitchUser" /f
2752Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SignOut" /f
2753Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\sleep" /f
2754Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\hibernate" /f
2755Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\ShutDown" /f
2756Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\HybridShutdown" /f
2757Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\SlideToShutdown" /f
2758Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\Restart" /f
2759Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\CommandStore\shell\BootOptions" /f
2760exit /b
2761
2762
2763:verify-BluetoothCM
2764 reg query "HKCR\DesktopBackground\Shell\Bluetooth" /v MUIVerb | find "Bluetooth" >nul
2765 if "%errorlevel%"=="0" (set "BluetoothCM= ON") else (set "BluetoothCM=OFF")
2766exit /b
2767
2768
2769
2770:ON-BluetoothCM
2771Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth" /v "Icon" /t REG_SZ /d "bthudtask.exe" /f
2772Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth" /v "MUIVerb" /t REG_SZ /d "Bluetooth" /f
2773Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth" /v "Position" /t REG_SZ /d "Middle" /f
2774Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth" /v "SubCommands" /t REG_SZ /d "" /f
2775Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\01menu" /v "MUIVerb" /t REG_SZ /d "Bluetooth Devices (classic)" /f
2776Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\01menu" /v "Icon" /t REG_SZ /d "" /f
2777Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\01menu\command" /ve /t REG_SZ /d "explorer shell:::{28803F59-3A75-4058-995F-4EE5503B023C}" /f
2778Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\02menu" /v "MUIVerb" /t REG_SZ /d "Bluetooth Devices" /f
2779Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\02menu" /v "Icon" /t REG_SZ /d "" /f
2780Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\02menu\command" /ve /t REG_SZ /d "explorer ms-settings:bluetooth" /f
2781Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\03menu" /v "MUIVerb" /t REG_SZ /d "Bluetooth File Transfer" /f
2782Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\03menu" /v "Icon" /t REG_SZ /d "" /f
2783Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\03menu" /v "CommandFlags" /t REG_DWORD /d "32" /f
2784Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\03menu\command" /ve /t REG_SZ /d "fsquirt.exe" /f
2785Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\04menu" /v "MUIVerb" /t REG_SZ /d "Options in Bluetooth Settings" /f
2786Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\04menu" /v "Icon" /t REG_SZ /d "" /f
2787Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\04menu" /v "CommandFlags" /t REG_DWORD /d "32" /f
2788Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\04menu\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL bthprops.cpl,,1" /f
2789Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\05menu" /v "MUIVerb" /t REG_SZ /d "COM Ports in Bluetooth Settings" /f
2790Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\05menu" /v "Icon" /t REG_SZ /d "" /f
2791Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\05menu\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL bthprops.cpl,,2" /f
2792Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\06menu" /v "MUIVerb" /t REG_SZ /d "Hardware in Bluetooth Settings" /f
2793Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\06menu" /v "Icon" /t REG_SZ /d "" /f
2794Reg.exe add "HKCR\DesktopBackground\Shell\Bluetooth\shell\06menu\command" /ve /t REG_SZ /d "rundll32.exe shell32.dll,Control_RunDLL bthprops.cpl,,3" /f
2795exit /b
2796
2797
2798:OFF-BluetoothCM
2799Reg.exe delete "HKCR\DesktopBackground\Shell\Bluetooth" /f
2800exit /b
2801
2802
2803
2804:verify-OpenwithNotepad
2805 reg query "HKCR\*\shell\Open with Notepad" /v MUIVerb | find "Open with Notepad" >nul
2806 if "%errorlevel%"=="0" (set "OpenwithNotepad= ON") else (set "OpenwithNotepad=OFF")
2807exit /b
2808
2809
2810
2811:ON-OpenwithNotepad
2812Reg.exe add "HKCR\*\shell\Open with Notepad" /v "MUIVerb" /t REG_SZ /d "Open with Notepad" /f
2813Reg.exe add "HKCR\*\shell\Open with Notepad\command" /ve /t REG_SZ /d "notepad.exe %%1" /f
2814exit /b
2815
2816
2817:OFF-OpenwithNotepad
2818Reg.exe delete "HKCR\*\shell\Open with Notepad" /f
2819exit /b
2820
2821
2822
2823:verify-CopyPath
2824 reg query "HKCR\*\shell\Copy Path to Clipboard" /v icon | find "%%SystemRoot%%\System32\shell32.dll ,260" >nul
2825 if "%errorlevel%"=="0" (set "CopyPath= ON") else (set "CopyPath=OFF")
2826exit /b
2827
2828
2829
2830:ON-CopyPath
2831Reg.exe add "HKCR\*\shell\Copy Path to Clipboard" /v "icon" /t REG_SZ /d "%%SystemRoot%%\System32\shell32.dll ,260" /f
2832Reg.exe add "HKCR\*\shell\Copy Path to Clipboard\command" /ve /t REG_SZ /d "cmd.exe /c echo \"%%1\" > Path.txt & CLIP < Path.txt & del path.txt" /f
2833exit /b
2834
2835
2836:OFF-CopyPath
2837Reg.exe delete "HKCR\*\shell\Copy Path to Clipboard" /f
2838exit /b
2839
2840::==============================================================================================================================================================================
2841
2842
2843:OEMInfo
2844call :ClearButtons
2845
2846
2847set "Title1= _______________________________________________________________________________________"
2848set "Title2= ^| __ ___ __ __ __ __ _ ___ __ ___ __ __ __ ____ __ __ __ _ ^|"
2849set "Title3= ^| / \ ( _)( \/ ) ( )\ \( )( _) / \ ( ,) ( \/ ) ( ) (_ _)( ) / \ \ \( ) ^|"
2850set "Title4= ^| ( () ) ) _) ) ( )( ) ( ) _)( () ) ) \ ) ( /__\ )( )( ( () ) ) ) ^|"
2851set "Title5= ^| \__/ (___)(_/\/\_) (__)(_)\_)(_) \__/ (_)\_)(_/\/\_)(_)(_) (__) (__) \__/ (_)\_) ^|"
2852set "Title6= ^|_______________________________________________________________________________________^|"
2853
2854set "button1=MANUFACTURER"
2855set "button3=MODEL"
2856set "button5=LOGO"
2857
2858set "button2=SUPPORT HOURS"
2859set "button4=SUPPORT PHONE"
2860set "button6=SUPPORT URL"
2861
2862
2863
2864set "button12=Go Back" & set Button12Color=%BackButtonColor%
2865call :drawMenu
2866call :readInput
2867
2868if "%buttonClicked%"=="7" goto OEMInfo
2869if "%buttonClicked%"=="8" goto OEMInfo
2870if "%buttonClicked%"=="9" goto OEMInfo
2871if "%buttonClicked%"=="10" goto OEMInfo
2872if "%buttonClicked%"=="11" goto OEMInfo
2873if "%buttonClicked%"=="13" goto OEMInfo
2874if "%buttonClicked%"=="14" goto OEMInfo
2875
2876if "%buttonClicked%"=="12" goto UI
2877
2878
2879%BB% /g 0 20
2880echo. __________________________________________________________________________________________________________________
2881echo. ^| ^|
2882echo. ^| Input : ^|
2883echo. ^|__________________________________________________________________________________________________________________^|
2884%BB% /c 0x1F /g 10 22 /d " "
2885call :ClearButton 12
2886%BB% /g 11 22
2887set /p Input=
2888If "%Input%"=="" Goto OEMInfo
2889If "%Input%"==" " Goto OEMInfo
2890If "%Input%"=="0" Goto OEMInfo
2891%BB% /g 0 25
2892if "%buttonClicked%"=="1" (reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation" /v Manufacturer /f /t REG_SZ /d "%Input%")
2893if "%buttonClicked%"=="2" (reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation" /v SupportHours /f /t REG_SZ /d "%Input%")
2894if "%buttonClicked%"=="3" (reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation" /v Model /f /t REG_SZ /d "%Input%")
2895if "%buttonClicked%"=="4" (reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation" /v SupportPhone /f /t REG_SZ /d "%Input%")
2896if "%buttonClicked%"=="5" (reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation" /v logo /f /t REG_SZ /d "%Input%")
2897if "%buttonClicked%"=="6" (reg add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\OEMInformation" /v SupportURL /f /t REG_SZ /d "%Input%")
2898call :msgbox Ok 300
2899pause >nul
2900goto OEMInfo
2901
2902
2903
2904
2905::==============================================================================================================================================================================
2906
2907
2908
2909
2910:ColouriseStartmenu
2911call :ClearButtons
2912
2913call :verify-TitleBars 1 >nul 2>&1
2914call :verify-Colourised 2
2915
2916Call :GetActiveButton 5 3
2917Call :GetActiveButton 6 4
2918
2919
2920
2921set "Title1= _______________________________________________________________________________________"
2922set "Title2= ^| _ _ ___ ___ ___ __ _ _ ____ ___ ___ ___ __ __ ___ ^|"
2923set "Title3= ^| ( )( )/ __)( _)( ,) ( )( \( )(_ _)( _)( ,) ( _) ( ) / _)( _) ^|"
2924set "Title4= ^| )()( \__ \ ) _) ) \ )( ) ( )( ) _) ) \ ) _) /__\ ( (_ ) _) ^|"
2925set "Title5= ^| \__/ (___/(___)(_)\_) (__)(_)\_) (__) (___)(_)\_)(_) (_)(_) \__)(___) ^|"
2926set "Title6= ^|_______________________________________________________________________________________^|"
2927
2928set "button1=Windows Title bars and borders (%TitleBars%) [FE]"
2929set "button2=Colourise Start Menu & Taskbar : %Colourised% [FE]"
2930
2931set "button5=Set Inactive Title Bar Color [FE]"
2932set "button6=RGB color table"
2933
2934
2935
2936set "button14=Go Back" & set Button14Color=%BackButtonColor%
2937call :drawMenu
2938
2939
2940call :readInput
2941
2942if "%buttonClicked%"=="1" ((if /i "%TitleBars%"=="Colourised" (Call :DeColourise-TitleBars )) & (if /i "%TitleBars%"=="DeColourised" (Call :Colourise-TitleBars )) & goto ColouriseStartmenu )
2943if "%buttonClicked%"=="2" ((if /i "%Colourised%"=="Taskbar" (Call :Colourise-Both )) & (if /i "%Colourised%"=="Both" (Call :Colourise-None )) & (if /i "%Colourised%"=="None" (Call :Colourise-Taskbar )) & goto ColouriseStartmenu ) >nul 2>&1
2944
2945if "%buttonClicked%"=="%ActiveButton5%" (call :InactiveTitleBars)
2946if "%buttonClicked%"=="%ActiveButton6%" (start http://samples.msdn.microsoft.com/workshop/samples/author/dhtml/colors/ColorTable.htm & GOTO ColouriseStartmenu)
2947
2948
2949if "%buttonClicked%"=="14" goto UI
2950goto ColouriseStartmenu
2951
2952
2953
2954
2955
2956
2957
2958
2959:verify-TitleBars
2960 reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\DWM" /v ColorPrevalence | find "0x1" >nul
2961 if "%errorlevel%"=="0" ((set "TitleBars=Colourised") & (set Button%~1Color="2F") ) else ((set "TitleBars=DeColourised") & (set Button%~1Color="1F") )
2962exit /b
2963
2964
2965
2966:Colourise-TitleBars
2967call :validateBuild 10586 +
2968if "%applyTweak%"=="0" exit /b
2969Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\DWM" /v "ColorPrevalence" /t REG_DWORD /d "1" /f >nul 2>&1
2970call :RestartExplorer
2971exit /b
2972
2973
2974:DeColourise-TitleBars
2975call :validateBuild 10586 +
2976if "%applyTweak%"=="0" exit /b
2977Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\DWM" /v "ColorPrevalence" /t REG_DWORD /d "0" /f >nul 2>&1
2978call :RestartExplorer
2979exit /b
2980
2981
2982
2983
2984:verify-Colourised
2985 reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v ColorPrevalence | find "0x0" >nul
2986 if "%errorlevel%"=="0" (set "Colourised=None") else (set "Colourised=Taskbar" )
2987
2988 reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v ColorPrevalence | find "0x1"
2989 if "%errorlevel%"=="0" (set "Colourised=Both" )
2990exit /b
2991
2992
2993:Colourise-None
2994Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "ColorPrevalence" /t REG_DWORD /d "0" /f
2995call :RestartExplorer
2996exit /b
2997
2998:Colourise-Both
2999Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "ColorPrevalence" /t REG_DWORD /d "1" /f
3000call :RestartExplorer
3001exit /b
3002
3003:Colourise-Taskbar
3004Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\CurrentVersion\Themes\Personalize" /v "ColorPrevalence" /t REG_DWORD /d "2" /f
3005call :RestartExplorer
3006exit /b
3007
3008
3009
3010:InactiveTitleBars
3011
3012%BB% /g 0 20
3013echo. ___________________________________________________________________
3014echo. ^| ^|
3015echo. ^| Write the RGB hex number here (ex: d3d3d3 for lightgray): ^|
3016echo. ^|___________________________________________________________________^|
3017%BB% /c 0xF1 /g 61 22 /d " "
3018%BB% /g 61 22
3019set /p COLOR=
3020
3021if "%COLOR%"==" " (exit /b)
3022if "%COLOR%"=="" (exit /b)
3023
3024CD /D "%~dp0"
3025> RegFile.reg Echo Windows Registry Editor Version 5.00
3026>> RegFile.reg Echo.
3027>> RegFile.reg Echo [HKEY_CURRENT_USER\SOFTWARE\Microsoft\Windows\DWM]
3028>> RegFile.reg Echo "AccentColorInactive"=dword:%COLOR%
3029
3030Start /Wait Regedit.exe /S RegFile.reg
3031Del RegFile.reg
3032call :RestartExplorer
3033call :msgbox Ok
3034exit /b
3035
3036
3037
3038
3039
3040
3041
3042::==============================================================================================================================================================================
3043
3044
3045
3046
3047:verify-Updates
3048 sc query "UpdateDisabler" | find "RUNNING" >nul
3049 if "%errorlevel%"=="0" ( (set "Updates=Disabled") & (set Button%~1Color="4F") ) else ( (set "Updates=Enabled") & (set Button%~1Color="2F") )
3050
3051exit/b
3052
3053
3054
3055
3056
3057:Enable-Updates
3058call :Infomsgbox "Downloading and installing dependencies ... Please Wait" 9F 0
3059call :Servercheck drive.google.com MainMenu
3060call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiUGRwelRKYnNwZGM" UpdaterDisabler.exe
3061UpdaterDisabler.exe -remove >nul 2>&1
3062Del /f /q /a UpdaterDisabler.exe >nul 2>&1
3063
3064call :msgbox ok 300
3065exit /b
3066
3067
3068:Disable-Updates
3069call :Infomsgbox "Downloading and installing dependencies ... Please Wait" 9F 0
3070call :Servercheck drive.google.com MainMenu
3071call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiUGRwelRKYnNwZGM" UpdaterDisabler.exe
3072UpdaterDisabler.exe -install >nul 2>&1
3073Del /f /q /a UpdaterDisabler.exe >nul 2>&1
3074
3075call :msgbox ok 300
3076exit /b
3077
3078
3079::==============================================================================================================================================================================
3080
3081
3082:verify-Firewall
3083 Netsh Advfirewall show allprofiles | find "ON" >nul
3084 if "%errorlevel%"=="0" ( (set "Firewall=Enabled") & (set Button%~1Color="2F") ) else ( (set "Firewall=Disabled") & (set Button%~1Color="4F") )
3085
3086exit/b
3087
3088
3089:Enable-Firewall
3090NetSh Advfirewall set allprofiles state on
3091exit /b
3092
3093
3094:Disable-Firewall
3095NetSh Advfirewall set allprofiles state off
3096exit /b
3097
3098
3099
3100::==============================================================================================================================================================================
3101
3102:verify-Lockscreen
3103cd %windir%/SystemApps
3104 IF exist Microsoft.LockApp_cw5n1h2txyewy.backup ( (set "Lockscreen=Disabled") & (set Button%~1Color="4F") ) else ( (set "Lockscreen=Enabled") & (set Button%~1Color="2F") )
3105CD /d %~dp0
3106exit/b
3107
3108
3109:Enable-Lockscreen
3110cd %windir%/SystemApps
3111Ren Microsoft.LockApp_cw5n1h2txyewy.backup Microsoft.LockApp_cw5n1h2txyewy
3112CD /d %~dp0
3113exit /b
3114
3115
3116:Disable-Lockscreen
3117cd %windir%/SystemApps
3118Ren Microsoft.LockApp_cw5n1h2txyewy Microsoft.LockApp_cw5n1h2txyewy.backup
3119CD /d %~dp0
3120exit /b
3121
3122
3123::==============================================================================================================================================================================
3124
3125
3126:CleanUpdatefiles
3127cls
3128net stop wuauserv
3129net stop bits
3130
3131
3132RMDIR /S /Q "%Windir%\SoftwareDistribution\Download\"
3133MKDIR "%Windir%\SoftwareDistribution\Download\"
3134
3135
3136Dism.exe /online /Cleanup-Image /StartComponentCleanup
3137
3138net start wuauserv
3139net start bits
3140call :msgbox ok
3141
3142GOTO Performance
3143
3144
3145::==============================================================================================================================================================================
3146
3147:Restart_time
3148
3149
3150> Restart_Time.vbs ECHO Option Explicit
3151>> Restart_Time.vbs ECHO On Error Resume Next
3152>> Restart_Time.vbs ECHO Dim Wsh, Time1, Time2, Result, PathFile, MsgResult, MsgA, AppName, KeyA, KeyB, TimeDiff
3153
3154>> Restart_Time.vbs ECHO MsgA = "Close all aplications and click OK."
3155>> Restart_Time.vbs ECHO KeyA = "HKEY_CURRENT_USER\Software\RestartTime\"
3156>> Restart_Time.vbs ECHO KeyB = "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\RestartTime"
3157>> Restart_Time.vbs ECHO AppName = "Restart Time"
3158>> Restart_Time.vbs ECHO Set Wsh = CreateObject("WScript.Shell")
3159>> Restart_Time.vbs ECHO PathFile = """" ^& WScript.ScriptFullName ^& """"
3160>> Restart_Time.vbs ECHO Result = wsh.RegRead(KeyA ^& "Times")
3161>> Restart_Time.vbs ECHO if Result = "" then
3162>> Restart_Time.vbs ECHO MsgResult = Msgbox (MsgA, vbOKCancel, AppName)
3163>> Restart_Time.vbs ECHO If MsgResult = vbcancel then WScript.Quit
3164>> Restart_Time.vbs ECHO Wsh.RegWrite KeyA ^& "Times", left(Time,8), "REG_SZ"
3165>> Restart_Time.vbs ECHO Wsh.RegWrite KeyB, PathFile, "REG_SZ"
3166>> Restart_Time.vbs ECHO Wsh.Run "cmd /c Shutdown -r -t 00", false, 0
3167>> Restart_Time.vbs ECHO else
3168>> Restart_Time.vbs ECHO Wsh.RegDelete KeyA ^& "Times"
3169>> Restart_Time.vbs ECHO Wsh.RegDelete KeyA
3170>> Restart_Time.vbs ECHO Wsh.RegDelete KeyB
3171>> Restart_Time.vbs ECHO TimeDiff = DateDiff("s",Result,left(Time,8))
3172>> Restart_Time.vbs ECHO MsgBox "PC restarted in " ^& TimeDiff ^& " secondes", VbInformation, AppName
3173>> Restart_Time.vbs ECHO end if
3174>> Restart_Time.vbs ECHO wScript.Quit
3175
3176
3177"Restart_Time.vbs"
3178
3179GOTO Performance
3180
3181
3182::=============================================================================================================================================================================
3183::==============================================================================================================================================================================
3184
3185
3186:Services
3187::Files related services
3188sc config BDESVC start= disabled
3189sc config EFS start= disabled
3190sc config CscService start= disabled
3191sc config LanmanServer start= disabled
3192
3193::Other services
3194sc config dmwappushservice start= disabled
3195sc config diagnosticshub.standardcollector.service start= disabled
3196sc config TrkWks start= disabled
3197sc config CertPropSvc start= disabled
3198sc config DPS start= disabled
3199sc config iphlpsvc start= disabled
3200sc config PcaSvc start= disabled
3201sc config RemoteRegistry start= disabled
3202sc config WinHttpAutoProxySvc start= disabled
3203sc config WPDBusEnum start= disabled
3204sc config AJRouter start= disabled
3205sc config XboxNetApiSvc start= disabled
3206sc config KeyIso start= disabled
3207sc config MSDTC start= disabled
3208sc config PolicyAgent start= disabled
3209sc config WbioSrvc start= disabled
3210exit /b
3211
3212::==============================================================================================================================================================================
3213
3214:verify-QuickAccess
3215 reg query "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v LaunchTo | find "0x2" >nul
3216 if "%errorlevel%"=="0" ( (set "QuickAccess=Enabled") & (set Button%~1Color="4F") ) else ( (set "QuickAccess=Disabled") & (set Button%~1Color="2F") )
3217
3218exit/b
3219
3220
3221:Enable-QuickAccess
3222reg add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /f /v "LaunchTo" /t REG_DWORD /d 2 >nul
3223
3224call :msgbox ok 300
3225exit /b
3226
3227
3228:Disable-QuickAccess
3229reg add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /f /v "LaunchTo" /t REG_DWORD /d 1 >nul
3230
3231call :msgbox ok 300
3232exit /b
3233
3234
3235
3236
3237::==============================================================================================================================================================================
3238
3239:verify-BSOD
3240 reg query "HKLM\SYSTEM\CurrentControlSet\Control\CrashControl" /v DisplayParameters | find "0x1" >nul
3241 if "%errorlevel%"=="0" (set "BSOD=Enabled") else (set "BSOD=Disabled")
3242
3243exit/b
3244
3245
3246:Enable-BSOD
3247Reg.exe add "HKLM\SYSTEM\CurrentControlSet\Control\CrashControl" /v "DisplayParameters" /t REG_DWORD /d "1" /f >nul
3248
3249call :msgbox ok 300
3250exit /b
3251
3252
3253:Disable-BSOD
3254Reg.exe add "HKLM\SYSTEM\CurrentControlSet\Control\CrashControl" /v "DisplayParameters" /t REG_DWORD /d "0" /f >nul
3255
3256call :msgbox ok 300
3257exit /b
3258
3259
3260
3261
3262::==============================================================================================================================================================================
3263
3264:verify-PSWRDReveal
3265 reg query "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\CredUI" /v DisablePasswordReveal | find "0x1" >nul
3266 if "%errorlevel%"=="0" (set "PSWRDReveal=Disabled") else (set "PSWRDReveal=Enabled")
3267
3268exit/b
3269
3270
3271:Enable-PSWRDReveal
3272Reg.exe add "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\CredUI" /v "DisablePasswordReveal" /t REG_DWORD /d "0" /f >nul
3273
3274call :msgbox ok 300
3275exit /b
3276
3277
3278:Disable-PSWRDReveal
3279Reg.exe add "HKEY_LOCAL_MACHINE\Software\Policies\Microsoft\Windows\CredUI" /v "DisablePasswordReveal" /t REG_DWORD /d "1" /f >nul
3280
3281call :msgbox ok 300
3282exit /b
3283
3284
3285
3286
3287::==============================================================================================================================================================================
3288
3289:verify-CMDinWinX
3290 reg query "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v DontUsePowerShellOnWinX | find "0x1" >nul
3291 if "%errorlevel%"=="0" (set "CMDinWinX=Enabled") else (set "CMDinWinX=Disabled")
3292
3293exit/b
3294
3295
3296:Enable-CMDinWinX
3297Reg.exe add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "DontUsePowerShellOnWinX" /t REG_DWORD /d "1" /f >nul
3298
3299call :msgbox ok 300
3300exit /b
3301
3302
3303:Disable-CMDinWinX
3304Reg.exe add "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v "DontUsePowerShellOnWinX" /t REG_DWORD /d "0" /f >nul
3305
3306call :msgbox ok 300
3307exit /b
3308
3309
3310
3311
3312
3313::==============================================================================================================================================================================
3314
3315:verify-HardwareICon
3316 reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\SysTray" /v Services | find "0x1f" >nul
3317 if "%errorlevel%"=="0" (set "HardwareICon=Enabled") else (set "HardwareICon=Disabled")
3318
3319exit/b
3320
3321
3322:Enable-HardwareICon
3323reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\SysTray" /v "Services" /t reg_dword /d 31 /f >nul
3324
3325call :msgbox ok 300
3326exit /b
3327
3328
3329:Disable-HardwareICon
3330reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Applets\SysTray" /v "Services" /t reg_dword /d 29 /f >nul
3331
3332call :msgbox ok 300
3333exit /b
3334
3335
3336::==============================================================================================================================================================================
3337
3338:verify-SmartScreen
3339 reg query "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System" /v EnableSmartScreen | find "0x0" >nul
3340 if "%errorlevel%"=="0" ( (set "SmartScreen=Disabled") & (set Button%~1Color="4F") ) else ( (set "SmartScreen=Enabled") & (set Button%~1Color="2F") )
3341
3342exit/b
3343
3344
3345:Enable-SmartScreen
3346reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System" /v "EnableSmartScreen" /t reg_dword /d 1 /f >nul
3347
3348call :msgbox ok 300
3349exit /b
3350
3351
3352
3353
3354:Disable-SmartScreen
3355reg add "HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\System" /v "EnableSmartScreen" /t reg_dword /d 0 /f >nul
3356
3357call :msgbox ok 300
3358exit /b
3359
3360
3361
3362
3363::==============================================================================================================================================================================
3364
3365
3366:Verify-EdgeAds
3367IF EXIST %windir%\SYSTEM32\DRIVERS\ETC\HOSTS.MVP ( (set "EdgeAds=Disabled") & (set Button%~1Color="2F")
3368) else ( (set "EdgeAds=Enabled") & (set Button%~1Color="4F") )
3369
3370exit /b
3371
3372:Enable-EdgeAds
3373if exist %WINDIR%\system32\drivers\etc\hosts.MVP (
3374 attrib -r "%WINDIR%\system32\drivers\etc\hosts"
3375 del /F /Q "%WINDIR%\system32\drivers\etc\hosts"
3376 ren "%WINDIR%\system32\drivers\etc\hosts.MVP" "hosts"
3377 attrib +r "%WINDIR%\system32\drivers\etc\hosts"
3378call :msgbox ok 300
3379) else (
3380call :Infomsgbox "There is no Hosts.MVP file" 9F
3381)
3382exit /b
3383
3384
3385:Disable-EdgeAds
3386call :Infomsgbox "Downloading and installing necessary files..." 9F 1
3387call :Servercheck drive.google.com Edge
3388call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfib2hTMDhVamF1OWs" HOSTS
3389cls
3390
3391
3392
3393echo.
3394
3395:: ------------EXTRA CODE TO CHANGE DIRECTORY-------------
3396%~d0
3397cd %~d0%~p0
3398:: -------------------------------------------------------
3399
3400IF NOT EXIST HOSTS GOTO noHostsFile
3401IF "%OS%"=="Windows_NT" GOTO HostsFile
3402IF EXIST %winbootdir%\HOSTS*.* ATTRIB +A -H -R -S %winbootdir%\HOSTS*.*>NUL
3403IF EXIST %winbootdir%\HOSTS.MVP DEL %winbootdir%\HOSTS.MVP>NUL
3404IF EXIST %winbootdir%\HOSTS REN %winbootdir%\HOSTS HOSTS.MVP>NUL
3405IF EXIST %winbootdir%\NUL COPY /Y HOSTS %winbootdir%>NUL
3406GOTO noHostsFile
3407
3408:HostsFile
3409IF EXIST %windir%\SYSTEM32\DRIVERS\ETC\HOSTS*.* ATTRIB +A -H -R -S %windir%\SYSTEM32\DRIVERS\ETC\HOSTS*.*>NUL
3410IF EXIST %windir%\SYSTEM32\DRIVERS\ETC\HOSTS.MVP DEL %windir%\SYSTEM32\DRIVERS\ETC\HOSTS.MVP>NUL
3411IF EXIST %windir%\SYSTEM32\DRIVERS\ETC\HOSTS REN %windir%\SYSTEM32\DRIVERS\ETC\HOSTS HOSTS.MVP>NUL
3412IF EXIST %windir%\SYSTEM32\DRIVERS\ETC\NUL COPY /Y HOSTS %windir%\SYSTEM32\DRIVERS\ETC>NUL
3413
3414Reg.exe add "HKLM\SYSTEM\CurrentControlSet\Services\DnsCache\Parameters" /v "MaxCacheTtl" /t REG_DWORD /d "1" /f>NUL
3415Reg.exe add "HKLM\SYSTEM\CurrentControlSet\Services\DnsCache\Parameters" /v "MaxNegativeCacheTtl" /t REG_DWORD /d "0" /f>NUL
3416del /F /Q HOSTS
3417tasklist /FI "IMAGENAME eq MicrosoftEdge.exe" 2>NUL | find /I /N "MicrosoftEdge.exe">NUL
3418
3419
3420if "%ERRORLEVEL%"=="0" call :Infomsgbox "You need to restart MS Edge so that changes takes effect." 9F
3421if "%ERRORLEVEL%"=="1" call :msgbox ok 300
3422
3423exit /b
3424
3425:noHostsFile
3426call :Infomsgbox "There is no HOSTS file in the same directory with this script." 9F
3427
3428exit /b
3429
3430
3431
3432::==============================================================================================================================================================================
3433:verify-EdgeTheme
3434 reg query "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v Theme | find "0x0" >nul
3435 if "%errorlevel%"=="0" (set "EdgeTheme=Disabled") else (set "EdgeTheme=Enabled")
3436
3437exit/b
3438
3439
3440:Enable-EdgeTheme
3441Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "Theme" /t REG_DWORD /d "1" /f >nul
3442
3443call :msgbox ok 300
3444exit /b
3445
3446
3447:Disable-EdgeTheme
3448Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "Theme" /t REG_DWORD /d "0" /f >nul
3449
3450call :msgbox ok 300
3451exit /b
3452
3453::==============================================================================================================================================================================
3454
3455:verify-closeTabs
3456 reg query "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v AskToCloseAllTabs | find "0x0" >nul
3457 if "%errorlevel%"=="0" (set "closeTabs=Disabled") else (set "closeTabs=Enabled")
3458
3459exit/b
3460
3461
3462:Enable-closeTabs
3463Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "AskToCloseAllTabs" /t REG_DWORD /d "1" /f >nul
3464
3465call :msgbox ok 300
3466exit /b
3467
3468
3469:Disable-closeTabs
3470Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Main" /v "AskToCloseAllTabs" /t REG_DWORD /d "0" /f >nul
3471
3472call :msgbox ok 300
3473exit /b
3474
3475::==============================================================================================================================================================================
3476
3477:verify-CoratnainEdge
3478 reg query "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v EnableCortana | find "0x0" >nul
3479 if "%errorlevel%"=="0" (set "CoratnainEdge=Disabled") else (set "CoratnainEdge=Enabled")
3480
3481exit/b
3482
3483
3484:Enable-CoratnainEdge
3485Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v "EnableCortana" /t REG_DWORD /d "1" /f >nul
3486
3487call :msgbox ok 300
3488exit /b
3489
3490
3491:Disable-CoratnainEdge
3492Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v "EnableCortana" /t REG_DWORD /d "0" /f >nul
3493
3494call :msgbox ok 300
3495exit /b
3496
3497::==============================================================================================================================================================================
3498
3499:verify-EdgeFlashPlayer
3500 reg query "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Addons" /v FlashPlayerEnabled | find "0x0" >nul
3501 if "%errorlevel%"=="0" (set "EdgeFlashPlayer=Disabled") else (set "EdgeFlashPlayer=Enabled")
3502
3503exit/b
3504
3505
3506:Enable-EdgeFlashPlayer
3507Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Addons" /v "FlashPlayerEnabled" /t REG_DWORD /d "1" /f >nul
3508
3509call :msgbox ok 300
3510exit /b
3511
3512
3513:Disable-EdgeFlashPlayer
3514Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\Addons" /v "FlashPlayerEnabled" /t REG_DWORD /d "0" /f >nul
3515
3516call :msgbox ok 300
3517exit /b
3518
3519::==============================================================================================================================================================================
3520
3521:verify-FavoritesBar
3522 reg query "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\LinksBar" /v Enabled | find "0x1" >nul
3523 if "%errorlevel%"=="0" (set "FavoritesBar=Enabled") else (set "FavoritesBar=Disabled")
3524
3525exit/b
3526
3527
3528:Enable-FavoritesBar
3529Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\LinksBar" /v "Enabled" /t REG_DWORD /d "1" /f >nul
3530
3531call :msgbox ok 300
3532exit /b
3533
3534
3535:Disable-FavoritesBar
3536Reg.exe add "HKCU\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\LinksBar" /v "Enabled" /t REG_DWORD /d "0" /f >nul
3537
3538call :msgbox ok 300
3539exit /b
3540
3541::==============================================================================================================================================================================
3542
3543:verify-NewTabPage
3544 reg query "HKEY_CURRENT_USER\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v NewTabPageDisplayOption | find "0x2" >nul
3545 if "%errorlevel%"=="0" (set "NewTabPage=Blank") else (set "NewTabPage=Suggested" )
3546
3547 reg query "HKEY_CURRENT_USER\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v NewTabPageDisplayOption | find "0x1"
3548 if "%errorlevel%"=="0" (set "NewTabPage=Topsites" )
3549exit /b
3550
3551
3552:NewTabPage-Blank
3553Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v "NewTabPageDisplayOption" /t REG_DWORD /d "2" /f >nul
3554exit /b
3555
3556:NewTabPage-Topsites
3557Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v "NewTabPageDisplayOption" /t REG_DWORD /d "1" /f >nul
3558exit /b
3559
3560:NewTabPage-Suggested
3561Reg.exe add "HKEY_CURRENT_USER\SOFTWARE\Classes\Local Settings\Software\Microsoft\Windows\CurrentVersion\AppContainer\Storage\microsoft.microsoftedge_8wekyb3d8bbwe\MicrosoftEdge\ServiceUI" /v "NewTabPageDisplayOption" /t REG_DWORD /d "0" /f >nul
3562exit /b
3563
3564
3565::==============================================================================================================================================================================
3566
3567
3568:LTSB
3569cls
3570set Button1Color=3F
3571
3572%BB% ^
3573 /c 0x1F /g 16 1 /d "_______________________________________________________________________________________"^
3574 /g 15 2 /d "| ____ ____ __ _ _ _ __ _ _ ____ ____ __ __ ____ ____ ____ |"^
3575 /g 15 3 /d "| ( _ \( _ \ / \ / ) / )( \ / \ ( \/ )( __) (_ _)/ \ ( ) (_ _)/ ___)( _ \ |"^
3576 /g 15 4 /d "| ) __/ ) /( O ) / / ) __ (( O )/ \/ \ ) _) )( ( O ) / (_/\ )( \___ \ ) _ ( |"^
3577 /g 15 5 /d "| (__) (__\_) \__/ (_/ \_)(_/ \__/ \_)(_/(____) (__) \__/ \____/(__) (____/(____/ |"^
3578 /g 15 6 /d "|_______________________________________________________________________________________|"^
3579 /g 15 7 /d " "^
3580 /g 16 8 /d "________________________________________________________________________________________"^
3581 /c 0x%Button1Color% /g 15 9 /d "| |"^
3582 /g 15 10 /d "| 1.Turn Pro/Home version to LTSB (Kind of) |"^
3583 /g 15 11 /d "| This will : Remove Microsoft Edge completely using 'install_wim_tweak' |"^
3584 /g 15 12 /d "| Remove Cortana and SearchUI |"^
3585 /g 15 13 /d "| Remove All modern apps and Windows store |"^
3586 /g 15 14 /d "| Restore Win32 Calculator |"^
3587 /g 15 15 /d "| You should be connected to Internet to download necessary files. |"^
3588 /g 15 16 /d "| Microsoft .NET Framework 3.5 should be installed. |"^
3589 /g 15 17 /d "| After removing these apps you won't be able to restore them (No backup Files) |"^
3590 /g 15 18 /d "|________________________________________________________________________________________|"^
3591 /c 0x1F /g 16 24 /d "________________________________________________________________________________________"^
3592 /c 0x9F /g 15 25 /d "| |"^
3593 /c 0x9F /g 15 26 /d "| 0. Go Back |"^
3594 /c 0x9F /g 15 27 /d "|________________________________________________________________________________________|"^
3595 /c 0x1F
3596
3597
3598
3599If /i "%SelectMode%"=="Mouse" (
3600for /f "tokens=1,2,3 delims=:" %%a in ('%BB% /m') do (
3601 %BB% /g 0 0
3602
3603 set "buttonClicked"=""
3604 %BB% /d "mouse: %%b %%a %%c " >nul 2>&1
3605 if %%c EQU 1 if %%b GEQ 9 if %%b LEQ 18 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=1"
3606 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 28 if %%a GEQ 15 if %%a LEQ 104 set "buttonClicked=0"
3607 )
3608) else (
3609 %BB% /g 16 29
3610 Set /p buttonClicked=Use Your Keyboard Numbers to select options :
3611)
3612
3613
3614If %buttonClicked%==0 goto MainMenu
3615If %buttonClicked%==1 call :LTSB_Confirm
3616goto LTSB
3617
3618:LTSB_Confirm
3619call :msgbox Confirm
3620if /i "!buttonClicked!"=="No" ( goto LTSB
3621) else (
3622cls
3623
3624call :Servercheck drive.google.com LTSB
3625
3626call :Infomsgbox "Uninstalling All modern apps" 9F 1
3627
3628for %%a in (%AppStrings%) do (
3629 rem === get App Name without underscore
3630 set "AppName=%%a"
3631 set "AppName=!AppName:~0,-14!"
3632
3633 rem === Remove apps
3634 echo Removing "!AppName!" from user...
3635 powershell.exe -command "Get-AppxPackage Microsoft.!AppName! | Remove-AppxPackage"
3636)
3637
3638
3639call :Infomsgbox "Restoring Win32 Calculator" 9F 1
3640call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiaGNnbm94aDhQbjg" Old-Calculator-for-Windows10.exe
3641"Old-Calculator-for-Windows10.exe" /S
3642del "Old-Calculator-for-Windows10.exe"
3643
3644
3645call :Download "https://drive.google.com/uc?export=download&id=0B_Y-lCJYwHfiWTNGYXdiRU9SNVU" install_wim_tweak.exe
3646
3647call :Infomsgbox "Uninstalling Microsoft Edge" 9F 1
3648install_wim_tweak.exe /o /l
3649install_wim_tweak.exe /o /c Microsoft-Windows-Internet-Browser-Package /r
3650install_wim_tweak.exe /h /o /l
3651
3652
3653call :Infomsgbox "Uninstalling Microsoft Cortana" 9F 1
3654install_wim_tweak.exe /o /l
3655install_wim_tweak.exe /o /c Microsoft-Windows-Cortana /r
3656install_wim_tweak.exe /h /o /l
3657
3658
3659del Packages.txt
3660del install_wim_tweak.exe
3661
3662call :msgbox Ok 400
3663goto LTSB
3664)
3665
3666
3667::==============================================================================================================================================================================
3668
3669
3670
3671
3672:This-PC
3673call :ClearButtons
3674
3675call :verify-F "{088e3905-0323-4b02-9826-5d99428e115f}" "1" >nul 2>&1
3676call :verify-F "{24ad3ad4-a569-4530-98e1-ab02f9417aa8}" "2" >nul 2>&1
3677call :verify-F "{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}" "3" >nul 2>&1
3678call :verify-F "{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}" "4" >nul 2>&1
3679call :verify-F "{d3162b92-9365-467a-956b-92703aca08af}" "5" >nul 2>&1
3680call :verify-F "{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}" "6" >nul 2>&1
3681
3682
3683
3684
3685set "Title1= _______________________________________________________________________________________"
3686set "Title2= ^| ____ _ _ __ ____ ____ ___ ____ __ __ ____ ____ ____ ____ ^|"
3687set "Title3= ^| (_ _)/ )( \( )/ ___) ___ ( _ \ / __) ( __)/ \ ( ) ( \( __)( _ \/ ___) ^|"
3688set "Title4= ^| )( ) __ ( )( \___ \ (___) ) __/( (__ ) _)( O )/ (_/\ ) D ( ) _) ) /\___ \ ^|"
3689set "Title5= ^| (__) \_)(_/(__)(____/ (__) \___) (__) \__/ \____/(____/(____)(__\_)(____/ ^|"
3690set "Title6= ^|_______________________________________________________________________________________^|"
3691
3692set "button1= Downloads (%F1% )"
3693set "button3= Music (%F3% )"
3694set "button5= Documents (%F5% )"
3695
3696set "button9= Remove All Folders From This PC"
3697
3698set "button2= Pictures (%F2% )"
3699set "button4= Desktop (%F4% )"
3700set "button6= Videos (%F6% )"
3701set "button10= Add All Folders to This PC"
3702
3703
3704set "button14=Go Back" & set Button14Color=%BackButtonColor%
3705call :drawMenu
3706
3707
3708call :readInput
3709
3710if "%buttonClicked%"=="1" ( (if /i "%F1%"==" ON" (Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{088e3905-0323-4b02-9826-5d99428e115f}" /f)) & (if /i "%F1%"=="OFF" (Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{088e3905-0323-4b02-9826-5d99428e115f}" /f)) & goto This-PC ) >nul 2>&1
3711if "%buttonClicked%"=="2" ( (if /i "%F2%"==" ON" (Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{24ad3ad4-a569-4530-98e1-ab02f9417aa8}" /f)) & (if /i "%F2%"=="OFF" (Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{24ad3ad4-a569-4530-98e1-ab02f9417aa8}" /f)) & goto This-PC ) >nul 2>&1
3712if "%buttonClicked%"=="3" ( (if /i "%F3%"==" ON" (Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}" /f)) & (if /i "%F3%"=="OFF" (Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}" /f)) & goto This-PC ) >nul 2>&1
3713if "%buttonClicked%"=="4" ( (if /i "%F4%"==" ON" (Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}" /f)) & (if /i "%F4%"=="OFF" (Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}" /f)) & goto This-PC ) >nul 2>&1
3714if "%buttonClicked%"=="5" ( (if /i "%F5%"==" ON" (Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{d3162b92-9365-467a-956b-92703aca08af}" /f)) & (if /i "%F5%"=="OFF" (Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{d3162b92-9365-467a-956b-92703aca08af}" /f)) & goto This-PC ) >nul 2>&1
3715if "%buttonClicked%"=="6" ( (if /i "%F6%"==" ON" (Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}" /f)) & (if /i "%F6%"=="OFF" (Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}" /f)) & goto This-PC ) >nul 2>&1
3716if "%buttonClicked%"=="9" ( Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{088e3905-0323-4b02-9826-5d99428e115f}" /f & Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{24ad3ad4-a569-4530-98e1-ab02f9417aa8}" /f & Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}" /f & Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}" /f & Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{d3162b92-9365-467a-956b-92703aca08af}" /f & Reg.exe delete "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}" /f & goto This-PC ) >nul 2>&1
3717if "%buttonClicked%"=="10" ( Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{088e3905-0323-4b02-9826-5d99428e115f}" /f & Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{24ad3ad4-a569-4530-98e1-ab02f9417aa8}" /f & Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{3dfdf296-dbec-4fb4-81d1-6a3438bcf4de}" /f & Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{B4BFCC3A-DB2C-424C-B029-7FE99A87C641}" /f & Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{d3162b92-9365-467a-956b-92703aca08af}" /f & Reg.exe add "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\{f86fa3ab-70d2-4fc7-9c99-fcbf05467f3a}" /f & goto This-PC ) >nul 2>&1
3718
3719
3720
3721
3722if "%buttonClicked%"=="14" goto Enable/Disable
3723goto This-PC
3724
3725
3726
3727
3728:verify-F
3729 reg query "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\MyComputer\NameSpace\%~1" /s >nul
3730 if "%errorlevel%"=="0" (set "F%~2= ON") else (set "F%~2=OFF")
3731
3732exit/b
3733
3734
3735
3736::==============================================================================================================================================================================
3737
3738:verify-GameMode
3739 reg query "HKEY_CURRENT_USER\SOFTWARE\Microsoft\GameBar" /v AllowAutoGameMode | find "0x1" >nul
3740 if "%errorlevel%"=="0" ( (set "GameMode=Enabled") & (set Button%~1Color="5F") ) else ( (set "GameMode=Disabled") & (set Button%~1Color="4F") )
3741
3742exit/b
3743
3744
3745:Enable-GameMode
3746reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\GameBar" /v "AllowAutoGameMode" /t reg_dword /d 1 /f >nul
3747
3748call :msgbox ok 300
3749exit /b
3750
3751
3752
3753
3754:Disable-GameMode
3755reg add "HKEY_CURRENT_USER\SOFTWARE\Microsoft\GameBar" /v "AllowAutoGameMode" /t reg_dword /d 0 /f >nul
3756
3757call :msgbox ok 300
3758exit /b
3759
3760
3761
3762
3763::==============================================================================================================================================================================
3764::==============================================================================================================================================================================
3765::==============================================================================================================================================================================
3766::==============================================================================================================================================================================
3767
3768
3769
3770
3771
3772
3773
3774
3775
3776:tweakA
3777:: Works only on 10240
3778call :validateBuild 10240
3779if "%applyTweak%"=="0" exit /b
3780::replace next line with tweak code
3781echo applying tweak 1...
3782call :msgBox ok
3783goto MainMenu
3784
3785
3786:tweakB
3787:: Works on 10586 and older builds
3788call :validateBuild 10586 -
3789if "%applyTweak%"=="0" exit /b
3790::replace next line with tweak code
3791echo applying tweak 2...
3792call :msgBox ok
3793exit /b
3794
3795
3796
3797:tweakC
3798:: Works on 10240 and newer builds
3799call :validateBuild 10240 +
3800if "%applyTweak%"=="0" exit /b
3801::replace next line with tweak code
3802echo applying tweak 3...
3803call :msgBox ok
3804exit /b
3805
3806
3807
3808
3809
3810
3811
3812::==============================================================================================================================================================================
3813::==============================================================================================================================================================================
3814::==============================================================================================================================================================================
3815::==============================================================================================================================================================================
3816::==============================================================================================================================================================================
3817::==============================================================================================================================================================================
3818
3819:::::::::::::::::::
3820:: Settings Menu ::
3821:::::::::::::::::::
3822
3823
3824
3825
3826
3827
3828
3829
3830
3831
3832:settingsMenu
3833call :ClearButtons
3834call :verify-SkipIntro 7
3835call :Verify-RestartExplorer 8
3836call :Verify-skipBuildWarning 6
3837
3838
3839set "Title1= ________________________________________________________________________________________"
3840set "Title2= ^| ___ ___ ____ ____ __ _ _ __ ___ ^|"
3841set "Title3= ^| / __) ( _) (_ _) (_ _) ( ) ( \( ) / _) / __) ^|"
3842set "Title4= ^| \__ \ ) _) )( )( )( ) ( ( ()) \__ ) ^|"
3843set "Title5= ^| (___/ (___) (__) (__) (__) (_)\_) \__/ (___) ^|"
3844set "Title6= ^|________________________________________________________________________________________^|"
3845set "Title7= ^|Created by 'Yasser Da Silva' ^& Designed by 'johnye_pt'"
3846set "button1=Create a Restore point"
3847set "button3=Send Feedback (Reply to MDL thread)"
3848set "button5=Change select Mode {'U'} Current: %SelectMode%"
3849set "button7=Skip Inro animation? Current: %SkipIntro%"
3850set "button9=What'NEW in this version (Change Log)"
3851
3852
3853set "button2=Backup the Registry"
3854set "button4=Send Feedback via eMail"
3855set "button6=Skip warning on new Windows builds? Current: %skipBuildWarning%"
3856set "button8=Auto restart Explorer.exe in [FE] options? Current: %RestartExplorer%"
3857
3858
3859set "button14=RETURN TO MAIN MENU" & set Button14Color=%BackButtonColor%
3860
3861if /i "%SelectMode%"=="Mouse" ( set Button5Color=3F
3862) else (
3863 set Button5Color=6F )
3864
3865
3866call :drawMenu
3867
3868%BB% ^
3869 /c 0x1F /g 0 28 /d "Instructions :"^
3870 /g 0 29 /d " [O] :The option requires an internet connection "^
3871 /g 0 30 /d " [FE] :The option requires File Explorer to be restarted "^
3872 /g 0 31 /d "[B:XX]:The option Runs on the 'X' Build mentiond and higher"^
3873 /g 59 9
3874
3875call :readInput
3876if "%buttonClicked%"=="1" cls & Wmic.exe /Namespace:\\root\default Path SystemRestore Call CreateRestorePoint "%DATE%", 100, 7 & pause
3877if "%buttonClicked%"=="2" call :backupregistry
3878if "%buttonClicked%"=="3" Start www.goo.gl/BNjTJG
3879if "%buttonClicked%"=="4" (start mailto:gy_drif@esi.dz?subject=Win%%2010%%20Toggle%%20Tweaker & GOTO settingsMenu)
3880if "%buttonClicked%"=="5" (if /i "%SelectMode%"=="Mouse" ( set "SelectMode=KBD" ) else ( set "SelectMode=Mouse" ) & Goto settingsMenu )
3881if "%buttonClicked%"=="6" (if /i "%skipBuildWarning%"=="YES" (Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "skipBuildWarning" /t REG_SZ /d "NO" /f ) else (Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "skipBuildWarning" /t REG_SZ /d "YES" /f ) & Goto settingsMenu )
3882if "%buttonClicked%"=="7" (if /i "%SkipIntro%"=="YES" (Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "SkipIntro" /t REG_SZ /d "NO" /f ) else ( Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "SkipIntro" /t REG_SZ /d "YES" /f ) & Goto settingsMenu )
3883if "%buttonClicked%"=="8" (if /i "%RestartExplorer%"=="YES" (Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "RestartExplorer" /t REG_SZ /d "NO" /f ) else ( Reg.exe add "HKLM\SOFTWARE\ToggleTweaker" /v "RestartExplorer" /t REG_SZ /d "YES" /f & call :RestartExplorer ) & Goto settingsMenu )
3884if "%buttonClicked%"=="9" call :WhatsNEW
3885
3886if "%buttonClicked%"=="14" goto :MainMenu
3887goto :settingsMenu
3888
3889
3890
3891:::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
3892:: function to create batbox.exe ::
3893:::::::::::::::::::::::::::::::::::
3894
3895:batbox
3896echo Creating batbox.exe...
3897::if exist "%temp%\batbox.exe" exit /b
3898for %%b in (
38994D5343460000000007040000000000002C000000000000000301010001000000
3900000000004700000001000100000800000000000000006546B1AE200062617462
39016F782E65786500CD6A9177B8030008434BBD555D681C55143E936443FFCC6EB3
3902196D91E214DA3EF421A06D404B03539368AA1B5D76B70D9442BA9B9DDD99CDEE
3903CC323B3129BE44362BD4BCF820F86011438A08BE06D452D1BA292DA5A13E14A9
39045AA58AC82C2DD887D4F6A1CDF89D3B93660BC1F6C17A77BF3BE77CE7DC73BFFB
3905B3B34347A64822A2368A90E711A9ECA0A9F4E83605743C77BA83E6D72F6EFF52
39068A2D6E4FE9464529DB56DE4E9794D1B4695A8E92D1147BDC540C53E97F33A994
3907ACACD6FDD4861D2B35E203443149A2D87777532BDC750A4B1B25E9156A87D31E
3908909126B03A7EB6100572A13F688ACFE7EF13B5368F7B9019B841DB16257AA6E5
39093116FB1FB7EE5C31EDE0A9870241EDBEEEE6768CB7E20937BD5F56A9E03FF417
3910B9DB8BCE93AF77A9545DE82ADCF6E46B5195E6544EFB3B70F6C3711350DBF75E
391174EAA2F2BC97FB6A13EDFB703D62E1E93DE05FCDFF7EABF193E779EE667871AF
3912471545FF4042A30E7AEA6D69245CEBC0FC9EEC62A6DAB7E1E9CFC1A33EBC5E5E
391375B8B651849908E162D2DC561EBD846374CFA06B0D2D7442CA2574B9B94116F4
3914A9602F30FBBD605FE3497B0645EF0B70B9C4CBACEB3892CF87AE74FAF77C8E0D
39155D745F7472E255CCDAD8CA8963484C36B1D585750DE2C0258CBB133A8ABAF7E1
3916866B37D0CFA6647F31BF72C64D6434AE2CC3FA0496FB0BBBE7D8BDC717DF936F
3917B19A79266EB0065E8FFB1B5BBC86C64708E8C79AC4DF45BA7B96E3593EA7E6D0
391812572A70A559C44F9CF7E47B608631C7498EC411F142BC29B3ABFB35BBBA498D
39191F9050D8E2F5ECF7CF1E63FC7B21E931318BCFDF045FEDE5008E79112573D55E
39208EB7846BDFC0ABCFF4C6E19D583EFB57E49D3FF965D22AB6273E7C583FDDB47F
392191BAFB345416F049A2A8E036D5BD1D5FFF88A46A882F61DBCC367ECC3C5BFB39
39223CCD3FDCBAD7C3C78F2B24D2DB76566867769FF86E58FB62BF1551691EB8038C
392300CA66955E026A80037C0C5C0634A0018CE5D3A3D99235A1978F9BDD998CA871
3924A66BB55E092F8AABF0E7A3ABDC24EC6BC0074DDCBBB04F46D7D634943CDC9748
392575F7C762F4FA40E28D81D89E17844387920389159BE85430FCD4833249DD9A18
392636CCAC3521DE7590D105EC0254E02850062681F781CF02D98F9B87DFABE6249D
3927EC60DACC1635319FE6F45966C52A6A43785F3FCCA4B449E780E3D84666DCD11E
39288AF48DDB15CB8E5B15C3312C934725B47436081E34CBE3CE01CE2F6A5A798D71
392907CD9C15687904BFB2134BD0BF0CAC9389B6000AB05BF657F46F31EC826D984E
39308EAD91BCE68CEAC262B39436CCB49DAFC0D7260D47F06319DDB72A8EED58C5FF
3931FFBFE249B67F00
3932) Do >>t.dat (Echo.%%b)
3933certutil -decodehex t.dat batbox.ex_ >nul 2>&1
3934::Cscript /b /e:vbs t.dat>batbox.ex_
3935Del /f /q /a t.dat >nul 2>&1
3936Expand -r batbox.ex_ >nul 2>&1
3937Del /f /q /a batbox.ex_ >nul 2>&1
3938move /y batbox.exe "%temp%" >nul 2>&1
3939exit /b
3940
3941
3942
3943:verify-SkipIntro
3944reg query "%Main_Script_Reg_key%" /v SkipIntro | find "YES" >nul
3945 if "%errorlevel%"=="0" ( (set "SkipIntro=YES" ) & (set Button%~1Color="4F") ) else ( (set "SkipIntro=NO") & (set Button%~1Color="2F") )
3946exit /b
3947
3948
3949
3950:backupregistry
3951cls
3952setlocal
3953set "path=%~dp0Registry Backup %date:~0,2%-%date:~3,2%-%date:~6,4%_%time:~0,2%-%time:~3,2%"
3954mkdir "%Path%" >nul 2>&1
3955 echo ^>^> Export : This operation could take up to 1Gb of space and some time
3956 echo ^>^> Export : Saving Files to "%PATH%"
3957 echo ^>^> Export : Please Wait ..
3958
3959for %%k in (CR CU LM U CC) do call :ExpReg %%k
3960echo.
3961pause
3962exit /b
3963
3964
3965:ExpReg
3966%windir%\System32\reg.exe export HK%1 "%PATH%\HK%1.reg" >nul 2>&1
3967if "%errorlevel%"=="1" (
3968 echo ^>^> Export : --HK%1-- Failed.
3969) else (
3970 echo ^>^> Export : --HK%1-- Succeed.
3971)
3972
3973exit /b
3974endlocal
3975
3976
3977:Verify-skipBuildWarning
3978reg query "%Main_Script_Reg_key%" /v skipBuildWarning | find "YES" >nul
3979 if "%errorlevel%"=="0" ( (set "skipBuildWarning=YES" ) & (set Button%~1Color="4F") ) else ( (set "skipBuildWarning=NO") & (set Button%~1Color="2F") )
3980exit /b
3981
3982
3983::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
3984:: function to autorestart explorer according to settings ::
3985::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
3986:RestartExplorer
3987call :Verify-RestartExplorer
3988If /i "%RestartExplorer%"=="Yes" (taskkill /IM explorer.exe /F & explorer.exe)
3989exit /b
3990
3991
3992:Verify-RestartExplorer
3993reg query "%Main_Script_Reg_key%" /v RestartExplorer | find "YES" >nul
3994 if "%errorlevel%"=="0" ( (set "RestartExplorer=YES" ) & (set Button%~1Color="2F") ) else ( (set "RestartExplorer=NO") & (set Button%~1Color="4F") )
3995exit /b
3996
3997
3998
3999::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4000:: function to Clear previous buttons entries ::
4001::::::::::::::::::::::::::::::::::::::::::::::::
4002:ClearButtons
4003for /l %%a in (1,1,14) do (
4004 if %%a LEQ 7 set "Title%%a= "
4005 set "button%%a= "
4006 set "Button%%aColor=1F"
4007)
4008set "buttonClicked="
4009set "NextMenu=0"
4010
4011%BB% /c 0x1F
4012exit /b
4013
4014
4015
4016
4017:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4018:: function to align text in a variable by adding spaces ::
4019:: parameters: textString destinationSize returnString ::
4020:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4021:alignText
4022 setlocal
4023 set "text=%~1"
4024 rem get string length
4025 :lenLoop
4026 if not "!text:~%len%!"=="" set /a len+=1 & goto :lenLoop
4027 rem add spaces to both sides, starting from string length + 2
4028 set /a len+=2 & for /l %%a in (!len!,2,%~2) do set "text= !text! "
4029 rem add an extra space at the end when spaces and length are uneven
4030 set /a len = %~2 - %len% & set /a len = !len! %% 2
4031 if "%len%"=="1" set "text=%text% "
4032 endlocal & set "%~3=%text%"
4033exit /b
4034
4035
4036
4037
4038::::::::::::::::::::::::::::::==============================================================================================================================================================================
4039:: function to draw menus ::
4040::::::::::::::::::::::::::::
4041
4042:drawMenu
4043
4044
4045cls
4046echo.
4047echo.%title1%
4048echo.%title2%
4049echo.%title3%
4050echo.%title4%
4051echo.%title5%
4052echo.%title6%
4053echo.%title7%
4054
4055
4056
4057 %BB% /c 0xF1
4058If /i "%SelectMode%"=="Mouse" ( %BB% /g 4 8 & %BB% /d "|Use Your Mouse to select options :"
4059) else (
4060 %BB% /g 4 8 & %BB% /d "|Use Your Keyboard Numbers to select options :" )
4061
4062
4063
4064set Line=""
4065
4066
4067
4068for /l %%n in (1,1,14) do (
4069 if not "!button%%n!"==" " (
4070
4071call :CalculateTextPos %%n
4072set T=!TextPos!
4073
4074:: Calculate Button X position
4075set Number=%%n
4076SET /a NUMmod2=!Number! %% 2
4077if !NUMmod2!==0 (set b=59
4078) else (
4079Set b=1 )
4080
4081:: Calculate Button Y position
4082set /a C=Number/2
4083set /a C=Number-C
4084set /a c=c*3+6
4085
4086
4087Set "L= "
4088If !Number! GEQ 3 set L="|"
4089
4090
4091
4092
4093:: Add spaces to button Key
4094call :strlen STRLength Buttonkey%%n
4095If !STRLength! EQU 1 ( set Buttonkey%%n= !Buttonkey%%n!
4096 ) else (
4097 If not !STRLength! EQU 2 (
4098 set Buttonkey%%n=%%n
4099 call :strlen STRLength Buttonkey%%n
4100 If !STRLength! EQU 1 set Buttonkey%%n= %%n
4101 )
4102 )
4103
4104
4105
4106If %%n EQU 1 set PreviousColor=1F
4107If %%n EQU 2 set PreviousColor=1F
4108If %%n EQU 3 set PreviousColor=!Button1Color!
4109If %%n EQU 4 set PreviousColor=!Button2Color!
4110If %%n EQU 5 set PreviousColor=!Button3Color!
4111If %%n EQU 6 set PreviousColor=!Button4Color!
4112If %%n EQU 7 set PreviousColor=!Button5Color!
4113If %%n EQU 8 set PreviousColor=!Button6Color!
4114If %%n EQU 9 set PreviousColor=!Button7Color!
4115If %%n EQU 10 set PreviousColor=!Button8Color!
4116If %%n EQU 11 set PreviousColor=!Button9Color!
4117If %%n EQU 12 set PreviousColor=!Button10Color!
4118If %%n EQU 13 set PreviousColor=!Button11Color!
4119If %%n EQU 14 set PreviousColor=!Button12Color!
4120
4121
4122
4123set /a b+=1
4124set Line=!Line! /c 0x!PreviousColor! /g !b! !c! /d "_________________________________________________________" & set /a c+=1 & set /a b-=1
4125set Line=!Line! /c 0x!Button%%nColor! /g !b! !c! /d "| !Buttonkey%%n!. |" & set /a c+=1
4126set Line=!Line! /g !b! !c! /d "| |"
4127set Line=!Line! /g !T! !c! /d "!button%%n!" & set /a c+=1
4128set Line=!Line! /g !b! !c! /d "|_________________________________________________________|" & set /a c+=1
4129
4130
4131
4132)
4133)
4134
4135
4136
4137%BB% !Line!
4138
4139
4140%BB% ^
4141 /c 0x1F /g 106 6 /d " __________"^
4142 /c 0x2F /g 106 7 /d "| |"^
4143 /g 106 8 /d "| SEARCH |"^
4144 /g 106 9 /d "|__________|"
4145
4146
4147If /i "%SelectMode%"=="Mouse" ( %BB% ^
4148 /c 0x1F /g 111 1 /d " _______"^
4149 /c 0x3F /g 111 2 /d "| "^
4150 /g 111 3 /d "| USE "^
4151 /g 111 4 /d "| KBD "^
4152 /g 111 5 /d "|_______"
4153
4154) else (%BB% ^
4155 /c 0x1F /g 111 1 /d " _______"^
4156 /c 0x3F /g 111 2 /d "| "^
4157 /g 111 3 /d "|Press U"^
4158 /g 111 4 /d "|'Mouse'"^
4159 /g 111 5 /d "|_______"
4160 )
4161
4162
4163
4164
4165
4166
4167If not %NextMenu%==0 (
4168%BB% ^
4169 /c 0x1F /g 108 2 /d " ___ __ "^
4170 /g 108 3 /d "(___)\ \ "^
4171 /g 108 4 /d " ___ ) )"^
4172 /g 108 5 /d "(___)/_/ "
4173)
4174
4175
4176
4177 %BB% /g 59 9
4178 %BB% /c 0x1F
4179exit /b
4180
4181
4182
4183::::::::::::::::========================================================================================================================================================================
4184::ClearButton ::
4185::::::::::::::::
4186
4187
4188:ClearButton
4189
4190set Number=%~1
4191set Line=""
4192
4193:: Calculate Button X position
4194SET /a NUMmod2=!Number! %% 2
4195if !NUMmod2!==0 (set b=59
4196) else (
4197Set b=1 )
4198
4199:: Calculate Button Y position
4200set /a C=Number/2
4201set /a C=Number-C
4202set /a c=c*3+6
4203
4204set /a b+=1
4205
4206set Line=!Line! /c 0x1F /g !b! !c! /d " " & set /a c+=1 & set /a b-=1
4207set Line=!Line! /g !b! !c! /d " " & set /a c+=1
4208set Line=!Line! /g !b! !c! /d " " & set /a c+=1
4209set Line=!Line! /g !b! !c! /d " "
4210set Line=!Line! /g 59 9
4211
4212
4213%BB% !Line!
4214
4215exit /b
4216
4217
4218
4219::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4220:: Calculate text position for buttons ::
4221:::::::::::::::::::::::::::::::::::::::::
4222
4223:CalculateTextPos
4224call :strlen STRLength Button%~1
4225Set /a TextPos=56-STRLength
4226Set /a TextPos=TextPos/2
4227
4228SET /a NUMmod2=%~1 %% 2
4229
4230if %NUMmod2%==0 (Set /a TextPos=TextPos+61
4231) else (
4232Set /a TextPos=TextPos+3 )
4233
4234
4235exit /b
4236
4237
4238
4239
4240
4241
4242::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4243:: Function to select Input methode ::
4244::::::::::::::::::::::::::::::::::::::
4245:readInput
4246If /i "%SelectMode%"=="Mouse" ( goto readMouse
4247) else (
4248 goto readKeyboard )
4249
4250
4251
4252:::::::::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4253:: function to read mouse on menus and Yes/No dialogs ::
4254::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4255:readMouse
4256for /f "tokens=1,2,3 delims=:" %%a in ('%BB% /m') do (
4257 %BB% /g 0 0
4258
4259 set "buttonClicked"=""
4260 %BB% /d "mouse: %%b %%a %%c " >nul 2>&1
4261 if /i "%~1"=="YesNo" (
4262 set "buttonClicked=NO"
4263 if %%c EQU 1 if %%b GEQ 29 if %%b LEQ 31 if %%a GEQ 76 if %%a LEQ 84 set "buttonClicked=YES"
4264 ) else (
4265 if %%c EQU 1 if %%b GEQ 10 if %%b LEQ 12 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=1"
4266 if %%c EQU 1 if %%b GEQ 13 if %%b LEQ 15 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=3"
4267 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 18 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=5"
4268 if %%c EQU 1 if %%b GEQ 19 if %%b LEQ 21 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=7"
4269 if %%c EQU 1 if %%b GEQ 22 if %%b LEQ 24 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=9"
4270 if %%c EQU 1 if %%b GEQ 25 if %%b LEQ 27 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=11"
4271 if %%c EQU 1 if %%b GEQ 28 if %%b LEQ 30 if %%a GEQ 2 if %%a LEQ 59 set "buttonClicked=13"
4272 if %%c EQU 1 if %%b GEQ 10 if %%b LEQ 12 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=2"
4273 if %%c EQU 1 if %%b GEQ 13 if %%b LEQ 15 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=4"
4274 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 18 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=6"
4275 if %%c EQU 1 if %%b GEQ 19 if %%b LEQ 21 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=8"
4276 if %%c EQU 1 if %%b GEQ 22 if %%b LEQ 24 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=10"
4277 if %%c EQU 1 if %%b GEQ 25 if %%b LEQ 27 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=12"
4278 if %%c EQU 1 if %%b GEQ 28 if %%b LEQ 30 if %%a GEQ 60 if %%a LEQ 117 set "buttonClicked=14"
4279 if %%c EQU 1 if %%b GEQ 7 if %%b LEQ 9 if %%a GEQ 106 if %%a LEQ 117 call :searchTweaks
4280 if %%c EQU 1 if %%b GEQ 1 if %%b LEQ 5 if %%a GEQ 111 if %%a LEQ 119 ( If /i "%SelectMode%"=="Mouse" (set "SelectMode=KBD" ) else ( set "SelectMode=Mouse" ) )
4281
4282 )
4283
4284
4285if /i "%~1"=="text" (
4286
4287 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 10 if %%a LEQ 18 set "buttonClicked=1"
4288 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 20 if %%a LEQ 28 set "buttonClicked=2"
4289 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 30 if %%a LEQ 38 set "buttonClicked=3"
4290 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 40 if %%a LEQ 48 set "buttonClicked=4"
4291 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 50 if %%a LEQ 58 set "buttonClicked=5"
4292 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 60 if %%a LEQ 68 set "buttonClicked=6"
4293 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 70 if %%a LEQ 78 set "buttonClicked=7"
4294 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 80 if %%a LEQ 88 set "buttonClicked=8"
4295 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 90 if %%a LEQ 98 set "buttonClicked=9"
4296 if %%c EQU 1 if %%b GEQ 11 if %%b LEQ 15 if %%a GEQ 100 if %%a LEQ 108 set "buttonClicked=0"
4297
4298 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 10 if %%a LEQ 18 set "buttonClicked=Q"
4299 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 20 if %%a LEQ 28 set "buttonClicked=W"
4300 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 30 if %%a LEQ 38 set "buttonClicked=E"
4301 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 40 if %%a LEQ 48 set "buttonClicked=R"
4302 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 50 if %%a LEQ 58 set "buttonClicked=T"
4303 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 60 if %%a LEQ 68 set "buttonClicked=Y"
4304 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 70 if %%a LEQ 78 set "buttonClicked=U"
4305 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 80 if %%a LEQ 88 set "buttonClicked=I"
4306 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 90 if %%a LEQ 98 set "buttonClicked=O"
4307 if %%c EQU 1 if %%b GEQ 16 if %%b LEQ 20 if %%a GEQ 100 if %%a LEQ 108 set "buttonClicked=P"
4308
4309 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 10 if %%a LEQ 18 set "buttonClicked=A"
4310 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 20 if %%a LEQ 28 set "buttonClicked=S"
4311 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 30 if %%a LEQ 38 set "buttonClicked=D"
4312 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 40 if %%a LEQ 48 set "buttonClicked=F"
4313 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 50 if %%a LEQ 58 set "buttonClicked=G"
4314 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 60 if %%a LEQ 68 set "buttonClicked=H"
4315 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 70 if %%a LEQ 78 set "buttonClicked=J"
4316 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 80 if %%a LEQ 88 set "buttonClicked=K"
4317 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 90 if %%a LEQ 98 set "buttonClicked=L"
4318 if %%c EQU 1 if %%b GEQ 21 if %%b LEQ 25 if %%a GEQ 100 if %%a LEQ 108 set "buttonClicked=END"
4319
4320 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 10 if %%a LEQ 18 set "buttonClicked=Z"
4321 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 20 if %%a LEQ 28 set "buttonClicked=X"
4322 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 30 if %%a LEQ 38 set "buttonClicked=C"
4323 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 40 if %%a LEQ 48 set "buttonClicked=V"
4324 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 50 if %%a LEQ 58 set "buttonClicked=B"
4325 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 60 if %%a LEQ 68 set "buttonClicked=N"
4326 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 70 if %%a LEQ 78 set "buttonClicked=M"
4327 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 80 if %%a LEQ 98 set "buttonClicked=BACKSPACE"
4328 if %%c EQU 1 if %%b GEQ 26 if %%b LEQ 30 if %%a GEQ 100 if %%a LEQ 108 set "buttonClicked=Space"
4329
4330 if %%c EQU 1 if %%b GEQ 1 if %%b LEQ 5 if %%a GEQ 111 if %%a LEQ 119 ( If /i "%SelectMode%"=="Mouse" (set "SelectMode=KBD" & %BB% /c 0x1F & goto searchTweaks ) else ( set "SelectMode=Mouse" & %BB% /c 0x1F & goto searchTweaks ) )
4331 )
4332
4333 if %%c EQU 1 if %%b GEQ 3 if %%b LEQ 5 if %%a GEQ 108 if %%a LEQ 116 (Set NextMenu=0 & goto %NextMenu%)
4334
4335
4336)
4337exit /b
4338
4339
4340
4341::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4342:: Function to read keyboard input on menus ::
4343::::::::::::::::::::::::::::::::::::::::::::::
4344:readkeyboard
4345
4346 %BB% /c 0x1F
4347 %BB% /g 51 8 & %BB% /d " " & %BB% /g 51 8
4348
4349set /p key=
4350
4351 set "buttonClicked"=""
4352
4353 if /i "%~1"=="YesNo" (
4354 set "buttonClicked=NO"
4355 if %key% EQU 1 set "buttonClicked=YES"
4356 ) else (
4357
4358
4359if %key% EQU 1 set "buttonClicked=1"
4360if %key% EQU 2 set "buttonClicked=2"
4361if %key% EQU 3 set "buttonClicked=3"
4362if %key% EQU 4 set "buttonClicked=4"
4363if %key% EQU 5 set "buttonClicked=5"
4364if %key% EQU 6 set "buttonClicked=6"
4365if %key% EQU 7 set "buttonClicked=7"
4366if %key% EQU 8 set "buttonClicked=8"
4367if %key% EQU 9 set "buttonClicked=9"
4368if %key% EQU 10 set "buttonClicked=10"
4369if %key% EQU 11 set "buttonClicked=11"
4370if %key% EQU 12 set "buttonClicked=12"
4371if %key% EQU 13 set "buttonClicked=13"
4372if %key% EQU 14 set "buttonClicked=14"
4373if %key% EQU 0 set "buttonClicked=14"
4374if /i %key% EQU S call :searchTweaks
4375if /i %key% EQU U ( If /i "%SelectMode%"=="Mouse" (set "SelectMode=KBD" ) else ( set "SelectMode=Mouse" ) )
4376if /i %key% EQU Search call :searchTweaks
4377if /i %key% EQU N (Set NextMenu=0 & goto %NextMenu%)
4378if /i %key% EQU Next (Set NextMenu=0 & goto %NextMenu%)
4379 )
4380)
4381
4382exit /b
4383
4384
4385
4386
4387
4388
4389:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4390:: function to check if current build applies to tweak ::
4391:::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4392:validateBuild
4393set "buildExists=0"
4394set "applyTweak=0"
4395
4396for %%x in (%knownBuilds%) do if "%%x" EQU "%windowsBuild%" set "buildExists=1"
4397
4398
4399If "%~2"=="+" ( if "%windowsBuild%" GEQ "%~1" (set "applyTweak=1" & exit /b ) )
4400If "%~2"=="-" ( if "%windowsBuild%" LEQ "%~1" (set "applyTweak=1" & exit /b ) )
4401
4402
4403
4404
4405if "!buildExists!"=="0" (
4406 if /i "%skipBuildWarning%"=="yes" (
4407 set "applyTweak=1"
4408 ) else (
4409 call :msgBox UnknownBuild
4410 if /i "!buttonClicked!"=="YES" set "applyTweak=1"
4411 cls
4412 )
4413 exit /b
4414)
4415
4416for %%x in (%*) do if "%%x"=="%windowsBuild%" set "applyTweak=1"
4417if "%applyTweak%"=="0" call :msgBox No
4418
4419
4420
4421exit /b
4422
4423
4424
4425
4426
4427
4428
4429:::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4430:: function to display message buttons and Yes/No buttons ::
4431::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4432:msgBox
4433
4434set "msgYesNo=0"
4435
4436if /i "%~1"=="ok" set "msgText= Operation Completed successfully. " & set "msgColor=0x2F" & goto ShowmsgBox
4437if /i "%~1"=="no" set "msgText= This tweak doesn't work on this Windows build. " & set "msgColor=0x4F" & goto ShowmsgBox
4438if /i "%~1"=="edge" set "msgText= MS Edge should be relaunched. " & set "msgColor=0x2F" & goto ShowmsgBox
4439if /i "%~1"=="Confirm" set "msgText= Do you Confirm the Operation " & set "msgColor=0x5F" & set "msgYesNo=1" & goto ShowmsgBox
4440if /i "%~1"=="UnknownBuild" set "msgText= Win-Build: %windowsBuild% is unknown, apply tweak anyway?" & set "msgColor=0x1F" & set "msgYesNo=1" & goto ShowmsgBox
4441if /i "%~1"=="NewVersion" set "msgText= New version (V%NewV%).Download it? " & set "msgColor=0x5F" & set "msgYesNo=1" & goto ShowmsgBox
4442
4443set "msgText=%~1"
4444
4445
4446:ShowmsgBox
4447:: position text box according to whether or not it has yes/no buttons on the right
4448if "%msgYesNo%"=="0" ( set "msgPosX=34" ) else ( set "msgPosX=24" )
4449%BB% /c 0x1F
4450%BB% /g %msgPosX% 28 & %BB% /d " _________________________________________________ "
4451%BB% /c %msgColor%
4452%BB% /g %msgPosX% 29 & %BB% /d "| |"
4453%BB% /g %msgPosX% 30 & %BB% /d "|%msgText%|"
4454%BB% /g %msgPosX% 31 & %BB% /d "|_________________________________________________|"
4455
4456:: wait for a mouse click, OR print yes/no and check if YES was clicked, anywhere else is NO
4457if "%msgYesNo%"=="0" (
4458
4459If "%~2"=="" (
4460 If /i "%SelectMode%"=="Mouse" ( %BB% /m >nul
4461 ) else ( %BB% /k )
4462 exit /b
4463) else (
4464 %BB% /w "%~2"
4465exit /b )
4466
4467 ) else (
4468 %BB% /c 0x1F
4469 %BB% /g 76 28 & %BB% /d " _______ "
4470 %BB% /c 0x2F
4471 %BB% /g 76 29 & %BB% /d "| |"
4472 %BB% /g 76 30 & %BB% /d "| YES |"
4473 %BB% /g 76 31 & %BB% /d "|_______|"
4474 %BB% /c 0x1F
4475 %BB% /g 87 28 & %BB% /d " _______ "
4476 %BB% /c 0x4F
4477 %BB% /g 87 29 & %BB% /d "| |"
4478 %BB% /g 87 30 & %BB% /d "| N O |"
4479 %BB% /g 87 31 & %BB% /d "|_______|"
4480 call :readMouse YesNo
4481)
4482Color 1F
4483exit /b
4484
4485
4486
4487
4488
4489
4490:::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4491:: Function to Display Info messages ::
4492:::::::::::::::::::::::::::::::::::::::
4493
4494:Infomsgbox
4495set "String=%~1"
4496If "%~2"=="" ( set "msgColor=0x9F" ) else set "msgColor=0x%~2"
4497
4498call :strlen STRLength String
4499set /a TextPosX=20+(76-%STRLength%)/2
4500
4501%BB% /c 0x1F
4502%BB% /g 20 28 & %BB% /d " ____________________________________________________________________________ "
4503%BB% /c %msgColor%
4504%BB% /g 20 29 & %BB% /d "| |"
4505%BB% /g 20 30 & %BB% /d "| |"
4506%BB% /g 20 31 & %BB% /d "|____________________________________________________________________________|"
4507
4508
4509%BB% /g %TextPosX% 30 & %BB% /d "%String%"
4510%BB% /g 0 0
4511%BB% /c 0x1F
4512
4513If "%~3"=="" (
4514 If /i "%SelectMode%"=="Mouse" ( %BB% /m >nul
4515 ) else ( %BB% /k )
4516 exit /b
4517) else (
4518 %BB% /w "%~3" >nul
4519exit /b )
4520
4521
4522
4523
4524
4525
4526::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4527:: function to check internet ::
4528::::::::::::::::::::::::::::::::
4529:: first function input (%~1) is the server that you want to ping it
4530:: second input is the menu to goto if Ping failed
4531
4532
4533:Servercheck
4534ping -n 1 %~1 >nul
4535if errorlevel 1 (
4536
4537%BB% /c 0x1F
4538%BB% /g 34 3 & %BB% /d " _________________________________________________ "
4539%BB% /c 0x4F
4540%BB% /g 34 4 & %BB% /d "| |"
4541%BB% /g 34 5 & %BB% /d "| Couldn't establish a reliable connection |"
4542%BB% /g 34 6 & %BB% /d "|_________________________________________________|"
4543%BB% /c 0x4F
4544 ping 127.0.0.1 -n 3 > NUL 2>&1
4545%BB% /g 0 0 /c 0x1F
4546 goto %~2
4547)
4548
4549
4550
4551
4552::::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4553:: function to download files from direct links ::
4554::::::::::::::::::::::::::::::::::::::::::::::::::
4555:: first function input (%~1) is the link and the second one is the file name and extension
4556:: Link should be presented like this to avoid problems with special characters : "Link_HERE"
4557
4558:Download
4559echo strFileURL = "%~1" > Download.vbs
4560echo strHDLocation = "%CD%\%~2" >> Download.vbs
4561echo Set objXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP") >> Download.vbs
4562echo objXMLHTTP.open "GET", strFileURL, false >> Download.vbs
4563echo objXMLHTTP.send() >> Download.vbs
4564echo If objXMLHTTP.Status = 200 Then >> Download.vbs
4565echo Set objADOStream = CreateObject("ADODB.Stream") >> Download.vbs
4566echo objADOStream.Open>> Download.vbs
4567echo objADOStream.Type = 1 >> Download.vbs
4568echo objADOStream.Write objXMLHTTP.ResponseBody >> Download.vbs
4569echo objADOStream.Position = 0 >> Download.vbs
4570echo Set objFSO = Createobject("Scripting.FileSystemObject") >> Download.vbs
4571echo If objFSO.Fileexists(strHDLocation) Then objFSO.DeleteFile strHDLocation >> Download.vbs
4572echo Set objFSO = Nothing >> Download.vbs
4573echo objADOStream.SaveToFile strHDLocation >> Download.vbs
4574echo objADOStream.Close >> Download.vbs
4575echo Set objADOStream = Nothing >> Download.vbs
4576echo End if >> Download.vbs
4577echo Set objXMLHTTP = Nothing >> Download.vbs
4578cscript Download.vbs >nul 2>&1
4579del Download.vbs
4580
4581exit /b
4582
4583
4584
4585
4586:::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4587:: function to extract files (.Zip Only) ::
4588:::::::::::::::::::::::::::::::::::::::::::
4589
4590
4591:Unzip
4592
4593 > Unzip.vbs ECHO '
4594 >> Unzip.vbs ECHO.
4595 >> Unzip.vbs ECHO ' Dim ArgObj, var1, var2
4596 >> Unzip.vbs ECHO Set ArgObj = WScript.Arguments
4597 >> Unzip.vbs ECHO.
4598 >> Unzip.vbs ECHO If (Wscript.Arguments.Count ^> 0) Then
4599 >> Unzip.vbs ECHO. var1 = ArgObj(0)
4600 >> Unzip.vbs ECHO Else
4601 >> Unzip.vbs ECHO. var1 = ""
4602 >> Unzip.vbs ECHO End if
4603 >> Unzip.vbs ECHO.
4604 >> Unzip.vbs ECHO If var1 = "" then
4605 >> Unzip.vbs ECHO. strFileZIP = "example.zip"
4606 >> Unzip.vbs ECHO Else
4607 >> Unzip.vbs ECHO. strFileZIP = var1
4608 >> Unzip.vbs ECHO End if
4609 >> Unzip.vbs ECHO.
4610 >> Unzip.vbs ECHO 'The location of the zip file.
4611 >> Unzip.vbs ECHO REM Set WshShell = CreateObject("Wscript.Shell")
4612 >> Unzip.vbs ECHO REM CurDir = WshShell.ExpandEnvironmentStrings("%%cd%%")
4613 >> Unzip.vbs ECHO Dim sCurPath
4614 >> Unzip.vbs ECHO sCurPath = CreateObject("Scripting.FileSystemObject").GetAbsolutePathName(".")
4615 >> Unzip.vbs ECHO strZipFile = sCurPath ^& "\" ^& strFileZIP
4616 >> Unzip.vbs ECHO 'The folder the contents should be extracted to.
4617 >> Unzip.vbs ECHO outFolder = sCurPath ^& "\"
4618 >> Unzip.vbs ECHO.
4619 >> Unzip.vbs ECHO. WScript.Echo ( "Extracting file " ^& strFileZIP)
4620 >> Unzip.vbs ECHO.
4621 >> Unzip.vbs ECHO Set objShell = CreateObject( "Shell.Application" )
4622 >> Unzip.vbs ECHO Set objSource = objShell.NameSpace(strZipFile).Items()
4623 >> Unzip.vbs ECHO Set objTarget = objShell.NameSpace(outFolder)
4624 >> Unzip.vbs ECHO intOptions = 256
4625 >> Unzip.vbs ECHO objTarget.CopyHere objSource, intOptions
4626 >> Unzip.vbs ECHO.
4627 >> Unzip.vbs ECHO. WScript.Echo ( "Extracted." )
4628 >> Unzip.vbs ECHO.
4629
4630cscript /B Unzip.vbs %~1 >nul 2>&1
4631del Unzip.vbs
4632
4633exit /b
4634
4635
4636
4637::::::::::::::::::::::::::::::==============================================================================================================================================================================
4638:: Calculates string Length ::
4639::::::::::::::::::::::::::::::
4640:strlen <resultVar> <stringVar>
4641(
4642 setlocal EnableDelayedExpansion
4643 set "s=!%~2!#"
4644 set "len=0"
4645 for %%P in (4096 2048 1024 512 256 128 64 32 16 8 4 2 1) do (
4646 if "!s:~%%P,1!" NEQ "" (
4647 set /a "len+=%%P"
4648 set "s=!s:~%%P!"
4649 )
4650 )
4651)
4652(
4653 endlocal
4654 set "%~1=%len%"
4655 exit /b
4656)
4657
4658
4659
4660
4661::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4662:: function to get the button number to activate according to Input mode ::
4663:: parameters: 1='Original Button Number (Mouse Mode)' 2='Button number in KBD mode' ::
4664::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
4665:GetActiveButton
4666If /i "%SelectMode%"=="Mouse" ( set "ActiveButton%~1=%~1" ) else ( set "ActiveButton%~1=%~2" )
4667set Buttonkey%~1=%~2
4668exit /b
4669
4670
4671
4672
4673:::::::::::::::::::::::::::::==============================================================================================================================================================================
4674:: Calculates Folder Size ::
4675:: call :FolderSize <Path> <Button Number> ::
4676:::::::::::::::::::::::::::::::::::::::::::::
4677
4678:FolderSize
4679set Dir="%~1"
4680
4681for /f "tokens=1,3" %%a in ('dir /w /s /-c %Dir% ^| findstr "File(s)"') do set Bytes=%%b
4682
4683
4684
4685set /a KB=(%Bytes% /1024)
4686set /a MB=(%KB% /1024)
4687set /a GB=(%MB% /1024)
4688
4689If not %GB%==0 set FolderSize%~2=%GB% GB
4690If %GB%==0 set FolderSize%~2=%MB% MB
4691If %MB%==0 set FolderSize%~2=%KB% KB
4692If %KB%==0 set FolderSize%~2=%Bytes% Bytes
4693
4694exit /b
4695
4696
4697::::::::::::::::::::::::::::::::::::
4698:: function to draw title letters ::
4699:: parameters: letter x y colors ::
4700::::::::::::::::::::::::::::::::::::
4701:drawLetter
4702 setlocal
4703 set /a y1=%~3+1 & set /a y2=%~3+2 & set /a y3=%~3+3
4704rem letters width: A-6, B-5, C-5, D-6, E-6, F-5, G-6, H-6 I-4, J-6, K-6, L-6, M-8, N-6, O-6, P-5, Q-6, R-6, S-5, T-6, U-6, V-6, W-7, X-6, Y-6, Z-6
4705 if /i "%~1"=="A" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d " / _\ " /g %~2 %y2% /d "/ \\" /g %~2 %y3% /d "\_/\_/"
4706 if /i "%~1"=="B" %BB% /c 0x%~4 /g %~2 %~3 /d " ___ " /g %~2 %y1% /d "( ,)" /g %~2 %y2% /d " ) ,\" /g %~2 %y3% /d "(___)"
4707 if /i "%~1"=="C" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d " / _)" /g %~2 %y2% /d "( (_ " /g %~2 %y3% /d " \__)"
4708 if /i "%~1"=="D" %BB% /c 0x%~4 /g %~2 %~3 /d " ___ " /g %~2 %y1% /d "( \ " /g %~2 %y2% /d " ) ) )" /g %~2 %y3% /d "(___/ "
4709 if /i "%~1"=="E" %BB% /c 0x%~4 /g %~2 %~3 /d " ____ " /g %~2 %y1% /d "( __)" /g %~2 %y2% /d " ) _) " /g %~2 %y3% /d "(____)"
4710 if /i "%~1"=="F" %BB% /c 0x%~4 /g %~2 %~3 /d " ___ " /g %~2 %y1% /d "( _)" /g %~2 %y2% /d " ) _)" /g %~2 %y3% /d "(_) "
4711 if /i "%~1"=="G" %BB% /c 0x%~4 /g %~2 %~3 /d " ___ " /g %~2 %y1% /d " / __)" /g %~2 %y2% /d "( (_ \\" /g %~2 %y3% /d " \___/"
4712 if /i "%~1"=="H" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "/ )( \" /g %~2 %y2% /d ") __ (" /g %~2 %y3% /d "\_)(_/"
4713 if /i "%~1"=="I" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d "( )" /g %~2 %y2% /d " )( " /g %~2 %y3% /d "(__)"
4714 if /i "%~1"=="J" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d " _( )" /g %~2 %y2% /d "/ \) \" /g %~2 %y3% /d "\____/"
4715 if /i "%~1"=="K" %BB% /c 0x%~4 /g %~2 %~3 /d " __ _ " /g %~2 %y1% /d "( / )" /g %~2 %y2% /d " ) ( " /g %~2 %y3% /d "(__\_)"
4716 if /i "%~1"=="L" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d "( ) " /g %~2 %y2% /d "/ (_/\\" /g %~2 %y3% /d "\____/"
4717 if /i "%~1"=="M" %BB% /c 0x%~4 /g %~2 %~3 /d " __ __ " /g %~2 %y1% /d "( \/ )" /g %~2 %y2% /d " ) ( " /g %~2 %y3% /d "(_/\/\_)"
4718 if /i "%~1"=="N" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "( \( )" /g %~2 %y2% /d " ) ( " /g %~2 %y3% /d "(_)\_)"
4719 if /i "%~1"=="O" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d " / \ " /g %~2 %y2% /d "( O )" /g %~2 %y3% /d " \__/ "
4720 if /i "%~1"=="P" %BB% /c 0x%~4 /g %~2 %~3 /d " ___ " /g %~2 %y1% /d "( ,\\" /g %~2 %y2% /d " ) _/" /g %~2 %y3% /d "(_) "
4721 if /i "%~1"=="Q" %BB% /c 0x%~4 /g %~2 %~3 /d " __ " /g %~2 %y1% /d " / \ " /g %~2 %y2% /d "( O )" /g %~2 %y3% /d " \__\)"
4722 if /i "%~1"=="R" %BB% /c 0x%~4 /g %~2 %~3 /d " ____ " /g %~2 %y1% /d "( _ \\" /g %~2 %y2% /d " ) /" /g %~2 %y3% /d "(__\_)"
4723 if /i "%~1"=="S" %BB% /c 0x%~4 /g %~2 %~3 /d " ___ " /g %~2 %y1% /d "/ __)" /g %~2 %y2% /d "\__ \\" /g %~2 %y3% /d "(___/"
4724 if /i "%~1"=="T" %BB% /c 0x%~4 /g %~2 %~3 /d " ____ " /g %~2 %y1% /d "(_ _)" /g %~2 %y2% /d " )( " /g %~2 %y3% /d " (__) "
4725 if /i "%~1"=="U" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "( )( )" /g %~2 %y2% /d " )()( " /g %~2 %y3% /d " \__/ "
4726 if /i "%~1"=="V" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "( )( )" /g %~2 %y2% /d " \\// " /g %~2 %y3% /d " (__) "
4727 if /i "%~1"=="W" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "/ )( \\" /g %~2 %y2% /d "\ /\ /" /g %~2 %y3% /d "(_/\_)"
4728 if /i "%~1"=="X" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "( \/ )" /g %~2 %y2% /d " ) ( " /g %~2 %y3% /d "(_/\_)"
4729 if /i "%~1"=="Y" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "( \/ )" /g %~2 %y2% /d " ) / " /g %~2 %y3% /d "(_/\_)"
4730 if /i "%~1"=="Z" %BB% /c 0x%~4 /g %~2 %~3 /d " _ _ " /g %~2 %y1% /d "( \/ )" /g %~2 %y2% /d " ) ( " /g %~2 %y3% /d "(_/\_)"
4731 if /i "%~1"=="/" %BB% /c 0x%~4 /g %~2 %~3 /d " _ " /g %~2 %y1% /d "| |" /g %~2 %y2% /d "| |" /g %~2 %y3% /d "|_|"
4732 if /i "%~1"=="\" %BB% /c 0x%~4 /g %~2 %~3 /d " " /g %~2 %y1% /d " " /g %~2 %y2% /d " " /g %~2 %y3% /d " "
4733
4734
4735 rem each letter line must use 6 spaces
4736 endlocal
4737exit /b
4738
4739
4740
4741
4742::::::::::::::::::::::::::::::::::::
4743:: function to draw title symbols ::
4744:: parameters: line ::
4745::::::::::::::::::::::::::::::::::::
4746:drawSymbols
4747 setlocal
4748 set "line="
4749 if %~1 EQU 7 set line=%line% /c 0x1F /g 4 0 /d " _ " /g 107 0 /d " __ "
4750 if %~1 GEQ 6 set /a y=%~1-6 & set line=%line% /c 0x1F /g 4 !y! /d " /\\ " /g 107 !y! /d " / /\ "
4751 if %~1 GEQ 5 set /a y=%~1-5 & set line=%line% /c 0x1F /g 4 !y! /d " | //_ " /g 107 !y! /d " / / / "
4752 if %~1 GEQ 4 set /a y=%~1-4 & set line=%line% /c 0x1F /g 4 !y! /d " / \/\\ " /g 107 !y! /d "/_/ /\ "
4753 if %~1 GEQ 3 set /a y=%~1-3 & set line=%line% /c 0x1F /g 4 !y! /d " / /\_// " /g 107 !y! /d "\_\/\ \ "
4754 if %~1 GEQ 2 set /a y=%~1-2 & set line=%line% /c 0x1F /g 4 !y! /d "/ // " /g 107 !y! /d " \\ \ "
4755 if %~1 GEQ 1 set /a y=%~1-1 & set line=%line% /c 0x1F /g 4 !y! /d "\// " /g 107 !y! /d " \\/ "
4756 %BB% %line%
4757 endlocal
4758exit /b
4759
4760
4761
4762::::::::::::::::::::::::::::::::::::::::::::
4763:: function to draw animated intro ::
4764:: parameters: number (of intro sequence) ::
4765::::::::::::::::::::::::::::::::::::::::::::
4766:intro
4767 setlocal
4768 if "%debug%"=="1" %BB% /c 0x1F /g 2 32 /d "animation = %~1"
4769 rem animation of box moving up
4770 for /l %%a in (30,-1,2) do (
4771 set /a b=%%a+1 & set /a c=%%a+2
4772 %BB% /c 0x1F /g 54 %%a /d " _______ "^
4773 /g 54 !b! /d "|_______|"^
4774 /g 54 !c! /d " "
4775 )
4776
4777 rem animation of box opening horizontally
4778 set "line=_______"
4779 for /l %%a in (54,-1,19) do (
4780 set "line=!line!__"
4781 %BB% /g %%a 2 /d " !line! "^
4782 /g %%a 3 /d "|!line!|"
4783 )
4784
4785 rem animation of box opening vertically
4786 set "boxlines=_______________________________________________________________________________________"
4787 set "boxspace= "
4788 %BB% /g 16 2 /d " %boxlines%"^
4789 /g 16 3 /d "|%boxspace%|"^
4790 /g 16 4 /d "|%boxspace%|"^
4791 /g 16 5 /d "|%boxlines%|"^
4792 /w 100^
4793 /g 16 1 /d " %boxlines%"^
4794 /g 16 2 /d "|%boxspace%|"^
4795 /g 16 5 /d "|%boxspace%|"^
4796 /g 16 6 /d "|%boxlines%|"
4797
4798 rem animation of letters and symbols
4799 if "%~1"=="1" set "a=Td18 Od24 Gd30 Gd36 Ld42 Ed48 Td60 Wd66 Ed72 Ad78 Kd84 Ed90 Rd96 Rn96 En90 Kn84 An78 En72 Wn66 Tn60 En48 Ln42 Gn36 Gn30 On24 Tn18"
4800 if "%~1"=="2" set "a=Td60 Ed48 Wd66 Tn60 Ld42 Ed72 En48 Wn66 Gd36 Ad78 Ln42 En72 Gd30 Kd84 Gn36 An78 Od24 Ed90 Gn30 Kn84 Td18 Rd96 On24 En90 Tn18 Rn96"
4801 if "%~1"=="3" set "a=Td18 Od24 Tn18 Gd30 On24 Gd36 Gn30 Ld42 Gn36 Ed48 Ln42 Td60 En48 Wd66 Tn60 Ed72 Wn66 Ad78 En72 Kd84 An78 Ed90 Kn84 Rd96 En90 Rn96"
4802 if "%~1"=="4" set "a=/d19 /n19 \n19 Td18 /d24 /n24 \n24 Od24 /d30 /n30 \n30 Tn18 Gd30 /d36 /n36 \n36 On24 Gd36 /d42 /n42 \n42 Gn30 Ld42 /d48 /n48 \n48 Gn36 Ed48 /d55 /n55 \n55 Ln42 /d60 /n60 \n60 En48 Td60 /d66 /n66 \n66 Wd66 /d72 /n72 \n72 Tn60 Ed72 /d78 /n78 \n78 Wn66 Ad78 /d84 /n84 \n84 En72 Kd84 /d90 /n90 \n90 An78 Ed90 /d96 /n96 \n96 Kn84 Rd96"
4803 rem process groups of letters/numbers as individual lines by replacing spaces with LineFeed
4804 set "e=0" & for /f "tokens=1 delims=_" %%b in ("%a: =!LF!%") do (
4805 rem draw letters
4806 set "c=%%b" & if /i "!c:~1,1!"=="d" ( set "d=17" ) else ( set "d=1F" )
4807 call :drawLetter !c:~0,1! !c:~2! 2 !d!
4808 rem drop down lateral symbols vertically after every 3 cicles
4809 set /a e+=1 & set /a f=!e!%%3
4810 if !f! EQU 0 if !e! LEQ 21 set /a f=!e!/3 & call :drawSymbols !f!
4811 )
4812 endlocal
4813exit /b
4814
4815
4816:::::::::::::::::::::::::::==============================================================================================================================================================================
4817:: Get Clipboard Content ::
4818:::::::::::::::::::::::::::
4819:GetClipboard
4820
4821set Clipboard=
4822
4823:: Does powershell.exe exist within %PATH%?
4824for %%I in (powershell.exe) do if "%%~$PATH:I" neq "" (
4825 set getclip=powershell "Add-Type -AssemblyName System.Windows.Forms;$tb=New-Object System.Windows.Forms.TextBox;$tb.Multiline=$true;$tb.Paste();$tb.Text"
4826) else (
4827rem :: If not, compose and link C# application to retrieve clipboard text
4828 set getclip=%temp%\getclip.exe
4829 >"%temp%\c.cs" echo using System;using System.Threading;using System.Windows.Forms;class dummy{[STAThread]
4830 >>"%temp%\c.cs" echo public static void Main^(^){if^(Clipboard.ContainsText^(^)^) Console.Write^(Clipboard.GetText^(^)^);}}
4831 for /f "delims=" %%I in ('dir /b /s "%windir%\microsoft.net\*csc.exe"') do (
4832 if not exist "!getclip!" "%%I" /nologo /out:"!getclip!" "%temp%\c.cs" 2>NUL
4833 )
4834 del "%temp%\c.cs"
4835 if not exist "!getclip!" (
4836
4837
4838 or newer, or install PowerShell.
4839 goto :EOF
4840 )
4841)
4842
4843
4844for /f "delims=" %%I in ('%getclip% ^| findstr /n "^"') do (
4845 set "line=%%I" & set "line=!line:*:=!" )
4846
4847:: This is the last line of the copied content
4848set "Clipboard=!Line!"
4849exit/b
4850
4851
4852:::::::::::::::::::::::::::::::::::::==============================================================================================================================================================================
4853:: function to search for tweaks ::
4854:::::::::::::::::::::::::::::::::::
4855:searchTweaks
4856cls
4857echo.
4858echo.
4859echo.
4860echo. ___________________________________________________________________________________________________
4861echo. ^| ^|
4862echo. ^| SEARCH FOR: ^|
4863echo. ^|___________________________________________________________________________________________________^|
4864%BB% /c 0x1F /g 0 10
4865
4866echo. _________ _________ _________ _________ _________ _________ _________ _________ _________ _________
4867echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4868echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4869echo. ^| 1 ^| 2 ^| 3 ^| 4 ^| 5 ^| 6 ^| 7 ^| 8 ^| 9 ^| 0 ^|
4870echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4871echo. ^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|
4872echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4873echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4874echo. ^| Q ^| W ^| E ^| R ^| T ^| Y ^| U ^| I ^| O ^| P ^|
4875echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4876echo. ^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|
4877echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4878echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4879echo. ^| A ^| S ^| D ^| F ^| G ^| H ^| J ^| K ^| L ^| END ^|
4880echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4881echo. ^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|
4882echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4883echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4884echo. ^| Z ^| X ^| C ^| V ^| B ^| N ^| M ^| BACKSPACE ^| ^<-' ^|
4885echo. ^| ^| ^| ^| ^| ^| ^| ^| ^| ^|
4886echo. ^|_________^|_________^|_________^|_________^|_________^|_________^|_________^|___________________^|_________^|
4887%BB% /c 0x1F /g 100 20 /d "_________"
4888%BB% /c 0x4F /g 99 21 /d "| |"
4889%BB% /c 0x4F /g 99 22 /d "| |"
4890%BB% /c 0x4F /g 99 23 /d "| END |"
4891%BB% /c 0x4F /g 99 24 /d "| |"
4892%BB% /c 0x4F /g 99 25 /d "|_________|"
4893%BB% /c 0x2F /g 99 26 /d "| |"
4894%BB% /c 0x2F /g 99 27 /d "| |"
4895%BB% /c 0x2F /g 99 28 /d "| Space |"
4896%BB% /c 0x2F /g 99 29 /d "| |"
4897%BB% /c 0x2F /g 99 30 /d "|_________|"
4898
4899
4900If /i "%SelectMode%"=="Mouse" ( %BB% ^
4901 /c 0x1F /g 111 1 /d " _______"^
4902 /c 0x3F /g 111 2 /d "| "^
4903 /g 111 3 /d "| USE "^
4904 /g 111 4 /d "| KBD "^
4905 /g 111 5 /d "|_______"
4906
4907) else (%BB% ^
4908 /c 0x1F /g 111 1 /d " _______"^
4909 /c 0x3F /g 111 2 /d "| "^
4910 /g 111 3 /d "|Press U"^
4911 /g 111 4 /d "|'Mouse'"^
4912 /g 111 5 /d "|_______"
4913 )
4914
4915
4916
4917%BB% /c 0xF1 /g 23 5 /d " "
4918set /a searchPos=24
4919set "searchString="
4920
4921:loop
4922%BB% /g %searchPos% 5
4923
4924
4925
4926
4927set "keys=8_backspace 13_enter 27_esc 32_space 48_0 49_1 50_2 51_3 52_4 53_5 54_6 55_7 56_8 57_9 65_A 66_B 67_C 68_D 69_E 70_F 71_G 72_H 73_I 74_J 75_K 76_L 77_M 78_N 79_O 80_P 81_Q 82_R 83_S 84_T 85_U 86_V 87_W 88_X 89_Y 90_Z 97_a 98_b 99_c 100_d 101_e 102_f 103_g 104_h 105_i 106_j 107_k 108_l 109_m 110_n 111_o 112_p 113_q 114_r 115_s 116_t 117_u 118_v 119_w 120_x 121_y 122_z 292_left 293_up 294_right 295_down"
4928set "keys=%keys: =!LF!%"
4929
4930
4931If /i "%SelectMode%"=="Mouse" (call :readMouse text
4932) else (%BB% ^
4933%BB% /G 24 5
4934set /p searchString=
4935If /i "!searchString!"=="END" exit /b
4936If /i "!searchString!"=="u" ( If /i "%SelectMode%"=="Mouse" (set "SelectMode=KBD" & %BB% /c 0x1F & goto searchTweaks ) else ( set "SelectMode=Mouse" & %BB% /c 0x1F & goto searchTweaks ) )
4937
4938goto Runsearch
4939 )
4940
4941
4942if "%buttonClicked%"=="END" %BB% /c 0x1F & %BB% /g 0 0 & goto Runsearch
4943if "%buttonClicked%"=="BACKSPACE" if %searchPos% GEQ 25 set /a searchPos-=1 & %BB% /g !searchPos! 5 /d " " & %BB% /g !searchPos! 5 & set "searchString=%searchString:~0,-1%"
4944if "%buttonClicked%"=="Space" set "searchString=%searchString% " & %BB% /g !searchPos! 5 /d " " & set /a searchPos+=1
4945
4946for %%a in (1 2 3 4 5 6 7 8 9 0 A B C D E F G H I J K L M N O P Q R S T U V W X Y Z ) do if "%buttonClicked%" EQU "%%a" if %searchPos% LEQ 106 %BB% /g %searchPos% 5 /d "%buttonClicked%" & set /a searchPos+=1 & set "searchString=%searchString%%buttonClicked%"
4947goto :loop
4948
4949
4950:Runsearch
4951%BB% /c 0x1F
4952
4953If "!searchString!"=="" exit /b
4954(
4955echo Windows / Office KMS activation
4956 echo Check Windows Activation Status : 1=^>1
4957 echo Check Office Activation Status : 1=^>2
4958 echo Activate Windows/Office Using KMSPico : 1=^>3
4959
4960echo Manage Built-in apps and restore old ones
4961 echo Remove/restore Windows built-in apps from Users : 2=^>1
4962 echo Restore Old Windows photo viewer : 2=^>2
4963 echo Uninstall/restore Cortana [O] : 2=^>3
4964 echo Restore Legacy Calculator Classic Win32 [O] : 2=^>4
4965 echo Uninstall/restore Microsoft Edge [O] : 2=^>5
4966 echo Restore Win 7 Task manager [O] : 2=^>6
4967 echo Uninstall/restore Internet Explorer 11 [O] : 2=^>7
4968 echo Restore Classic MSConfig [O] : 2=^>8
4969 echo Uninstall, Disable and reenable Onedrive : 2=^>9
4970 echo Install Windows DVD Player app [O] : 2=^>10
4971 echo Uninstall Contact Support Get Help App [O] : 2=^>11
4972 echo Restore Classic Paint app [B:14986] [O] : 2=^>12
4973 echo Uninstall WindowsFeedback App [O] : 2=^>13
4974
4975echo Enable/Disable stuff In Windows10
4976 echo Windows Defender : 3=^1
4977 echo Default Quick Access view in Explorer : 3=^2
4978 echo Windows Firewall : 3=^3
4979 echo Show BSOD details instead of the sad smiley : 3=^4
4980 echo Manage Folders In 'This PC' : 3=^5
4981 echo This PC _ Downloads Folder : 3=^5=^1
4982 echo This PC _ Pictures Folder : 3=^5=^2
4983 echo This PC _ Music Folder : 3=^5=^3
4984 echo This PC _ Desktop Folder : 3=^5=^4
4985 echo This PC _ Documents Folder : 3=^5=^5
4986 echo This PC _ Videos Folder : 3=^5=^6
4987 echo This PC _ Remove All Folders From This PC : 3=^5=^9
4988 echo This PC _ Add All Folders to This PC : 3=^5=^10
4989 echo Password Reveal Button : 3=^6
4990 echo Lockscreen : 3=^7
4991 echo Safely Remove Hardware Tray Icon : 3=^8
4992 echo Windows/Store Smart Screen Filter : 3=^9
4993 echo Replace PowerShell with CMD in Win X menu : 3=^10
4994
4995echo User Interface Tweaks
4996 echo Dark Theme For Apps : 4=^>1
4997 echo Thumbnail Previews in File explorer : 4=^>2
4998 echo Volume Control UI : 4=^>3
4999 echo Taskview button in Taskbar : 4=^>4
5000 echo Battery Status UI : 4=^>5
5001 echo Show Delete-Confirmation-Dialog Prompt Details : 4=^>6
5002 echo Alt-Tab Screen UI : 4=^>7
5003 echo Transparency and Blur in: Taskbar-Clock... : 4=^>8
5004 echo Context Menu Tweaks : 4=^>9
5005 echo 'Grant Admin Full Control' In Files and Folders : 4=^>9=^>1
5006 echo Select Context menu : 4=^>9=^>2
5007 echo Pin to Quick access : 4=^>9=^>3
5008 echo Classic Personalize to Desktop : 4=^>9=^>4
5009 echo Screen Resolution menu in Desktop : 4=^>9=^>5
5010 echo Power Options in Desktop : 4=^>9=^>6
5011 echo Bluetooth menu in Desktop : 4=^>9=^>7
5012 echo Add Open with Notepad to Files : 4=^>9=^>8
5013 echo Copy File Location to Clipboard : 4=^>9=^>9
5014 echo Change Logon Background Image/accent-color : 4=^>10
5015 echo Change OEM Information : 4=^>11
5016 echo Colourise/Decolourise Start Me,Taskbar and Title bars : 4=^>12
5017 echo Colourise/Decolourise Windows Title bars and borders : 4=^>12=^>1
5018 echo Colourise Start Menu ^& Taskbar : 4=^>12=^>2
5019 echo Set Inactive Title Bar Color : 4=^>12=^>3
5020 echo Taskbar Thumbnail size : 4=^>13
5021
5022
5023
5024
5025echo Toggle Windows Update status
5026 echo Toggle Windows Update status : 5
5027
5028echo Manage Windows Features
5029 echo Show Windows features list : 6=^>1
5030 echo Show 'Turn Windows features on or off' window : 6=^>2
5031 echo Enable a feature : 6=^>3
5032 echo Disable a feature : 6=^>4
5033 echo Disable and Remove feature Payload {clean feature files} : 6=^>5
5034
5035echo Manage User Accounts
5036 echo Show me my User accounts : 7=^>1
5037 echo Built-in Administrator Account : 7=^>2
5038 echo Add NEW user account : 7=^>3
5039 echo Delete a user account : 7=^>4
5040 echo Change specific user account Password : 7=^>5
5041
5042
5043echo Speed Up PC Performance
5044 echo Calculate Restart Time : 8=^>1
5045 echo Clean Update Junk : 8=^>2
5046 echo Clean TEMP Folder : 8=^>3
5047 echo Clean Prefetch Folder : 8=^>4
5048 echo Start Disk Cleanup {Not automatic} : 8=^>5
5049 echo Disable : Unnecessary services,BitLocker,Encrypting... : 8=^>6
5050 echo Game Mode : 8=^>7
5051
5052
5053echo Manage Microsoft Edge browser
5054
5055
5056echo Internet Tweaks and Fixes
5057 echo Fix Empty 'Network Connections'Folder {Network Adapters} : 10=^>1
5058 echo Restore 'Windows Firewall'+'Network Adapter' settings : 10=^>2
5059 echo Release and renew the IP address from DHCP server : 10=^>3
5060 echo Disable Limit Reservable Bandwidth network : 10=^>4
5061 echo Flush Windows DNS Cache {ipconfig /flushdns} : 10=^>5
5062
5063
5064echo Convert Pro/Home version to LTSB
5065 echo Turn Pro/Home version to LTSB (Kind of) : 11=^1
5066
5067
5068) >TWoptions.txt
5069
5070cls
5071for /f "tokens=1,* delims=:" %%a in ('findstr /i /l /c:"%searchString%" "TWoptions.txt"') do (echo(%%a:%%b)
5072echo.
5073pause
5074del TWoptions.txt >nul 2>&1
5075
5076exit /b
5077
5078
5079
5080
5081::==============================================================================================================================================================================
5082
5083:WhatsNEW
5084
5085
5086echo ___________________________________________________________________________________________________________________
5087echo ^| ____ _ _ ____ __ __ _ ____ ____ ___ _ _ __ __ _ ___ ____ __ __ ___ ^|
5088echo ^| (_ _)/ )( \( __) / _\ ( / )( __)( _ \ / __)/ )( \ / _\ ( ( \ / __)( __) ( ) / \ / __) ^|
5089echo ^| )( \ /\ / ) _) / \ ) ( ) _) ) / ( (__ ) __ (/ \/ /( (_ \ ) _) / (_/\( O )( (_ \ ^|
5090echo ^| (__) (_/\_)(____)\_/\_/(__\_)(____)(__\_) \___)\_)(_/\_/\_/\_)__) \___/(____) \____/ \__/ \___/ ^|
5091echo ^|___________________________________________________________________________________________________________________^|
5092echo ^| Version : %CurV% (12/Feb/2016) ^|
5093echo ^| This is a completely new version of Toggle Tweaker rewritten from scratch, so a lot of things has changed : ^|
5094echo ^| ^|
5095echo ^| # The script Now can accept Mouse clicks as Input methode (You can change it from the Settings) ^|
5096echo ^| ^|
5097echo ^| # Almost all old options still exists and some are improved ^|
5098echo ^| ^|
5099echo ^| # App removal section:Added New apps 3D Paint-3D View ~ Multi operations in one command ~ Apps Current Status ^|
5100echo ^| ^|
5101echo ^| # 'Undo All' is removed because of the difficulty of tracking every single change made with the tweaker ^|
5102echo ^| and added instead options to create a restore Point and to backup the Registry ^|
5103echo ^| ^|
5104echo ^| # A lot of options will show you the current status (Enabled/Disabled) instead of just applying It ^|
5105echo ^| ^|
5106echo ^| # Uninstalling Onedrive Will remove it's packages from windows ^|
5107echo ^| ^|
5108echo ^| # Uninstalling Internet Explorer 11 is added to Windows apps menu with the ability to restore it ^|
5109echo ^| ^|
5110echo ^| # Uninstalling Edge / Cortana Works with a new script now to avoid previous problems ^|
5111echo ^| ^|
5112echo ^| # 'PC Performance' Menu is completely changed because the old one workded only for SSD Users ^|
5113echo ^| ^|
5114echo ^| # Added the option to restore 'Old MSConfig' and 'Classic Paint' for Build 14986 ^|
5115echo ^| ^|
5116echo ^| ^|
5117echo ^|___________________________________________________________________________________________________________________^|
5118
5119call :readInput
5120exit/b