[系统相关] [代码征集]批处理随机更换桌面背景

@echo off&setlocal enabledelayedexpansion
rem  by  小楼一夜听春雨  bbs.bathome.net  2007-12-10
title 随机更换桌面背景&color 1f
:start
cls&set wjm=&set num=
echo\&echo  请输入图片全路径及文件名，或拖放文件来此。(只能是bmp图片)
echo\&echo  直接回车在当前目录随机提取bmp文件做为桌面
set /p wjm= 
if not "%wjm%"=="" goto loop
::  获取当前目录下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
)
:loop
set wjm=%wjm:"=%
if not exist "%wjm%" (
   echo\&echo  你输入的文件名不正确
   ping/n 2 127.1>nul
   goto start
)
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
复制代码