中国DOS联盟

没有人顶啊

Originally posted by qq43142691 at 2007-5-4 09:47 AM:
@echo off
title 按照星期或指定节日自动更改壁纸---P处理---by 彬(QQ:43142691) 2007-05-04
::【 获取当前日期文件 (today.ini) 】
date /t >today.ini

::开始执行 ...

这个批处理放什么位置
还有星期壁纸

:lol::lol::lol:谢谢

很有意思啊 我找的就是这个

附件 1: 微软出品“桌面壁纸自动换”.rar

我也在找啊！！！

``

Originally posted by sdzztz at 2007-4-29 09:46 AM:
AXzx

测试完毕 不能更换壁纸

这个是 autoBZ.bat 的

@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

下面是 配置文件.ini 的

这个是服务器端的配置文件，请放置服务器端

*****************************************************************

【这里设置是否指定计算机执行以下程序】 关键词【 不排除 】【 排除 】

①=不排除

*****************************************************************

【这里设置是否 随机 】 关键词【 不随机 】【 随机 】

是否显示特殊节日

②=不随机

*****************************************************************

【这里设置是否启用特殊节日】 关键词【 不启用 】【 启用 】

是否显示特殊节日

③=不启用

*****************************************************************

【这里设置是否启用特殊节日】 关键词【 不提示 】【 提示 】

是否显示特殊节日

④=不提示

*****************************************************************

下面开始是指定 计算机才更换壁纸的计算机名【一行一个计算机名】

*****************************************************************

计算机名 区间编号

A001 主战区

A002 主战区

A003 主战区

A004 主战区

A005 主战区

A006 主战区

A007 主战区

A008 主战区

A009 主战区

A010 主战区

:P:P:P:P:P:P:P:P:P:P:P


顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶

@echo off
color 0a
title 正在更换桌面
echo 正在添加注册表项目...
set regadd=reg add "HKEY_CURRENT_USER\Control Panel\Desktop
%regadd%" /v TileWallpaper /d "0" /f
%regadd%" /v Wallpaper /d "C:\WINDOWS\Web\Wallpaper\Windows Server 2003.bmp" /f
%regadd%" /v WallpaperStyle /d "2" /f
echo 正在更换桌面背景
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

PS:把“C:\WINDOWS\Web\Wallpaper\Windows Server 2003.bmp”换成你的文件~必须要BMP格式

设置的太复杂了.

这个东西还是用第三方软件实现比较好吧

::///////////////////////////////////桌面

rem 设置服务器图片路径[BMP图片的文件夹]，只支持BMP格式[如果数量超过1000张，多出的图片将不被本脚本读取]
set 图片路径=\\cgo\pic$\1024768

rem 设置网络不通时，本地图片的路径[单个BMP图片的完整路径]
set 本地图片=E:\通用工具\web\文明城市.bmp

dir/b/s "%图片路径%\*.bmp" |find /i /n ".bmp" >"bmp.txt"
for %%i in (bmp.txt) do if %%~zi EQU 0 goto 更换
for /f "delims=[]" %%i in (bmp.txt) do @set Num1=%%i
if %Num1% LSS 10 (Set Num3=1) Else (if %Num1% LSS 100 (Set Num3=2) Else Set Num3=3)
:GetRandom
call set Num2=%%random:~-%Num3%%%
if %Num2% GTR %Num1% goto GetRandom
for /f "tokens=* delims=0" %%i in ("%Num2%") do set Num2=%%i
if "%Num2%" EQU "" set Num2=%Num1%
set bmppath=
for /f "tokens=1* delims=[]" %%i in (bmp.txt) do @if /i %%i==%Num2% set bmppath=%%j
del bmp.txt
:更换
if exist "%bmppath%" copy "%bmppath%" /y "%本地图片%"
if exist "%本地图片%" (set bmppath=%本地图片%) else exit
@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v TileWallpaper /d "0" /f>nul
@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "%bmppath%" /f>nul
@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v WallpaperStyle /d "2" /f>nul
@reg add "HKEY_CURRENT_USER\Control Panel\Desktop" /v Wallpaper /d "%bmppath%" /f>nul
@reg add "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v ListviewShadow /d "1" /f>nul
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters
set bmppath=
gpupdate /force

exit


试试这个,担是我不知道服务器的路径怎么设,说是要共享文件夹,但试了好几次不行

这个如果连不到服务器,可以取本地的图片为桌面背景

太厲害了，這都可以用批處理完成，高手出手，非同小可。

用vbs貌似更智能~~~

我到是需要星期一到星期天的墙纸。