[其他] [已解决]随机换桌面墙纸!

Rank: 5 Rank: 5

帖子: 10
积分: 687
技术: 0
捐助: 0
注册时间: 2008-9-1

3楼

发表于 2008-10-13 13:42 | 只看该作者

也是不行..还是一样的情况.

pusofalse

荣誉版主

Rank: 8 Rank: 8

帖子: 1166
积分: 5174
技术: 13
捐助: 0
注册时间: 2008-3-11

4楼

发表于 2008-10-13 14:00 | 只看该作者

- -|||看错了。。。
把:loop放在set /a w=%random%%%%var%+1的上面一行，并把set/a w=%random%%%%var%+1改为set/a w=%random%%%%var%+1,num=0

心绪平和，眼藏静谧。

随风

荣誉版主

Rank: 8 Rank: 8

帖子: 1759
积分: 5387
技术: 51
捐助: 210
注册时间: 2007-10-26

5楼

发表于 2008-10-13 14:12 | 只看该作者

可以更简单点。

@echo off&setlocal enabledelayedexpansion
title 随机更换桌面背景&color 1f
::  获取当前目录下bmp文件的总数
for %%a in (*.bmp) do set /a var+=1&set .!var!=%%a
:: 提取一个随机数,范围在文件总数之内
:loop
set /a w=%random%%%var+1
set wjm=!.%w%!

Rem ===================操作注册表=====================
set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop"
%regadd% /v TileWallpaper /d "0" /f>nul
%regadd% /v Wallpaper /d "%wjm%" /f>nul
%regadd% /v WallpaperStyle /d "2" /f>nul
Rem ====================更新==========================
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

ping 127.1 -n 5
goto loop
复制代码

技术问题请到论坛发帖求助！

Rank: 5 Rank: 5

帖子: 10
积分: 687
技术: 0
捐助: 0
注册时间: 2008-9-1

6楼

发表于 2008-10-13 14:17 | 只看该作者

原帖由 pusofalse 于 2008-10-13 14:00 发表
- -|||看错了。。。
把:loop放在set /a w=%random%%%%var%+1的上面一行，并把set/a w=%random%%%%var%+1改为set/a w=%random%%%%var%+1,num=0

你的方法还是不行.不过非常感谢!!

Rank: 5 Rank: 5

帖子: 10
积分: 687
技术: 0
捐助: 0
注册时间: 2008-9-1

7楼

发表于 2008-10-13 14:18 | 只看该作者

随风版主的可以用.他改动过一点.不过有点看不明白为什么要那样改...

非常感谢!

Rank: 5 Rank: 5

帖子: 10
积分: 687
技术: 0
捐助: 0
注册时间: 2008-9-1

8楼

发表于 2008-10-13 14:27 | 只看该作者

@echo off&setlocal enabledelayedexpansion
title 随机更换桌面背景&color 1f

::  获取当前目录下bmp文件的总数
for %%a in (*.bmp) do set /a var+=1
:: 提取一个随机数,范围在文件总数之内
set /a w=%random%%%%var%+1
:: 循环所有bmp文件,每次给num加1,当num的值等于随机数就以这个文件为桌面
for %%a in (*.bmp) do (
  set /a num+=1
  if !num! equ !w! set wjm=%%a
)
)
Rem ===================操作注册表=====================
set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop"
%regadd% /v TileWallpaper /d "0" /f>nul
%regadd% /v Wallpaper /d "%wjm%" /f>nul
%regadd% /v WallpaperStyle /d "2" /f>nul
Rem ====================更新==========================
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

ping 127.1 -n 5
start "bat本身绝对路径"
exit

这样好像也可以!但好像也失去意义了.呵呵....

Rank: 5 Rank: 5

帖子: 10
积分: 687
技术: 0
捐助: 0
注册时间: 2008-9-1

9楼

发表于 2008-10-13 14:43 | 只看该作者

我发的那段代码随机性不够强,很多时候会出现重复墙纸.

随风版主的更好..用VBS在开机的时候加载.我想效果会比较好看!