无忧启动论坛

标题: [20230320] 批处理：顺序和随机设置桌面壁纸（适用PE和正常系统） [打印本页]
作者: BEIKING    时间: 2022-11-29 15:12
标题: [20230320] 批处理：顺序和随机设置桌面壁纸（适用PE和正常系统）
本帖最后由 BEIKING 于 2023-3-20 11:13 编辑
  1. @echo off
  2. Title 切换壁纸
  3. MODE con: Cols=40 Lines=10
  4. Color 2f

  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

  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%

  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. )

  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. )

  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

  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)

作者: BEIKING    时间: 2022-11-29 15:13

感觉应该比用第三方程序方便
作者: a583091790    时间: 2022-11-29 15:23
是呀这串 rundll32.exe user32.dll,UpdatePerUserSystemParameters，我有时也不会刷新生效。墙纸没更换成功
作者: BEIKING    时间: 2022-11-29 15:27
a583091790 发表于 2022-11-29 15:23
是呀这串 rundll32.exe user32.dll,UpdatePerUserSystemParameters，我有时也不会刷新生效。墙纸没更换成功

我处理了，连续刷新20次，，可以的
作者: IDK灬飘渺    时间: 2022-11-29 15:28
pe随机壁纸，有点意思
作者: likeyouli    时间: 2022-11-29 15:31
我改成2次 试试可以不 (随机设置桌面壁纸)
   先谢谢了
作者: zp1688    时间: 2022-11-29 15:35


感觉应该比用第三方程序方便
作者: zhangze    时间: 2022-11-29 15:38
系统有换壁纸的功能啊！
作者: 9zhmke    时间: 2022-11-29 18:19
也许需要延时再刷新
作者: come77    时间: 2022-11-29 18:50
用处不大，感谢分享
作者: wy66    时间: 2022-11-29 20:06
谢谢分享
作者: 飞黄腾达9    时间: 2022-11-29 20:09
谢谢分享
作者: cuicongyuan    时间: 2022-11-29 20:25
支持！
作者: 9zhmke    时间: 2022-11-29 20:35
BEIKING 发表于 2022-11-29 15:27
我处理了，连续刷新20次，，可以的

也许需要延时再刷新
作者: liuyanjun    时间: 2022-11-29 21:27
感谢分享 很有用
作者: chinaren12    时间: 2022-11-29 21:46
这个win7和win10不都可以随机更换壁纸吗？只要你选择主题就行了。

楼主这个应该是专门为PE设计的。
作者: 2010laodu    时间: 2022-11-29 21:50
感谢分享 很有用
作者: lxj0209103    时间: 2022-11-29 22:29
windows 11 系统 Set n=20 :循环 改成Set n=2 :循环 刷新2次没有更新壁纸，windows 11 PE没有问题，
作者: dszsdyx    时间: 2022-11-30 05:14
挺好的，换换风格。
作者: miraclex    时间: 2022-11-30 06:28
谢谢了啊
作者: papachi    时间: 2022-11-30 09:18
来试试看呗。谢谢。
作者: jh198354    时间: 2022-11-30 09:43
感谢分享！
作者: being    时间: 2022-12-3 17:21
Win7 X86 只能改一次，后面的不成功，结束explorer.exe也不行。也许需要重启
作者: BEIKING    时间: 2023-3-20 11:13
壁纸切换脚本更新

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

使用方法：
将脚本文件置于壁纸同一目录执行，不支持下级目录。
壁纸目录只能有脚本文件和壁纸文件，不能存在其他文件或文件夹，会影响壁纸切换！
作者: baolinqiu1    时间: 2023-3-20 16:46
随机壁纸，有点意思
作者: nowayer    时间: 2023-12-2 11:29
提示: 作者被禁止或删除 内容自动屏蔽
作者: 千城    时间: 2023-12-8 23:45
这个切换丝滑吗，会不会有闪屏现象？
作者: macowen    时间: 2024-3-8 12:41
谢谢来着分享！！
作者: hycsl888    时间: 2024-3-8 13:38
这个系统幻灯片不就是吗？
作者: hehuiying    时间: 2024-3-16 10:29
谢谢分享
作者: hehuiying    时间: 2024-4-1 00:41
谢谢分享
作者: wn168cn@163.com    时间: 2024-10-24 11:26
感谢楼主分享



欢迎光临 无忧启动论坛 (http://wuyou.net./) Powered by Discuz! X3.3