[原创]壁纸自动换批处理版 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

未经充许，贴出楼主的原码，还请原谅：
@echo off

color 0a
title 自动壁纸更换器
echo.&echo            自动壁纸更换器 by:clamber QQ:282959030 CMD@XP 2008/05/27
echo    ────────────────────────────────────
─

net start | find /i "Scheduler" >nul 2>nul
If %Errorlevel% GTR 0 sc config schedule start= auto >nul 2>nul&&net start sched
ule >nul 2>nul
if not exist "%ProgramFiles%\autowallpaper" mkdir "%ProgramFiles%\autowallpaper"
>nul 2>nul
if not exist wiaaut.dll echo.&echo  缺少"wiaaut.dll",程序可能不可用,仍然继续请按
任意键.&pause>nul
move/y wiaaut.dll %windir%\wiaaut.dll>nul 2>nul
regsvr32 /s %windir%\wiaaut.dll>nul

echo.
echo  请输入自动更换壁纸文件夹路径,可以直接拖入壁纸文件夹。卸载请输入[ U ]
:first
echo.&set/p picpath=  -^>
if "%picpath:~3,1%"=="" set picpath=%picpath:~1,-1%
if /i "%picpath%"=="u" (
   regsvr32 /u /s wiaaut.dll
   del/q/f %windir%\wiaaut.dll>nul 2>nul
   rd/s/q "%ProgramFiles%\autowallpaper">nul 2>nul
   schtasks /delete /tn "wallpaper" /f >nul 2>nul
   del/q/f "%USERPROFILE%\桌面\更换壁纸.url">nul 2>nul
   echo  已卸载壁纸自动更换! 按任意键退出...&pause>nul&exit
   ) else (
   if not exist "%picpath%" echo  路径错误!&goto first
)

if not exist "%picpath%\*.jpg" if not exist "%picpath%\*.bmp" echo  没有图片文件
！&goto first

echo.&echo  取值范围:[0-1439]分钟,[0]为只在开机时更换壁纸。&echo.
set/p settimes= 请设置更换壁纸周期^(默认为0^):
set/a jtime=1439-%settimes%

if %jtime% EQU 1439 (
   schtasks /delete /tn "wallpaper" /f>nul 2>nul
   schtasks /create /sc onstart /tn "wallpaper" /ru system /tr """"C:\Program Fi
les\autowallpaper\wallpaper.bat"""">nul 2>nul
   ) else (
   schtasks /delete /tn "wallpaper" /f>nul 2>nul
   schtasks /create /sc minute /mo %settimes% /st 00:00:30 /tn "wallpaper" /ru s
ystem /tr """"C:\Program Files\autowallpaper\wallpaper.bat"""">nul 2>nul
)

::创建快捷方式
if not exist "%USERPROFILE%\桌面\更换壁纸.url" (
>"%USERPROFILE%\桌面\更换壁纸.url" echo [InternetShortcut]
>>"%USERPROFILE%\桌面\更换壁纸.url" echo URL="%ProgramFiles%\autowallpaper\wallp
aper.bat"
>>"%USERPROFILE%\桌面\更换壁纸.url" echo IconIndex=130
>>"%USERPROFILE%\桌面\更换壁纸.url" echo IconFile=%windir%\system32\SHELL32.dll
>>"%USERPROFILE%\桌面\更换壁纸.url" echo Modified=F00BA4B792A0C80151
attrib +r "%USERPROFILE%\桌面\更换壁纸.url"
)

(echo ^@echo off
echo title 请稍候...
echo mode con lines=3 cols=20
echo echo.^&echo  正在更换新壁纸……
echo set cdnj=%%~dp0
echo cd/d "%picpath%"
echo :begin
echo if exist wallpaper.bmp del/q/f wallpaper.bmp
echo for /f "tokens=1 delims=" %%%%i in ^('dir/b/d *.jpg *.bmp'^) do ^(
echo     set wallpaper=%%%%i
echo     call :huanbz
echo ^)
echo del/q/f "%%cdnj%%wallpaper.ini"
echo goto :begin
echo.
echo :huanbz
echo find /i "%%wallpaper%%" "%%cdnj%%wallpaper.ini"^>nul 2^>nul
echo if ^%%errorlevel^%% EQU 1 (
echo    echo %%wallpaper%%^>^>"%%cdnj%%wallpaper.ini"
echo    mshta "javascript:var i=new ActiveXObject('WIA.ImageFile');i.LoadFile('%
%wallpaper%%');var x=new ActiveXObject('WIA.ImageProcess');x.Filters.Add('{42A6E
907-1D2F-4b38-AC50-31ADBE2AB3C2}');with(x.Filters(1)){Properties('FormatID').Val
ue='{B96B3CAB-0728-11D3-9D7B-0000F81EF32E}';Properties('Quality').Value=100;}x.A
pply(i).SaveFile('wallpaper.bmp');window.close();"
echo    reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v TileWallpaper /d "0
" /f^>nul 2^>nul
echo    reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "%%cd%
%\wallpaper.bmp" /f^>nul 2^>nul
echo    reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WallpaperStyle /d "
2" /f^>nul 2^>nul
echo    RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
echo    call :attime
echo    exit
echo ^)
echo goto :eof
echo.
echo :attime
echo Set/a hour=%%time:~0,2%%+0
echo Set/a minute=1%%time:~3,2%%-100+1
echo If %%minute%% GEQ 60 Set/a minute=%%minute%%-60 ^& Set/a hour=%%hour%%+1
echo If %%hour%% GEQ 24 Set/a hour=%%hour%%-24
echo at %%hour%%:%%minute%% /interactive RunDll32.exe USER32.DLL,UpdatePerUserSy
stemParameters ^>nul 2^>nul
echo exit)>"%ProgramFiles%\autowallpaper\wallpaper.bat"

echo.&echo  已完成!&ping -n 3 127.1>nul&exit