PE下切换下一桌面背景壁纸的bat文本和右键

苹果有毒 · 发表于 2025-7-3 18:06:46

本帖最后由苹果有毒于 2025-7-3 18:54 编辑

@echo off &setlocal &cd /d "X:\Windows\Web\Wallpaper\Windows"
for /f %%n in ('dir /b/a-d *.jpg *.png^|find /c /v "" ') do (set "n=%%n")
set/a "r=1+%random%%%%n%"
for /f "tokens=1* delims=]" %%a in ('dir /b/a-d *.jpg *.png^|find /n /v ""^|find "[%r%]" ') do set "随机=%%b"

pecmd.exe wall %随机%
exit/b

以下右键

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\DesktopBackground\Shell\便捷工具\shell\03]
@="换张壁纸"
"Icon"="imageres.dll,50"

[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\DesktopBackground\Shell\便捷工具\shell\03\command]
@="PECMD EXEC @X:\\Windows\\Web\\Wallpaper\\Windows\\bz.bat"

请大家支持一下，升级权限，不然总是发不了附件，谢谢

wwwlhp · 发表于 2025-7-3 18:11:43

多谢分享！！！

yyz2191958 · 发表于 2025-7-3 18:46:04

不错谢谢

114514csf · 发表于 2025-7-3 18:47:13

收藏一下

苹果有毒 · 发表于 2025-7-3 18:53:38

请大家支持一下，升级权限，不然总是发不了附件，谢谢

wn168cn@163.com · 发表于 2025-7-3 20:09:40

感谢分享！！

小灰兔 · 发表于 2025-7-3 20:27:28

感谢分享

mrzhonghb · 发表于 2025-7-3 20:44:19

支持支持

dawensger · 发表于 2025-7-3 20:49:19

路过看看

zyy · 发表于 2025-7-3 21:29:14

学习一下，谢谢分享

handsome_xiang · 发表于 2025-7-3 21:53:10

感谢分享！

wang1126 · 发表于 2025-7-4 06:22:07

谢谢楼主分享

12qaz · 发表于 2025-7-4 07:58:44

感谢分享

xuxiaojie120 · 发表于 2025-7-4 08:50:44

谢谢分享！！！

phwike · 发表于 2025-7-4 09:40:56

不错，感谢分享

dksoft · 发表于 2025-7-4 10:04:14

感谢分享

handsome_xiang · 发表于 2025-7-4 10:27:41

感谢分享！

yahu5 · 发表于 2025-7-4 10:36:43

感谢分享！

guong · 发表于 2025-7-4 13:33:55

谢谢楼主分享

guong · 发表于 2025-7-4 13:34:46

卡重复了

fegr · 发表于 2025-7-4 14:51:41

谢谢分享

lmgmmwws · 发表于 2025-7-4 15:23:57

谢谢分享!

		自动登录	找回密码
密码			注册

[分享] PE下切换下一桌面背景壁纸的bat文本和右键

评分

浏览过的版块