[20230320] 批处理：顺序和随机设置桌面壁纸（适用PE和正常系统）

BEIKING

1. @echo off
   
2. Title 切换壁纸
   
3. MODE con: Cols=40 Lines=10
   
4. Color 2f
   
5. 
   
6. Pushd "%CD%"&cd /d "%~dp0"
   
7. for /f "tokens=2*" %%i in ('reg query "HKCU\Control Panel\Desktop" /v "WallPaper" 2^>nul') do Set "OWP=%%j"
   
8. for /f "tokens=* usebackq" %%f in (`dir /b *.*^|find /v /c "%~nx0"`) do Set /a Count=%%f
   
9. echo 壁纸数量: [%Count%]
   
10. if %Count% == 0 Color cf&ping 127.1 -n 3 >nul&Exit /b
    
11. 
    
12. REM 调用参数：-Next(默认) -Random +Next +Random
    
13. Set CP=-&Set GP=顺序切换&Set Args=%1
    
14. if defined Args (
    
15.     Set "CP=%Args:~0,1%"
    
16.     if /i `%Args:~1%` == `Random` Set GP=随机切换
    
17. )
    
18. Goto %GP%
    
19. 
    
20. :顺序切换
    
21. for /f "tokens=* usebackq" %%f in (`dir /b /o:d *.*^|find /v "%~nx0"`) do (
    
22.     Copy "%%f"+,, "%%f" 1>nul 2>nul&Set "NWP=%%f"&Goto 设置壁纸
    
23. )
    
24. 
    
25. :随机切换
    
26. Set /a RNum=%Random%%%%Count%+1 2>nul
    
27. Set Num=1
    
28. setlocal enabledelayedexpansion
    
29. for /f "tokens=* usebackq" %%f in (`dir /b *.*^|find /v "%~nx0"`) do (
    
30.     if !Num! == %RNum% (endlocal&Set RNum=[%RNum%] &Set "NWP=%%f"&Goto 设置壁纸)
    
31.     Set /a Num+=1
    
32. )
    
33. 
    
34. :设置壁纸
    
35. if /i `%CP%` == `+` (Copy /y "%NWP%" "%WinDir%\Web\Wallpaper\%NWP%" >nul&&Set "NWP=%WinDir%\Web\Wallpaper\%NWP%") else Set "NWP=%~dp0%NWP%"
    
36. if "%GP%" == "随机切换" if "%OWP%" == "%NWP%" if "%Count%" gtr "1" Goto 随机切换
    
37. echo %GP%: %RNum%↓
    
38. echo %NWP%
    
39. if exist %SystemRoot%\System32\Pecmd.exe (Pecmd WALL "%NWP%"&® delete "HKCU\Control Panel\Desktop" /f /v "Wallpaper.PECMD" 1>nul 2>nul) else (reg add "HKCU\Control Panel\Desktop" /f /v "WallPaper" /t REG_SZ /d "%NWP%" 1>nul 2>nul&&Call :刷新)
    
40. if not defined Args ping 127.1 -n 2 >nul
    
41. Exit /b
    
42. 
    
43. :刷新 :: 可能不生效，需要手动重启资源管理器。
    
44. Set n=20
    
45. :循环
    
46. Set /a n-=1
    
47. @start "" rundll32.exe user32.dll,UpdatePerUserSystemParameters 1,True
    
48. if "%n%" neq "0" Goto 循环
    
49. Goto :eof

复制代码

PE系统，调用 Pecmd WALL 命令设置桌面壁纸，很稳定都生效
正常系统，注册表设置壁纸路径后，调用 rundll32.exe user32.dll,UpdatePerUserSystemParameters 1,True 刷新桌面，有一定概率不生效。需要多次刷新

调用参数：
-Next        顺序切换壁纸(默认)
+Next       顺序切换壁纸，壁纸文件拷入到%WinDir%\Web\Wallpaper\
-Random   随机切换壁纸
+Random  随机切换壁纸，壁纸文件拷入到%WinDir%\Web\Wallpaper\

使用方法：
将脚本文件置于壁纸同一目录执行，不支持下级目录。
壁纸目录只能有脚本文件和壁纸文件，不能存在其他文件或文件夹，会影响壁纸切换！

_切换壁纸.rar (1.02 KB, 下载次数: 84)

2023-3-20 11:11 上传

点击文件名下载附件
下载积分: 无忧币 -2

BEIKING

感觉应该比用第三方程序方便

a583091790

是呀这串 rundll32.exe user32.dll,UpdatePerUserSystemParameters，我有时也不会刷新生效。墙纸没更换成功

BEIKING

a583091790 发表于 2022-11-29 15:23
是呀这串 rundll32.exe user32.dll,UpdatePerUserSystemParameters，我有时也不会刷新生效。墙纸没更换成功

我处理了，连续刷新20次，，可以的

IDK灬飘渺

pe随机壁纸，有点意思

likeyouli

我改成2次 试试可以不 (随机设置桌面壁纸)
   先谢谢了

zp1688

感觉应该比用第三方程序方便

zhangze

系统有换壁纸的功能啊！

9zhmke

也许需要延时再刷新

come77

用处不大，感谢分享

wy66

谢谢分享

飞黄腾达9

谢谢分享

cuicongyuan

支持！

9zhmke

BEIKING 发表于 2022-11-29 15:27
我处理了，连续刷新20次，，可以的

也许需要延时再刷新

liuyanjun

感谢分享 很有用

chinaren12

这个win7和win10不都可以随机更换壁纸吗？只要你选择主题就行了。

楼主这个应该是专门为PE设计的。

2010laodu

感谢分享 很有用

lxj0209103

windows 11 系统 Set n=20 :循环 改成Set n=2 :循环 刷新2次没有更新壁纸，windows 11 PE没有问题，

dszsdyx

挺好的，换换风格。

miraclex

谢谢了啊

papachi

来试试看呗。谢谢。

jh198354

感谢分享！

being

Win7 X86 只能改一次，后面的不成功，结束explorer.exe也不行。也许需要重启

BEIKING

壁纸切换脚本更新

调用参数：
-Next        顺序切换壁纸(默认)
+Next       顺序切换壁纸，壁纸文件拷入到%WinDir%\Web\Wallpaper\
-Random   随机切换壁纸
+Random  随机切换壁纸，壁纸文件拷入到%WinDir%\Web\Wallpaper\

使用方法：
将脚本文件置于壁纸同一目录执行，不支持下级目录。
壁纸目录只能有脚本文件和壁纸文件，不能存在其他文件或文件夹，会影响壁纸切换！

baolinqiu1

随机壁纸，有点意思

千城

这个切换丝滑吗，会不会有闪屏现象？

macowen

谢谢来着分享！！

hycsl888

这个系统幻灯片不就是吗？

hehuiying

谢谢分享