[系统相关] [已解决]批处理自动设置桌面背景

wangjile

如题：怎样才能做到啊？   
嗯，详细说下我的目标：把某张图片拖到P处理a.bat（注意：没有打开P），P自动把该图片设置为桌面背景，大家帮忙下

已知：
1.设置桌面背景的代码为

set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop%regadd%" /v TileWallpaper /d "0" /f
%regadd%" /v Wallpaper /d "c:\WINDOWS\Web\Wallpaper\a.bmp" /f
%regadd%" /v WallpaperStyle /d "2" /f
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
复制代码

：
2.这张图片一定得是BMP格式的，否则会失败，原因未知

[ 本帖最后由 wangjile 于 2010-11-26 21:27 编辑 ]

batman

将"c:\WINDOWS\Web\Wallpaper\a.bmp"改为%1试试。。。

[ 本帖最后由 batman 于 2010-11-26 21:14 编辑 ]

wangjile

OK，解决了，感谢蝗虫大神

以下是代码：

set zx=%1
reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d %zx% /f
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
复制代码

wangjile

感谢版主，忘了刷新网页了，没看到你的回复，在群里解决了，看来英雄所见略同啊

hanyeguxing

%1可以直接使用，没必要再set它

caiyaoyao

哦哦  其实我是来学习的
  谢谢你们  免费教材

wangjile

斑竹和5楼大才啊，的确，没必要set       %1的，完全可以
那么，我再问下，能不能把P改到这种程度：

当我双击P时，P会自动将本文件夹下任意一张BMP图片设置为桌面背景

可以做到吗？？

[ 本帖最后由 wangjile 于 2010-11-27 17:48 编辑 ]

wangjile

OK,这是我找到的代码，还是蝗虫提供的

 
rem 随机的，不停地变换桌面背景
cd /d %~dp0.
@echo off&setlocal enabledelayedexpansion
if not "%1"=="h" mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",vbhide)(window.close)&exit
set "bmp="%USERPROFILE%\Local Settings\Application Data\Microsoft\Wallpaper1.bmp""
if not exist delay.vbs echo wscript.sleep 50000>delay.vbs
set ADD=reg add "HKEY_CURRENT_USER\Control Panel\Desktop"
(
%ADD% /v TileWallpaper /d "0" /f
%ADD% /v WallpaperStyle /d "3" /f
)>nul 2>nul
:start
set "n="
for /f %%i in ('dir/b *.bmp') do set/a n+=1
:+REN标签会以001.bmp的形式自动重命名当前目录下的*.bmp位图文件。
:+但如果原文件名中带有半角叹号“!”会出错，目前还没想到解决办法。
:+所以在下载保存图片的时候请自己注意一下图片名字是否还有“!”，有则删掉再保存。
:REN
set "ver="
for /f "delims=" %%i in ('dir /b *.bmp') do (
set /a ver+=1&set "name=0000000!ver!.bmp"&set "name=!name:~-7!"
if /i "%%i" neq "!name!" (
if exist "!name!" (ren "!name!" "TMP_!random!.bmp"&ren "%%i" "!name!"&goto REN) else ren "%%i" "!name!"
))
%ADD% /v Wallpaper /d %bmp% /f
set/a "a=%random%%%%n%+1"
set "a=000%a%"&set "b=!a:~-3!"
for %%i in (%x%) do (if "%b%" equ "%%i" goto start)
set/a m+=1
:+下面这个10是控制随机更换的10张图片内不会重复。可以自行设置。
:+不能大于图片总数减1。如共50张图片则最大只能设成49。
if %m% gtr 10 (
set "x=%b% %x:~0,-4%"
)else set "x=%b% %x%"
copy /y "%b%.bmp" %bmp%>nul 2>nul
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
delay.vbs
goto start
复制代码

a262615704

如果能用批处理调用某个图片处理软件自动把图片转换成真正的BMP格式就实现全自动换壁纸了

可惜找不到。

Batcher

回复 9# a262615704


批处理如何把jpg格式的图片设置为桌面背景？
http://bbs.bathome.net/viewthread.php?tid=3345#pid21158