求一壁纸自动更换P处理 - 中国DOS联盟论坛

下面是批处理代码


@echo on&setlocal EnableDelayedExpansion
title 按照星期或指定节日自动更改壁纸---P处理---by 彬(QQ:43142691) %date%


::提示  在路径下 必须要有 “节日壁纸 随机壁纸 星期壁纸” 这3个文件夹
::****************************************************************************
set 服务器路径=c:\2
set 时间服务器=192.168.0.253
::****************************************************************************
set y=%date:~0,-10%
set d=%date:~8,-4%
set 周=%date:~-3%
set 月=%date:~5,-7%
set 日=%date:~8,-3%
set 今天日期=today.ini
set n=0
:显示
::***********************************************************************
echo %月%%日% %周%>%今天日期%
find "①=不排除" %服务器路径%\配置文件.ini && goto 初始化
find "%computername%" %服务器路径%\配置文件.ini && goto 初始化

exit
:初始化

find "②=不随机" %服务器路径%\配置文件.ini && goto 跳过随机
set /a x=%random%%%100+1
set 壁纸文件名=跳过随机壁纸\%x%
goto 更换壁纸
:跳过随机
set /a n+=1
set 星期=壁纸文件名=星期壁纸
set 节日=壁纸文件名=节日壁纸
for /f "tokens=2" %%F in (%今天日期%) do set %星期%\%%F
find "③=不启用" %服务器路径%\配置文件.ini && goto 更换壁纸
for /f "tokens=1" %%i in (%今天日期%) do set %节日%\%%i
:更换壁纸
if %n% EQU 3 goto 完成
if not exist %服务器路径%\%壁纸文件名%.bmp goto 跳过随机
set regadd=reg add "HKCU\Control Panel\Desktop
%regadd%" /v TileWallpaper /d "0" /f
%regadd%" /v Wallpaper /d "%服务器路径%\%壁纸文件名%.bmp" /f
%regadd%" /v WallpaperStyle /d "2" /f
gpupdate /force
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
del %今天日期%
exit

下面是配置文件.ini


这个是服务器端的配置文件，请放置服务器端
*****************************************************************
【这里设置是否指定计算机执行以下程序】 关键词【 不排除 】【 排除 】
①=不排除
*****************************************************************
【这里设置是否 随机 】 关键词【 不随机 】【 随机 】
是否显示特殊节日
②=随机
*****************************************************************
【这里设置是否启用特殊节日】 关键词【 不启用 】【 启用 】
是否显示特殊节日
③=不启用
*****************************************************************
下面开始是指定 计算机才更换壁纸的计算机名【一行一个计算机名】
*****************************************************************
计算机名 区间编号
A001
A002

[ Last edited by qq43142691 on 2007-8-1 at 06:53 AM ]

第1楼　applecy	发表于 2007-07-31 15:35
初级用户　发帖 78　积分 168
求一壁纸自动更换P处理 RT. 曾在某论坛看到如下Bat: @echo off ren 1.jpg 2.jpg ren 2.jpg 3.jpg ren 3.jpg 4.jpg ren 4.jpg 5.jpg ren 5.jpg 1.jpg exit 据说这样可以在每次开机的时候更换壁纸，而事实上是不成立的。所以求一个可以正确自动更换壁纸的批处理。感谢

第2楼　Runas	发表于 2007-07-31 21:18
初级用户　发帖 38　积分 74
搜索论坛

第3楼　qq43142691	发表于 2007-08-01 06:51
中级用户　发帖 152　积分 326
下面是批处理代码 @echo on&setlocal EnableDelayedExpansion title 按照星期或指定节日自动更改壁纸---P处理---by 彬(QQ:43142691) %date% ::提示在路径下必须要有 “节日壁纸随机壁纸星期壁纸” 这3个文件夹 ::************************************************************************** set 服务器路径=c:\2 set 时间服务器=192.168.0.253 ::************************************************************************ set y=%date:~0,-10% set d=%date:~8,-4% set 周=%date:~-3% set 月=%date:~5,-7% set 日=%date:~8,-3% set 今天日期=today.ini set n=0 :显示 ::******************************************************************* echo %月%%日% %周%>%今天日期% find "①=不排除" %服务器路径%\配置文件.ini && goto 初始化 find "%computername%" %服务器路径%\配置文件.ini && goto 初始化 exit :初始化 find "②=不随机" %服务器路径%\配置文件.ini && goto 跳过随机 set /a x=%random%%%100+1 set 壁纸文件名=跳过随机壁纸\%x% goto 更换壁纸 :跳过随机 set /a n+=1 set 星期=壁纸文件名=星期壁纸 set 节日=壁纸文件名=节日壁纸 for /f "tokens=2" %%F in (%今天日期%) do set %星期%\%%F find "③=不启用" %服务器路径%\配置文件.ini && goto 更换壁纸 for /f "tokens=1" %%i in (%今天日期%) do set %节日%\%%i :更换壁纸 if %n% EQU 3 goto 完成 if not exist %服务器路径%\%壁纸文件名%.bmp goto 跳过随机 set regadd=reg add "HKCU\Control Panel\Desktop %regadd%" /v TileWallpaper /d "0" /f %regadd%" /v Wallpaper /d "%服务器路径%\%壁纸文件名%.bmp" /f %regadd%" /v WallpaperStyle /d "2" /f gpupdate /force RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters del %今天日期% exit 下面是配置文件.ini 这个是服务器端的配置文件，请放置服务器端 ************************************************************* 【这里设置是否指定计算机执行以下程序】关键词【不排除】【排除】 ①=不排除 ************************************************************* 【这里设置是否随机】关键词【不随机】【随机】是否显示特殊节日 ②=随机 ************************************************************* 【这里设置是否启用特殊节日】关键词【不启用】【启用】是否显示特殊节日 ③=不启用 ************************************************************* 下面开始是指定计算机才更换壁纸的计算机名【一行一个计算机名】 *************************************************************** 计算机名区间编号 A001 A002 [ Last edited by qq43142691 on 2007-8-1 at 06:53 AM ]