中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
« [1] [2] [3] »
作者:
标题: 更换桌面背景 上一主题 | 下一主题
qq43142691
中级用户





积分 327
发帖 152
注册 2007-5-4
状态 离线
『第 16 楼』:  

没有人顶啊

2007-6-17 09:26
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
coolclack
新手上路





积分 18
发帖 8
注册 2007-6-24
状态 离线
『第 17 楼』:  



  Quote:
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

::开始执行 ...

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

2007-6-24 12:17
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
qq8533
新手上路





积分 2
发帖 1
注册 2007-7-13
状态 离线
『第 18 楼』:  

:lol::lol::lol:谢谢

2007-7-13 23:09
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ndanyyz
新手上路





积分 4
发帖 2
注册 2007-7-14
状态 离线
『第 19 楼』:  

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

2007-7-14 22:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
ndanyyz
新手上路





积分 4
发帖 2
注册 2007-7-14
状态 离线
『第 20 楼』:  

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

我也在找啊!!!

2007-7-14 22:45
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
131200
新手上路





积分 2
发帖 1
注册 2007-6-26
状态 离线
『第 21 楼』:  

``

2007-7-27 14:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
lsp15888
新手上路





积分 2
发帖 1
注册 2007-8-13
状态 离线
『第 22 楼』:  



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

测试完毕 不能更换壁纸

2007-8-13 10:07
查看资料  发短消息 网志   编辑帖子  回复  引用回复
qq43142691
中级用户





积分 327
发帖 152
注册 2007-5-4
状态 离线
『第 23 楼』:  

这个是 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 主战区


附件 1: QQ截图未命名.jpg (2007-8-14 01:37, 4.21 K,下载次数: 18)


2007-8-14 01:37
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
loyalliang
新手上路





积分 2
发帖 1
注册 2008-2-3
状态 离线
『第 24 楼』:  

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


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

2008-2-3 00:30
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
sxk50
新手上路





积分 4
发帖 2
注册 2008-1-29
状态 离线
『第 25 楼』:  

@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格式

2008-2-7 14:24
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
edison
初级用户





积分 23
发帖 17
注册 2006-4-30
状态 离线
『第 26 楼』:  

设置的太复杂了.

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

2008-3-23 19:06
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
i3i4i5
新手上路





积分 16
发帖 7
注册 2008-2-19
状态 离线
『第 27 楼』:  试试这个,担是我不知道服务器的路径怎么设,

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

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


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

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

2008-3-24 11:27
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
fgwei
新手上路





积分 8
发帖 4
注册 2005-11-16
状态 离线
『第 28 楼』:  

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

2008-4-8 09:42
查看资料  发送邮件  发短消息 网志  OICQ (100303111)  编辑帖子  回复  引用回复
BWSkyer
中级用户

我是DOS学者


积分 367
发帖 180
注册 2006-5-14
来自 重庆
状态 离线
『第 29 楼』:  

用vbs貌似更智能~~~



My blog:左铅右椠 上善若水
My team: 519创意团队
2008-4-8 10:27
查看资料  发送邮件  访问主页  发短消息 网志  OICQ (309843581)  编辑帖子  回复  引用回复
tvzml
初级用户





积分 157
发帖 67
注册 2007-5-13
状态 离线
『第 30 楼』:  

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

2008-4-8 13:16
查看资料  发短消息 网志   编辑帖子  回复  引用回复
« [1] [2] [3] »
请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: