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

wangjile

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

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

1. set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop%regadd%" /v TileWallpaper /d "0" /f
   
2. %regadd%" /v Wallpaper /d "c:\WINDOWS\Web\Wallpaper\a.bmp" /f
   
3. %regadd%" /v WallpaperStyle /d "2" /f
   
4. 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，解决了，感谢蝗虫大神

以下是代码：

1. set zx=%1
   
2. reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d %zx% /f
   
3. 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,这是我找到的代码，还是蝗虫提供的

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

复制代码

a262615704

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

可惜找不到。

Batcher

回复 9# a262615704


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