| Server IP : 134.29.175.74 / Your IP : 216.73.216.160 Web Server : nginx/1.10.2 System : Windows NT CST-WEBSERVER 10.0 build 19045 (Windows 10) i586 User : Administrator ( 0) PHP Version : 7.1.0 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : OFF | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /nginx/html/JimMartinson/_Archive/CST1861/Lab04/ |
Upload File : |
@echo off
::goto:EOF
@echo off
:: wp.cmd
:: Written by: Lance Sharkey
:: Written on: 2010/05/06
:: Test if command line extensions are enabled.
if "%~1"=="~1" goto:ExtensionsAreNotEnabled
:: Display help when the /? parameter is passed.
if NOT "%~1"=="/?" goto SkipHelp
:Help
echo Change the wallpaper to the .bmp or .jpg image selected.
echo.
echo Usage: %~n0
echo.
echo %~n0 will display a menu of all .bmp or .jpg images in the current directory.
echo The wallpaper will be changed to the image selected.
goto:EOF
:ExtensionsAreNotEnabled
echo Command line extensions are not enabled. They must be enabled for %~n0 to work properly.
echo %~n0 aborted.
echo.
goto:Help
:SkipHelp
cls
set _answers= ABCDEFGHIJKLMNOPQRSTUVWXUZ
set _thisImageNumber=
setlocal ENABLEDELAYEDEXPANSION
set _choice=0
set _choices=
echo.
::for /f "tokens=1,* delims=;" %%p in ('dir /b *.jpg') do call:parseImageMenu "%%p" "%%q"
::for /f "tokens=1,* delims=;" %%p in ('dir /b *.bmp') do call:parseImageMenu "%%p" "%%q"
for /f "tokens=1,* delims=;" %%p in ('dir /b *.jpg *.bmp') do call:parseImageMenu "%%p" "%%q"
set _choices=%_choices%x
::echo %_choices%
echo X) eXit
echo.
::choice /c:cdx /n /m "Select one of the above: "
choice /c:%_choices% /n /m "Which of the above do you want to do? "
::echo %errorlevel%
::goto:EOF
:: Get that part of the path.
set _thisImageNumber=%errorlevel%
set _thisImageCount=0
set _thisImage=
::for /f "tokens=1,* delims=;" %%p in ('dir /b *.jpg') do call:parseImageMenu "%%p" "%%q"
::for /f "tokens=1,* delims=;" %%p in ('dir /b *.bmp') do call:parseImageMenu "%%p" "%%q"
::set _
::echo on
for /f "tokens=1,* delims=;" %%p in ('dir /b *.jpg *.bmp') do call:parseImageMenu "%%p" "%%q"
::echo 59
set _
if defined _thisImage call:changeWallpaper
goto:EOF
:changeWallpaper
echo on
echo y|reg add "HKCU\Control Panel\Desktop" /v Wallpaper /t REG_SZ /d "%cd%\%_thisImage%">nul
wprefresh
goto:EOF
:makeMenu
set /a _choice += 1
set _choices=%_choices%!_answers:~%_choice%,1!
echo !_answers:~%_choice%,1!) %~1
goto:EOF
:parseImageMenu
::echo 72 _thisImageNumber=%_thisImageNumber%
if defined _thisImageNumber (
call:saveImagePart "%~1"
) else (
call:makeMenu " %~1"
)
if NOT "%~2"=="" for /f "tokens=1,* delims=;" %%p in ("%~2") do call:parseImageMenu "%%p" "%%q"
goto:EOF
:saveImagePart
set /a _thisImageCount += 1
if %_thisImageCount%==%_thisImageNumber% set _thisImage=%~1
goto:EOF