기 타 PE 배경화면, 순서대로 바꾸기 CMD

 

PE에서 배경화면을 테마(밝은 테마, 어두운 테마) 연동하여 순서대로 바꾸어 보려고 작성하였습니다.

어차피 PE에 배경화면을 많이 넣어두고 쓸 일은 없기 때문에 선호하는 배경 몇개를 순서대로 보는 것도 좋겠다는 생각입니다.

랜덤으로 배경화면 바꾸는 프로그램은 예전에 올려주신 분이 있기 때문에 그것을 사용하시면 되겠습니다.

 

저는 BAT, CMD 스크립트에 대해 아는 것이 거의 없기 때문에

이곳 포럼에서 스크립트를 잘 아시는 분들께서 가끔 올려주시는 내용을 보고 따라하거나 

제가 이해할 수 있는 간단한 내용만 짜깁기하는 수준입니다. (올려주시는 분들께 감사드립니다.)

PE에서 특별한 문제없이 작동하길래 민망한 수준이지만 올려봅니다.

내용이 엉성하더라도 이해해 주시기 부탁드립니다.

내용 중에 잘못된 부분이나 개선할 부분은 고급 스크립트를 잘 아시는 분들께 의지하겠습니다.

 

사용자께서 선호하는 배경을 아래 번호에 맞게 파일명으로 정하시고

이미지 폴더나 경로를 변경하실 경우 소스에서도 변경하시면 됩니다.

 

CMD 파일과 적당한 아이콘 파일 넣어서 실행파일로 만드신 후, PE 작업표시줄에 링크하여 사용하시면 되겠습니다.

CMD 파일을 실행 파일로 변경하는 프로그램은 

우리**님 사이트( https://koko4u.tistory.com/ )에서 구하실 수 있습니다. (우리**님 감사합니다.)

 

img0.jpg 파일은 윈도우 기본배경, 밝은 테마 기본 배경

img1.jpg 파일부터 img5.jpg 파일까지는 밝은 배경 화면

Darkimg.jpg 파일은 어두운 테마 기본 배경

img6.jpg 파일 부터 img9.jpg 파일까지는 는 어두운 배경 화면으로 하시면 됩니다.

 

아래는 CMD 파일 내용입니다.

:========================================================

 

@echo off

title WallPaper Changer

pushd "%~dp0"

setlocal enabledelayedexpansion

color 1f

 

for /f "tokens=3" %%a in ('Reg Query "HKCU\control panel\desktop" /v wallpaper') do (set Wallimg=%%a)

 

set imgN0=X:\windows\web\wallpaper\windows\img0.jpg

set imgN01=X:\Tools\images\img01.jpg

set imgN02=X:\Tools\images\img02.jpg

set imgN03=X:\Tools\images\img03.jpg

set imgN04=X:\Tools\images\img04.jpg

set imgN05=X:\Tools\images\img05.jpg

set imgN06=X:\Tools\images\img06.jpg

set imgN07=X:\Tools\images\img07.jpg

set imgN08=X:\Tools\images\img08.jpg

set imgN09=X:\Tools\images\img09.jpg

set Darkimg=X:\Windows\Dark.jpg

 

if /i "%Wallimg%"=="%imgN0%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN01%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN01%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN02%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN02%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN03%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN03%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN04%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN04%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN05%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN05%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN0%" /f > nul & goto update

if /i "%Wallimg%"=="%Darkimg%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN06%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN06%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN07%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN07%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN08%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN08%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%imgN09%" /f > nul & goto update

if /i "%Wallimg%"=="%imgN09%" Reg add "HKCU\control panel\desktop" /v "wallpaper" /d "%Darkimg%" /f > nul & goto update

 

:update

"%ProgramFiles%\WinXShell\WinXShell.exe" -code app:call('Desktop::UpdateWallpaper') > nul

endlocal & exit /b

 

:========================================================