::This batch file is created by JBCarreon123 at https://tenforums.com/members/jbcarreon123.html ::------------------------------------------------------------------------------------------------------------------ @echo off mode con cols=76 lines=21 color 17 Set "[P]=New-Object System.Windows.Forms.OpenFileDialog Set "[S]=[System.Reflection.Assembly]::LoadWithPartialName('System.windows.forms')" echo %username% | findstr "jbcar" > nul && ( color 0A ) echo DTPChanger 1.0.1 title DTPChanger 1.0.1 (modified by Matthew Wai) echo Press [ANY KEY] to start. pause >nul echo. goto Start0 :0 cls :Start0 Echo Please select your .deskthemepack file. Set PS=PowerShell "&{%[S]%|Out-Null;$O=%[P]%;$O.ShowDialog()|out-null;$O.FileName}" For /f "delims=" %%# in ('%PS%') Do (Set "DTPack1=%%#") if "%DTPack1%"=="" ( set "ERR=1" & goto Exit ) if "%DTPack1%"=="cls" ( cls & echo Console cleaned. & goto Start0 ) if "%DTPack1%"=="clr" ( goto clr ) echo. :1 Echo Please select your second .deskthemepack file. & Set "DTPack2=" Set PS=PowerShell "&{%[S]%|Out-Null;$O=%[P]%;$O.ShowDialog()|out-null;$O.FileName}" For /f "delims=" %%# in ('%PS%') Do (Set "DTPack2=%%#") if "%DTPack2%"=="" goto 6 if "%DTPack2%"=="cls" ( cls & echo Console cleaned. & goto 1 ) if "%DTPack2%"=="clr" ( goto clr1 ) if "%DTPack1%"=="%DTPack2%" echo You entered is a duplicate of ^#1. & goto 1 echo. :2 Echo Please select your third .deskthemepack file. & Set "DTPack3=" Set PS=PowerShell "&{%[S]%|Out-Null;$O=%[P]%;$O.ShowDialog()|out-null;$O.FileName}" For /f "delims=" %%# in ('%PS%') Do (Set "DTPack3=%%#") if "%DTPack3%"=="" goto 6 if "%DTPack3%"=="cls" ( cls & echo Console cleaned. & goto 2 ) if "%DTPack3%"=="clr" ( goto clr2 ) if "%DTPack1%"=="%DTPack3%" echo You entered is a duplicate of ^#1. & goto 2 if "%DTPack2%"=="%DTPack3%" echo You entered is a duplicate of ^#2. & goto 2 echo. :3 Echo Please select your fourth .deskthemepack file. & Set "DTPack4=" Set PS=PowerShell "&{%[S]%|Out-Null;$O=%[P]%;$O.ShowDialog()|out-null;$O.FileName}" For /f "delims=" %%# in ('%PS%') Do (Set "DTPack4=%%#") if "%DTPack4%"=="" goto 6 if "%DTPack4%"=="cls" ( cls & echo Console cleaned. & goto 3 ) if "%DTPack4%"=="clr" ( goto clr3 ) if "%DTPack1%"=="%DTPack4%" echo You entered is a duplicate of ^#1. & goto 3 if "%DTPack2%"=="%DTPack4%" echo You entered is a duplicate of ^#2. & goto 3 if "%DTPack3%"=="%DTPack4%" echo You entered is a duplicate of ^#3. & goto 3 echo. :4 Echo Please select your fifth .deskthemepack file.& Set "DTPack5=" Set PS=PowerShell "&{%[S]%|Out-Null;$O=%[P]%;$O.ShowDialog()|out-null;$O.FileName}" For /f "delims=" %%# in ('%PS%') Do (Set "DTPack5=%%#") if "%DTPack5%"=="" goto 6 if "%DTPack5%"=="cls" ( cls & echo Console cleaned. & goto 4 ) if "%DTPack5%"=="clr" ( goto clr4 ) if "%DTPack1%"=="%DTPack5%" echo You entered is a duplicate of ^#1. & goto 4 if "%DTPack2%"=="%DTPack5%" echo You entered is a duplicate of ^#2. & goto 4 if "%DTPack3%"=="%DTPack5%" echo You entered is a duplicate of ^#3. & goto 4 if "%DTPack4%"=="%DTPack5%" echo You entered is a duplicate of ^#4. & goto 4 goto 6 :6 echo. echo. echo Is this a valid paths? echo. IF EXIST "%DTPack1%" ( echo 1 = "%DTPack1%" & set "Er1=0" ) else ( echo 1 = "%DTPack1%" [NOT EXIST] & set "Er1=1" ) IF "%DTPack2%"=="" ( echo 2 = NOT SPECIFIED & set "Er2=0" & goto 003 ) else ( goto 02 ) :02 IF EXIST "%DTPack2%" ( echo 2 = "%DTPack2%" & set "Er2=0" ) else ( echo 2 = "%DTPack2%" [NOT EXIST] & set "Er2=1" ) goto 003 :003 IF "%DTPack3%"=="" ( echo 3 = NOT SPECIFIED & set "Er3=0" & goto 004 ) else ( goto 03 ) :03 IF EXIST "%DTPack3%" ( echo 3 = "%DTPack3%" & set "Er3=0" ) else ( echo 3 = "%DTPack3%" [NOT EXIST] & set "Er3=1" ) goto 004 :004 IF "%DTPack4%"=="" ( echo 4 = NOT SPECIFIED & set "Er4=0" & goto 005 ) else ( goto 04 ) :04 IF EXIST "%DTPack4%" ( echo 4 = "%DTPack4%" & set "Er4=0" ) else ( echo 4 = "%DTPack4%" [NOT EXIST] & set "Er4=1" ) goto 005 :005 IF "%DTPack5%"=="" ( echo 5 = NOT SPECIFIED & set "Er5=0" & goto Finish ) else ( goto 05 ) :05 IF EXIST "%DTPack5%" ( echo 5 = "%DTPack5%" & set "Er5=0" ) else ( echo 5 = "%DTPack5%" [NOT EXIST] & set "Er5=1" ) echo. goto Finish :Finish echo Press [Y] if the statement is correct, and [N] if the statement is wrong then press [ENTER] (The default is N) set "YNQ1=N" set /p "YNQ1=" if '%YNQ1%'=='' ( goto Inc ) if '%YNQ1%'=='N' ( goto 0 ) if '%YNQ1%'=='n' ( goto 0 ) if '%YNQ1%'=='cls' ( cls ) if '%Er1%'=='1' ( goto If2 ) if '%Er2%'=='1' ( goto If2 ) if '%Er3%'=='1' ( goto If2 ) if '%Er4%'=='1' ( goto If2 ) if '%Er5%'=='1' ( goto If2 ) :If1 if '%YNQ1%'=='Y' ( goto Int ) if '%YNQ1%'=='y' ( goto Int ) :If2 echo. if '%YNQ1%'=='Y' ( echo Y is disabled. Please make sure that the paths is existed and try again. & goto Finish ) if '%YNQ1%'=='y' ( echo Y is disabled. Please make sure that the paths is existed and try again. & goto Finish ) :Inc echo. if '%YNQ1%'=='cls' ( echo Console cleaned. & goto Finish ) echo %YNQ1% is incorrect. Please try again. set "YNQ1=" goto Finish IF %ERRORLEVEL% EQU 0 ( goto Finish ) ELSE ( Echo An error was occured. Restart this batch file and try again. Press [ANY KEY] to exit. & pause >nul & goto Exit ) :Int set "DTPack22=%DTPack2%" if "%DTPack22%"=="" ( goto Int1 ) if "%DTPack22%"=="%DTPack2%" ( goto Int2 ) else ( goto Int1 ) :Int1 echo. echo. echo Setting Wallpaper... Please wait... start %DTPack1% goto Finished :Int2 echo. echo. set /p numeric=What seconds do you want to change your Wallpaper? ( (if errorlevel %numeric% break ) 2>nul )&&( if "%numeric%" GEQ "30" ( goto Start12 ) if "%numeric%" GEQ "99999" ( goto Err99+ ) )||( echo %numeric% is incorrect. Please try again. goto Int2 ) if "%numeric%"=="" ( echo The interval you entered is blank. & goto Int2 ) :Start12 echo This is your specified number. Press [ENTER] to continue. timeout %numeric% if "%errorlevel%"=="1" ( echo An error occured. Please try again. & echo Error Code: 25 [ Timeout time is %numeric% ] & echo Press [ENTER] to try again. & pause >nul & set "numeric=" & goto Int2 ) set "MinInt=%numeric%" :Start2 if "%DTPack3%"=="" ( goto Start3 ) if "%DTPack4%"=="" ( goto Start4 ) if "%DTPack5%"=="" ( goto Start5 ) :Start1 mkdir %userprofile%\WallChng >nul echo ::This batch file is created by JBCarreon123 at https://tenforums.com/members/jbcarreon123.html >%userprofile%\WallChng\Output.bat echo ::------------------------------------------------------------------------------------------------------------------ >>%userprofile%\WallChng\Output.bat echo. >>%userprofile%\WallChng\Output.bat echo @echo off >>%userprofile%\WallChng\Output.bat echo :Start1 >>%userprofile%\WallChng\Output.bat echo %DTPack1% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack2% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack3% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack4% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack5% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo goto Start1 >>%userprofile%\WallChng\Output.bat goto Final :Start3 mkdir %userprofile%\WallChng >nul echo ::This batch file is created by JBCarreon123 at https://tenforums.com/members/jbcarreon123.html >%userprofile%\WallChng\Output.bat echo ::------------------------------------------------------------------------------------------------------------------ >>%userprofile%\WallChng\Output.bat echo. >>%userprofile%\WallChng\Output.bat echo @echo off >>%userprofile%\WallChng\Output.bat echo :Start1 >>%userprofile%\WallChng\Output.bat echo %DTPack1% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack2% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo goto Start1 >>%userprofile%\WallChng\Output.bat goto Final :Start4 mkdir %userprofile%\WallChng >nul echo ::This batch file is created by JBCarreon123 at https://tenforums.com/members/jbcarreon123.html >%userprofile%\WallChng\Output.bat echo ::------------------------------------------------------------------------------------------------------------------ >>%userprofile%\WallChng\Output.bat echo. >>%userprofile%\WallChng\Output.bat echo @echo off >>%userprofile%\WallChng\Output.bat echo :Start1 >>%userprofile%\WallChng\Output.bat echo %DTPack1% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack2% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack3% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo goto Start1 >>%userprofile%\WallChng\Output.bat goto Final :Start5 mkdir %userprofile%\WallChng >nul echo ::This batch file is created by JBCarreon123 at https://tenforums.com/members/jbcarreon123.html >%userprofile%\WallChng\Output.bat echo ::------------------------------------------------------------------------------------------------------------------ >>%userprofile%\WallChng\Output.bat echo. >>%userprofile%\WallChng\Output.bat echo @echo off >>%userprofile%\WallChng\Output.bat echo :Start1 >>%userprofile%\WallChng\Output.bat echo %DTPack1% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack2% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack3% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo %DTPack4% >>%userprofile%\WallChng\Output.bat echo timeout %MinInt% /nobreak >>%userprofile%\WallChng\Output.bat echo goto Start1 >>%userprofile%\WallChng\Output.bat goto Final :Final copy "%userprofile%\WallChng\Output.bat" "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup" >nul start %userprofile%\WallChng\Output.bat :Finished goto Exit :clr echo. echo What color is you want? echo 0 = Black 8 = Gray echo 1 = Blue 9 = Light Blue echo 2 = Green A = Light Green echo 3 = Aqua B = Light Aqua echo 4 = Red C = Light Red echo 5 = Purple D = Light Purple echo 6 = Yellow E = Light Yellow echo. set /p "clrbg=Input number for Background: " set /p "clrfg=Input number for Foreground: " echo Are you sure? echo color %clrbg%%clrfg% pause >nul echo Setting color... color %clrbg%%clrfg% timeout 1 /nobreak >nul echo Done. echo. goto Start0 :clr1 echo. echo What color is you want? echo 0 = Black 8 = Gray echo 1 = Blue 9 = Light Blue echo 2 = Green A = Light Green echo 3 = Aqua B = Light Aqua echo 4 = Red C = Light Red echo 5 = Purple D = Light Purple echo 6 = Yellow E = Light Yellow echo. set /p "clrbg=Input number for Background: " set /p "clrfg=Input number for Foreground: " echo Are you sure? echo color %clrbg%%clrfg% pause >nul echo Setting color... color %clrbg%%clrfg% timeout 1 /nobreak >nul echo Done. echo. goto 1 :clr2 echo What color is you want? echo 0 = Black 8 = Gray echo 1 = Blue 9 = Light Blue echo 2 = Green A = Light Green echo 3 = Aqua B = Light Aqua echo 4 = Red C = Light Red echo 5 = Purple D = Light Purple echo 6 = Yellow E = Light Yellow echo. set /p "clrbg=Input number for Background: " set /p "clrfg=Input number for Foreground: " echo Are you sure? echo color %clrbg%%clrfg% pause >nul echo Setting color... color %clrbg%%clrfg% timeout 1 /nobreak >nul echo Done. goto 2 :clr3 echo. echo What color is you want? echo 0 = Black 8 = Gray echo 1 = Blue 9 = Light Blue echo 2 = Green A = Light Green echo 3 = Aqua B = Light Aqua echo 4 = Red C = Light Red echo 5 = Purple D = Light Purple echo 6 = Yellow E = Light Yellow echo. set /p "clrbg=Input number for Background: " set /p "clrfg=Input number for Foreground: " echo Are you sure? echo color %clrbg%%clrfg% pause >nul echo Setting color... color %clrbg%%clrfg% timeout 1 /nobreak >nul echo Done. echo. goto 3 :clr4 echo. echo What color is you want? echo 0 = Black 8 = Gray echo 1 = Blue 9 = Light Blue echo 2 = Green A = Light Green echo 3 = Aqua B = Light Aqua echo 4 = Red C = Light Red echo 5 = Purple D = Light Purple echo 6 = Yellow E = Light Yellow echo. set /p "clrbg=Input number for Background: " set /p "clrfg=Input number for Foreground: " echo Are you sure? echo color %clrbg%%clrfg% pause >nul echo Setting color... color %clrbg%%clrfg% timeout 1 /nobreak >nul echo Done. echo. goto 4 :Exit if "%ERR%"=="1" ( goto FinErr ) if "%ERR%"=="0" ( goto Fin ) goto Fin :FinErr cls echo An error occured. This problem is on the first DeskThemePack being canceled or exited. :00124745 echo. echo [R] to retry echo [A] for About this script echo [E] to exit echo [H] to redirect to tutorial and retry echo. set /p "SEEL= " if "%SEEL%"=="R" ( goto Start0 ) if "%SEEL%"=="A" ( goto About ) if "%SEEL%"=="E" ( goto FinExit ) if "%SEEL%"=="H" ( goto Tutorial ) if "%SEEL%"=="r" ( goto Start0 ) if "%SEEL%"=="a" ( goto About ) if "%SEEL%"=="e" ( goto FinExit ) if "%SEEL%"=="h" ( goto Tutorial ) cls echo %SEEL% is not on the selection. goto 00124745 :Fin cls echo Theme applied. Thanks for using DTPChanger. :00124746 echo. echo [D] to delete the script in the Startup folder echo [A] for About this script echo [E] to exit echo [H] to redirect to tutorial echo. set /p "SE0L= " if "%SE0L%"=="D" ( del "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Output.bat" & echo Deleted & goto 00124746 ) if "%SE0L%"=="A" ( goto About ) if "%SE0L%"=="E" ( goto FinExit ) if "%SE0L%"=="H" ( goto Tutorial0 ) if "%SE0L%"=="d" ( del "%userprofile%\AppData\Roaming\Microsoft\Windows\Start Menu\Programs\Startup\Output.bat" & echo Deleted & goto 00124746 ) if "%SE0L%"=="a" ( goto About ) if "%SE0L%"=="e" ( goto FinExit ) if "%SE0L%"=="h" ( goto Tutorial ) cls echo %SE0L% is not on the selection. goto 00124746 :About cls echo DTPChanger 1.0.1 (DeskThemePack Changer) echo. echo Batch file created by JBCarreon123 echo https://tenforums.com/members/jbcarreon123.html echo. echo DTPChanger 1.0.1 modified by Matthew Wai echo https://tenforums.com/members/matthew-wai.html echo. echo. echo DTPChanger is a command-line theme changer that has special features: echo - the Slideshow feature is requiring multiple deskthemepacks and not pictures. echo - command-line interface is good and has Choose theme dialog. echo and many more. echo. echo. echo Press [ANY KEY] to go back to the main. pause >nul goto Exit :Tutorial if "%ERR%"=="1" ( goto T1 ) if "%ERR%"=="0" ( goto T0 ) goto T0 :T1 start "" https://www.tenforums.com/tutorials/179107-how-change-themes-using-dtpchanger-windows-10-a.html goto Start0 pause :T0 start "" https://www.tenforums.com/tutorials/179107-how-change-themes-using-dtpchanger-windows-10-a.html goto 00124746 pause :FinExit cls