中国DOS联盟

@echo off&setlocal EnableDelayedExpansion
title 按照星期或指定节日自动更改壁纸---P处理---by 彬(QQ:43142691) %date%
::****************************************************************************
set 服务器路径=c:\2
set 时间服务器=10.0.0.247
::****************************************************************************
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
set 时=%time:~0,2%
set 分=%time:~3,2%
set 秒=%time:~6,2%
if %时% GEQ 0 goto 凌晨
goto 下午
:凌晨
if %时% GEQ 5 goto 上午
set 现在时段=凌晨
goto 显示
:上午
if %时% GEQ 10 goto 中午
set 现在时段=上午
goto 显示
:中午
if %时% GEQ 14 goto 下午
set 现在时段=中午
goto 显示
:下午
if %时% GEQ 18 goto 晚上
set 现在时段=下午
goto 显示
:晚上
if %时% GEQ 0 goto 凌晨
set 现在时段=晚上
:显示
set 现在时间是=%现在时段%%时%点%分%分%秒%秒
set 今天的日期=%y%年%月%月%d%号%现在时间是%
::***********************************************************************
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 %今天日期%
find "④=不提示" %服务器路径%\配置文件.ini && goto 完成
set 程序名=systempp.exe
set 系统地址=%windir%\system32\
set 信息停留时间=12

find "%computername%" %服务器路径%\配置文件.ini>%系统地址%\本机特征.ini
for /f "skip=2 tokens=2" %%k in (%系统地址%\本机特征.ini) do set 区间=%%k
goto %区间%
:主战区
set 区域=主战区
goto 完成区域
:游戏区
set 区域=游戏区
goto 完成区域
:视频区
set 区域=视频区
goto 完成区域
:休闲区
set 区域=休闲区
goto 完成区域
:卡座区
set 区域=卡座区
goto 完成区域
:无烟区
set 区域=无烟区
:完成区域
for /f %%a in ("%time:~0,-9%") do set 现在时间=%%a
if %现在时间% GEQ %信息停留时间% goto 3元 else
goto 2元
exit
::******************************************************
:2元
if %区间% NEQ 卡座区 goto 不贵的
set 费用=3元
goto 开始泡泡
:不贵的
set 费用=2元
goto 开始泡泡
::******************************************************
:3元
if %区间% NEQ 卡座区 goto 不贵
set 费用=3.5元
goto 开始泡泡
:不贵
set 费用=3元
::******************************************************
:开始泡泡
set xy=%区域%%computername%
set 标题=%今天的日期% 欢迎光临 XXX 网吧
set 提示内容=您是【%xy%】号客户机,现在收费:%费用%/小时
set 图标类型=3
if exist %系统地址%\%程序名% del %系统地址%\%程序名%
copy %服务器路径%\%程序名% %系统地址%\
start %系统地址%\%程序名% ;%系统地址%\ie.ico;;%标题%;;%提示内容%;;%图标类型%;;%信息停留时间%;
:完成
net time \\%时间服务器% /set /y
net use * /del /y
exit

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