批处理如何实现随机更换桌面壁纸/背景？

superwc001 · 发表于 2016-3-25 09:00:55

本帖最后由 pcl_test 于 2016-7-28 01:06 编辑

有一个文件夹里面放着N张BMP格式的图片。想做一个批处理运行后会随机把文件夹里的图片设置成壁纸。
点击后更改就可以，不需要每隔多久自动修改。
谢谢大神

happy886rr · 发表于 2016-3-25 13:02:43

本帖最后由 happy886rr 于 2016-3-28 16:49 编辑

回复 1# superwc001

@echo off
setlocal enabledelayedexpansion
for %%i in (*.bmp) do (set /a N+=1)
for %%i in (*.bmp) do (
set /a RN=!random!%%!N!+1
if not defined #!RN! (set "#!RN!=%%i")
)
for /f "tokens=2 delims==" %%i in ('set #') do (
REG ADD "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "!CD!\%%i" /f
echo %%i
set /a i+=1
if !i! equ 1 (goto end)
)
:end
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
set /p =执行完毕！

复制代码

superwc001 · 发表于 2016-3-25 13:44:57

回复 2# happy886rr

不好用呀。

superwc001 · 发表于 2016-3-25 13:45:32

此时不该有(*.bmp)

happy886rr · 发表于 2016-3-25 13:49:45

本帖最后由 happy886rr 于 2016-3-25 14:44 编辑

回复 4# superwc001
代码少写了一个in ，已改，在原楼

superwc001 · 发表于 2016-3-28 14:36:10

回复 5# happy886rr

谢谢帮忙，非常感谢，但是测试XP下一点问题没有，WIN7下，双击批处理后有时候能改桌面，有时候没反应，批处理已经显示了BMP文件名，但是没有更改。但是有时候好用。点击10次能有2 3次成功。是不是我系统问题？系统是WIN7 专业版的SP1

happy886rr · 发表于 2016-3-28 14:58:53

回复 6# superwc001
说对了，就是系统问题，xp支持那个操作。到了win7就有一个延迟，不能立刻刷新背景。

superwc001 · 发表于 2016-3-28 15:50:29

回复 7# happy886rr

有办法解决吗？？

superwc001 · 发表于 2016-3-29 20:00:18

大神们有帮我解决下的吗？

pcl_test · 发表于 2016-7-28 01:04:20

本帖最后由 pcl_test 于 2016-7-28 01:08 编辑

回复 9# superwc001

先运行这个帖子3楼的代码，生成$ChangeWallpaper.exe，
http://www.bathome.net/redirect. ... 7073&ptid=40853
然后在把下面批处理、exe文件和bmp图片放一起，执行批处理

@echo off&setlocal enabledelayedexpansion
for %%i in (*.bmp) do set /a n+=1&set "#!n!=%%i"
set /a r=!random!%%%n%+1
$ChangeWallpaper.exe "!#%r%!"
pause

复制代码

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

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

[文件操作] 批处理如何实现随机更换桌面壁纸/背景？