中国DOS联盟

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

::Start executing...

Where should this batch file be placed
Also, weekly wallpapers

: :lol::lol::lol:Thanks

That's quite interesting. I was looking for exactly this one

Attachment 1: Microsoft-produced "Desktop Wallpaper Auto-Changer".rar

I'm also looking for it!!!

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

Test completed, wallpaper cannot be changed

@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 主战区

This is for autoBZ.bat

@echo off&setlocal EnableDelayedExpansion

title Automatically Change Wallpaper According to Day of the Week or Specified Holiday---P Processing---by Bin(QQ:43142691) %date%

::****************************************************************************

set server_path=c:\2

set time_server=10.0.0.247

::****************************************************************************

set y=%date:~0,-10%

set d=%date:~8,-4%

set week=%date:~-3%

set month=%date:~5,-7%

set day=%date:~8,-3%

set today_date=today.ini

set n=0

set hour=%time:~0,2%

set minute=%time:~3,2%

set second=%time:~6,2%

if %hour% GEQ 0 goto midnight

goto afternoon

:midnight

if %hour% GEQ 5 goto morning

set current_period=midnight

goto display

:morning

if %hour% GEQ 10 goto noon

set current_period=morning

goto display

:noon

if %hour% GEQ 14 goto afternoon

set current_period=noon

goto display

:afternoon

if %hour% GEQ 18 goto evening

set current_period=afternoon

goto display

:evening

if %hour% GEQ 0 goto midnight

set current_period=evening

:display

set current_time_is=%current_period%%hour% o'clock %minute% minutes %second% seconds

set today_date_is=%y% year %month% month %d% day %current_time_is%

::***********************************************************************

echo %month%%day% %week%>%today_date%

find "①=不排除" %server_path%\exclude_machines.ini && goto initialization

find "%computername%" %server_path%\configuration_file.ini && goto initialization

exit

:initialization

find "②=不随机" %server_path%\configuration_file.ini && goto skip_random

set /a x=%random%%%100+1

set wallpaper_file_name=skip_random_wallpaper\%x%

goto change_wallpaper

:skip_random

set /a n+=1

set week_wallpaper_file_name=week_wallpaper

set holiday_wallpaper_file_name=holiday_wallpaper

for /f "tokens=2" %%F in (%today_date%) do set %week_wallpaper_file_name%\%%F

find "③=不启用" %server_path%\configuration_file.ini && goto change_wallpaper

for /f "tokens=1" %%i in (%today_date%) do set %holiday_wallpaper_file_name%\%%i

:change_wallpaper

if %n% EQU 3 goto complete

if not exist %server_path%\%wallpaper_file_name%.bmp goto skip_random

set regadd=reg add "HKCU\Control Panel\Desktop

%regadd%" /v TileWallpaper /d "0" /f

%regadd%" /v Wallpaper /d "%server_path%\%wallpaper_file_name%.bmp" /f

%regadd%" /v WallpaperStyle /d "2" /f

gpupdate /force

RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

del %today_date%

find "④=不提示" %server_path%\configuration_file.ini && goto complete

set program_name=systempp.exe

set system_address=%windir%\system32\

set information_stay_time=12



find "%computername%" %server_path%\configuration_file.ini>%system_address%\local_features.ini

for /f "skip=2 tokens=2" %%k in (%system_address%\local_features.ini) do set area=%%k

goto %area%

:main_battle_area

set area=main_battle_area

goto complete_area

:game_area

set area=game_area

goto complete_area

:video_area

set area=video_area

goto complete_area

:leisure_area

set area=leisure_area

goto complete_area

:card_area

set area=card_area

:complete_area

for /f %%a in ("%time:~0,-9%") do set current_time=%%a

if %current_time% GEQ %information_stay_time% goto 3_yuan else

goto 2_yuan

exit

::******************************************************

:2_yuan

if %area% NEQ card_area goto not_expensive

set cost=3_yuan

goto start_bubble

:not_expensive

set cost=2_yuan

goto start_bubble

::******************************************************

:3_yuan

if %area% NEQ card_area goto not_expensive_

set cost=3.5_yuan

goto start_bubble

:not_expensive_

set cost=3_yuan

::******************************************************

:start_bubble

set xy=%area%%computername%

set title=%today_date_is% Welcome to XXX Internet Cafe

set prompt_content=You are client machine , currently charging:%cost%/hour

set icon_type=3

if exist %system_address%\%program_name% del %system_address%\%program_name%

copy %server_path%\%program_name% %system_address%\

start %system_address%\%program_name% ;%system_address%\ie.ico;;%title%;;%prompt_content%;;%icon_type%;;%information_stay_time%;

:complete

net time \\%time_server% /set /y

net use * /del /y

exit

The following is configuration_file.ini

This is the server-side configuration file, please place it on the server side

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

【Here set whether to specify the computer to execute the following program】 Keywords  

①=Do not exclude

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

【Here set whether to random】 Keywords  

Whether to display special holidays

②=Do not random

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

【Here set whether to enable special holidays】 Keywords  

Whether to display special holidays

③=Do not enable

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

【Here set whether to enable special holidays】 Keywords  

Whether to display special holidays

④=Do not prompt

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

The following are the computer names that specify the computer to change the wallpaper 

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

Computer name Area number

A001 Main battle area

A002 Main battle area

A003 Main battle area

A004 Main battle area

A005 Main battle area

A006 Main battle area

A007 Main battle area

A008 Main battle area

A009 Main battle area

A010 Main battle area

@echo off
color 0a
title Changing Desktop
echo Adding registry items...
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 Changing desktop background
RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters

PS: Replace "C:\WINDOWS\Web\Wallpaper\Windows Server 2003.bmp" with your file~ Must be in BMP format

The settings are too complicated.

It's better to use a third-party software to implement this thing.

::///////////////////////////////////Desktop

rem Set server image path , only BMP format is supported
set 图片路径=\\cgo\pic$\1024768

rem Set the path of the local image when the network is unavailable
set 本地图片=E:\General Tools\web\Civilized City.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

Try this, but I don't know how to set the server path. It says it needs a shared folder, but it didn't work after several tries

If this can't connect to the server, it can take the local image as the desktop background

That's amazing, this can be done with batch processing. A master at work, truly extraordinary.

Using VBS seems more intelligent~~~

I do need wallpapers from Monday to Sunday.