China DOS Union

Supports JPG and BMP image formats, supports automatic timed replacement and manual (desktop shortcut) opening for replacement.

Download here: http://upload.cn-dos.net/img/480.rar

Without permission, posting the original code of the owner, please forgive:

@echo off



color 0a

title Automatic Wallpaper Changer

echo.&echo            Automatic Wallpaper Changer 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  Missing "wiaaut.dll", the program may not be available, still continue please press any key.&pause>nul

move/y wiaaut.dll %windir%\wiaaut.dll>nul 2>nul

regsvr32 /s %windir%\wiaaut.dll>nul



echo.

echo  Please enter the path of the folder for automatic wallpaper change, you can directly drag and drop the wallpaper folder. To uninstall, enter 

: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%\Desktop\Change Wallpaper.url">nul 2>nul

   echo  Automatic wallpaper change has been uninstalled! Press any key to exit...&pause>nul&exit

   ) else (

   if not exist "%picpath%" echo  Path error!&goto first

)



if not exist "%picpath%\*.jpg" if not exist "%picpath%\*.bmp" echo  No image files!&goto first



echo.&echo  Value range:  minutes,  is only to change wallpaper at startup. &echo.

set/p settimes=  Please set the wallpaper change cycle (default is 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

)



::Create shortcut

if not exist "%USERPROFILE%\Desktop\Change Wallpaper.url" (

>"%USERPROFILE%\Desktop\Change Wallpaper.url" echo 

>>"%USERPROFILE%\Desktop\Change Wallpaper.url" echo URL="%ProgramFiles%\autowallpaper\wallp

aper.bat"

>>"%USERPROFILE%\Desktop\Change Wallpaper.url" echo IconIndex=130

>>"%USERPROFILE%\Desktop\Change Wallpaper.url" echo IconFile=%windir%\system32\SHELL32.dll

>>"%USERPROFILE%\Desktop\Change Wallpaper.url" echo Modified=F00BA4B792A0C80151

attrib +r "%USERPROFILE%\Desktop\Change Wallpaper.url"

)



(echo ^@echo off

echo title Please wait...

echo mode con lines=3 cols=20

echo echo.^&echo  Changing new wallpaper...

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  Done!&ping -n 3 127.1>nul&exit

Hehe, a DLL file is needed. If you only use this simple batch processing, there may be problems with image conversion.

Is the code encrypted?

Sweat, didn't the second floor provide the source code?