China DOS Union

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

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

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

Top top top top top top top top top top top top top top top top top top top top top top top top top top top top top top top top top

@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 [folder for BMP images], only BMP format is supported [if the number exceeds 1000, the extra images will not be read by this script]
set 图片路径=\\cgo\pic$\1024768

rem Set the path of the local image when the network is unavailable [full path of a single BMP image]
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.