.
Last edited by bw070 on 2007-5-15 at 11:46 PM ]
支持下..
@Echo Off
title 磁盘背景更换程序 By:Dark Blue WebSite:adminhy.xinwen365.net
If Exist c:\readme.txt Goto :overreadme
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 请详细阅读本说明: ☆
Echo ☆ (注意:本说明只出现一次!) ★
Echo ★ 您现在使用的是"磁盘背景更换程序",由Dark Blue编写,QQ:93691582 ☆
Echo ☆ 请将需要更换的图片与本程序放在同一目录下,图片数量不限制,但请 ★
Echo ★ 尽量保持在20以下,且仅支持JPG格式,若图片为其他格式请自行转换, ☆
Echo ☆ 本程序不提供转换功能。本程序流程比较清晰,如果还有有什么不清楚 ★
Echo ★ 请直接运行本程序,相信只需要一次您就可以轻松掌握。需要注意的是 ☆
Echo ☆ 程序只能更改磁盘根目录背景,且每次修改后素材图片消失。建议图片 ★
Echo ★ 名与修改磁盘盘符相对应如1.jpg 2.jpg 3.jpg 分别对应 C盘 D盘 E盘 ☆
Echo ☆ 这样在修改时不至于把自己弄混了。本程序请不要放在磁盘根目录下执 ★
Echo ★ 行,可能产生未知的BUG。 ☆
Echo ☆ 个人小站
http://adminhy.xinwen365.net 欢迎您的到来。 ★
Echo ★ ☆
Echo ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
Echo.
Echo.
Echo.
Set /p right=请勿修改或者反编译本程序:(Y=同意;N=不同意)
If /i %right% equ y (Echo 版权归Dark Blue所有>c:\readme.txt&attrib c:\readme.txt +s +h&Goto :readme_y)
Goto :End
:readme_y
Echo.
Echo.
Echo.
:overreadme
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 正在检测您的电脑...请稍等! ☆
Echo ☆ ★
Echo ☆★☆★☆★☆★☆★☆★☆★☆★☆★
Echo %time% && ping 127.1 -n 4 >nul && Echo %time%
cls
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ★ ☆
Echo ★ 数据如下: 盘符 存在与否 (仅列出存在磁盘!) ☆
If Not Exist c:\ Goto :c
Echo ★ C 存 在 ☆
:c
If Not Exist D:\ Goto :D
Echo ★ D 存 在 ☆
:D
If Not Exist E:\ Goto :E
Echo ★ E 存 在 ☆
:E
If Not Exist F:\ Goto :F
Echo ★ F 存 在 ☆
:F
If Not Exist G:\ Goto :G
Echo ★ G 存 在 ☆
:G
If Not Exist H:\ Goto :H
Echo ★ H 存 在 ☆
:H
If Not Exist I:\ Goto :I
Echo ★ I 存 在 ☆
:I
If Not Exist J:\ Goto :J
Echo ★ J 存 在 ☆
:J
If Not Exist K:\ Goto :K
Echo ★ K 存 在 ☆
:K
If Not Exist L:\ Goto :L
Echo ★ L 存 在 ☆
:L
If Not Exist M:\ Goto :M
Echo ★ M 存 在 ☆
:M
If Not Exist N:\ Goto :N
Echo ★ N 存 在 ☆
:N
If Not Exist O:\ Goto :O
Echo ★ O 存 在 ☆
:O
If Not Exist P:\ Goto :P
Echo ★ P 存 在 ☆
:P
If Not Exist Z:\ Goto :Z
Echo ★ Z 存 在 ☆
:Z
If Not Exist Y:\ Goto :Y
Echo ★ Y 存 在 ☆
:Y
If Not Exist X:\ Goto :X
Echo ★ X 存 在 ☆
:X
If Not Exist U:\ Goto :U
Echo ★ U 存 在 ☆
:U
If Not Exist V:\ Goto :V
Echo ★ V 存 在 ☆
:V
If Not Exist W:\ Goto :W
Echo ★ W 存 在 ☆
:W
Echo ★ ☆
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
:reinput
Echo.
Echo.
Echo 例如:C盘即输入"C"(注意:不需要输入引号!)
Echo.
Echo 您当前的位置是:%disk%盘
Echo.
Set /p disk=请您输入您需要更改磁盘的盘符:
Echo >%disk%:\desktop.ini
Echo {BE098140-A513-11D0-A3A4-00C04FD706EC}= >>%disk%:\desktop.ini
Echo {BE098140-A513-11D0-A3A4-00C04FD706EC} >>%disk%:\desktop.ini
Echo >>%disk%:\desktop.ini
Echo Attributes=1 >>%disk%:\desktop.ini
Echo IconArea_Image=backpic.jpg >>%disk%:\desktop.ini
Echo >>%disk%:\desktop.ini
Echo ConfirmFileOp=0 >>%disk%:\desktop.ini
attrib %disk%:\desktop.ini +s +h
cls
If Not Exist %disk%:\ (Echo 错误!您输入的磁盘不存在!5秒后重新输入...&Echo %time% && ping 127.1 -n 5 >nul && Echo %time%&cls&Goto :reinput)
If Exist %disk%:\backpic.jpg (Echo →状态:磁盘%disk%已经存在背景!&Echo.)
If Not Exist %disk%:\backpic.jpg (Echo →状态:磁盘%disk%尚未创建背景!请选①创建!&Echo.)
:cho
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 序列号 对应操作 ☆
Echo ☆ ★
Echo ★ ① 更换磁盘背景 ☆
Echo ☆ ② 取消磁盘背景 ★
Echo ★ ③ 重新选择分区 ☆
Echo ☆ ④ 退出本程序 ★
Echo ★ ⑤ 查看作者信息 ☆
Echo ☆ ★
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo.
Set /p moves=请输入您所希望的操作序列号:
If /i %moves% equ 1 (Goto :cho1)
If /i %moves% equ 2 (Goto :cho2)
If /i %moves% equ 3 (cls&Goto :reinput)
If /i %moves% equ 4 (cls&Goto :End)
If /i %moves% equ 5 (cls&Goto :info)
cls
Echo 输入错误!请重新输入
Echo.
Goto :cho
:cho1
If Exist *.jpg Goto :Exist
cls
Echo 未探测到JPG格式图片,请在当前目录置入图片!
Echo.
Goto :cho
:Exist
If Exist backpic.jpg Goto :end2
@attrib %disk%:\backpic.jpg -s -h
@Del %disk%:\backpic.jpg
cls
Echo 序列号 图片名 (请勿输入无效序列号!)
Setlocal EnableDelayedExpansion
Set a=1
For %%a In (*.jpg) Do (
Set jpgfile!a!="%%a"
Echo !a! %%a
Set/a a+=1
)
Set/p choose=请选择图片序列号(选中图片将设为%disk%盘的背景):
Ren !jpgfile%choose%! 4backpic.jpg
If Exist %disk%:\backpic.jpg Goto :endcho1
@Copy 4backpic.jpg %disk%:\backpic.jpg
Del 4backpic.jpg
:endcho1
attrib %disk%:\backpic.jpg +s +h
cls
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 磁盘%disk%背景设置完毕,稍后请右键刷新查看效果!
Echo ☆ 5秒后返回菜单... ★
Echo ★ ☆
Echo ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
Echo %time% && ping 127.1 -n 5 >nul && Echo %time%
cls
Goto :cho
:cho2
@attrib %disk%:\backpic.jpg -s -h
@Del %disk%:\backpic.jpg
cls
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 磁盘%disk%背景还原完毕,稍后请右键刷新查看效果!
Echo ☆ 5秒后返回菜单... ★
Echo ★ ☆
Echo ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
Echo %time% && ping 127.1 -n 5 >nul && Echo %time%
cls
Goto :cho
:end2
cls
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 对不起,设计者不允许程序执行在磁盘根目录下! ☆
Echo ☆ 10秒后自动关闭本程序...或者请您关闭本程序 ★
Echo ★ ☆
Echo ☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★
Echo %time% && ping 127.1 -n 10 >nul && Echo %time%
Goto :End
:info
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo ☆ ★
Echo ★ 作者网名:Dark Blue ☆
Echo ☆ 作者Q Q :93691582 ★
Echo ★ 个人网站:adminhy.xinwen365.net ☆
Echo ☆ ★
Echo ★ ☆
Echo ☆ 谢谢您的使用 如果有什么好的建议请E-Mail我 ★
Echo ★ E-Mail:huyang1986.student@sina.com ☆
Echo ☆ ★
Echo ★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
Echo.
Echo.
Echo.
pause
cls
Goto :cho
:End