windowsxp1.3.0.1.bat

用于系统优化 , 并附带一些实用工具 此软件 暂只完全支持 windows XP

Echo %upframe%
ECHO %center%
ECHO %leftl%     请选择  更新服务器     %rightl%
ECHO %downline%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %sdL%                                                  A.更新 服务器 一                                           %sdL%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %sdL%                                                  B.更新 服务器 二                                           %sdL%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %sdL%                                 ( 注:当 某个服务器不可用时 请选用其他服务器更新 )                           %sdL%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %center%
ECHO %sdL%                                                                                             X.返回上级菜单  %sdL%
ECHO %center%
ECHO %downframe%
Echo.
Echo.
SET 选择=
SET /P 选择=%choiceshow%
ECHO.
IF NOT "%选择%"=="" SET 选择=%选择:~0,1%
IF /I "%选择%"=="A" (
	call :默认更新设置
	goto 更新服务
)
IF /I "%选择%"=="B" (
	call :备选更新设置
	goto 更新服务
)
IF /I "%选择%"=="X" cls & GOTO 关于本软件
GOTO 软件更新



:更新服务
cls
color a
echo.
echo.
echo.
echo.
echo %BfS%本地 文件 版本 [ %ToolsIVer% ]
echo.
echo %BfS%正在获取 更新 信息文件......
(
	Wscript.exe //b "%DaCm.vbs%" "%HttpVerHtm%" "%TheVerFName%" "%LocaVerF%"
	FOR /F "tokens=*" %%i in (%LocaVerF%) do set Newver=%%i
	if /i "!Newver!"=="" goto 更新失败
	if /i "!Newver!"=="%ToolsIVer%" goto 无需更新
	:自动更新
	if exist "更新_%Newver%_凌枫_Windows_XP_系统优化工具.rar" goto 已更新过
)>nul 2>nul
cls
color a
Echo.
Echo.
Echo.
echo.
echo %BfS%准备从 [ %ToolsIVer% ] 更新至 [ %Newver% ]
echo.
echo %BfS%正在 下载 与 更新文件 请稍后......
wscript.exe /b "%DaCm.vbs%" "%HttpUpHtm%" "%TheUpFName%" "更新_%Newver%_凌枫_Windows_XP_系统优化工具.rar" >nul 2>nul
goto 更新完成


:更新失败
set GIn=对不起， 连接到 更新服务器失败！
set OCo=c
set SeI=Y
set ShowF=N
set ico=3
set GBck=母菜单
goto 返回的信息

:更新完成
set InfoS=更新完成！  （ 文件 保存在 当前目录 ）  
set GIn=更新完成！ 文件保存在 %cd%\更新_%Newver%_凌枫_Windows_XP_系统优化工具.rar
set OCo=f
set ShowF=N
set TO=10000
del /f /s /q "%LocaVerF%" 1>nul 2>nul
set GBck=母菜单
goto 返回的信息

:无需更新
set GIn=当前版本为最新版本 无需更新！
set ShowF=N
set SeI=Y
del /f /s /q "%LocaVerF%" 1>nul 2>nul
set GBck=母菜单
goto 返回的信息

:已更新过
set InfoS=您已将程序 更新到 最新版本，请勿反复更新
set OCo=e
set ShowF=N
set ico=2
del /f /s /q "%LocaVerF%" 1>nul 2>nul
set GBck=母菜单
goto 返回的信息






:设置启动密码
if not exist "%pasve%" (
	md "%pasve%"
	:只创建ini
	del /f /q /a %pasve%\%dskp%.ini>nul 2>nul
	echo [.ShellClassInfo]>%pasve%\%dskp%.ini
	
	if "%nolysys%" EQU "Y" (
		echo UICLSID={BD84B380-8CA2-1069-AB1D-08000948F534}>>%pasve%\%dskp%.ini
		) else (
		echo UICLSID={7BD29E00-76C1-11CF-9DD0-00A0C9034933}%pasve%\%dskp%.ini
		echo CLSID={%psskindof%}>>%pasve%\%dskp%.ini
		)
	%attribute%%+shr%%pasve%\%dskp%.ini
	) else (
	if not exist "%pasve%\%dskp%.ini" goto 只创建ini
	FOR /F "tokens=2" %%a in ('%attribute% %pasve%\%dskp%.ini') do (
		if /i "%%a" NEQ "SHR" goto 只创建ini
	)
)>nul 2>nul
FOR /F "tokens=1" %%a in ('%attribute% %pasve%') do (
	if /i "%%a" NEQ "SR" (
		%attribute%%-shr%%pasve%
		%attribute%%+sr%%pasve%
	)
)
if not exist "%pasve%\%NpsF%" (
	goto 重设密码
	) else (
	if not exist "%pasve%\%AssF%" (
		set InfoS=密码问题尚未设置！  建议 设置 密码提示问题！
		set OCo=f
		set ShowF=N
		set ico=2
		set GBck=校验原始密码
		goto 返回的信息
	)
)


:校验原始密码
cls
Echo.
Echo.
Echo.
Echo.
Echo.
Echo.
set 原始密码=
set /p 原始密码=%BfS%请键入 原始密码 (F＝忘记,X＝返回):
for /F "tokens=*" %%A in (%pasve%\%NpsF%) do (
	if "%原始密码%"=="%adminrun%" (
		set GIn=以 超级管理员 身份 重设密码！
		set OCo=f
		set ShowF=N
		set SeI=Y
		set GBck=重设密码
		goto 返回的信息
	)
	if /i "%原始密码%"=="X" goto 校验密码
	if /i "%原始密码%"=="F" goto 回答密码问题
	if "%原始密码% " EQU "%%A" (
		goto 重设密码
		) else (
		@rem 原始密码错误
		set InfoS=原始密码错误,请重新键入 ！
		set GIn=原始密码键入错误 ！
		set OCo=c
		set ShowF=N
		set ico=3
		set GBck=校验原始密码
		goto 返回的信息
	)
)


:重设密码
if exist "%pasve%\%QssF%" (
	set SetOrC=更改
	) else (
	set SetOrC=设置
)
if exist "%pasve%\%NpsF%" (
	set SetP_W_S=[直接回车]→取消操作,[C]→%SetOrC%密码问题,[N]→取消启动密码或密码问题
	set CLis=N
	) else (
	set SetP_W_S=[直接回车]→取消操作,[C]→%SetOrC%密码问题
	set CLis=
)
cls
Echo.
Echo.
echo.
Echo.
Echo %BfS%注: 密码 可以为汉字 字母区分大小写！
Echo.
Echo.
Echo %BfS%%SetP_W_S%
Echo.
set /p 新密码=%BfS%请键入 新密码 ：
if /i "%新密码%"=="" goto G母菜单
if /i "%新密码%"=="C" (
	set 继续到=设置密码问题与答案
	goto 是否先回答提示问题
)
if /i "%新密码%"=="%CLis%" (
	set 继续到=先取消密码
	goto 是否先回答提示问题
)
del /f /q /a %pasve%\%NpsF%>nul 2>nul
echo %新密码% >%pasve%\%NpsF%
%attribute%%+shr%%pasve%\%NpsF%
Echo.>>%sr.t%
Echo %IDaT%启动密码设置%fihed%>>%sr.t%
if exist "%pasve%\%QssF%" (
	goto 完成
	) else (
	goto 设置密码问题与答案
)




@rem ↓是否先回答提示问题再清除启动密码 或 更改密码提示问题条件过滤【模块】
:是否先回答提示问题
for /F "tokens=*" %%c in (%pasve%\%SorN%) do (
	if /i "%%c"=="N" goto %继续到%
)
:回答问题更改密码
for /F "tokens=*" %%e in (%pasve%\%QssF%) do (
	cls
	Echo.
	echo.
	echo.
	Echo.
	Echo %BfS%请先回答 密码 提示 问题
	Echo.
	Echo %BfS%问题：
	Echo.
	Echo. %BfS%　　%%e
	Echo.
	Echo.
	set /p 密码答案=%BfS%请键入 密码问题的 答案（[X]→返回）：
	if /i "!密码答案!"=="X" goto 校验密码
	for /F "tokens=*" %%f in (%pasve%\%AssF%) do (
		if "!密码答案! " EQU "%%f" (
			if /i "%Uins%"=="Y" (
				goto 感谢使用
				) else (
				goto %继续到%
			)
			) else (
			goto 回答问题错误
		)
	)
)
@rem ↑





@rem ↓设置密码提示问题与其答案 并 设置“当需要 清除启动密码 或 更改密码提示问题 时是否需要 回答密码提示问题”
:设置密码问题与答案
cls
Echo.
Echo.
echo.
echo.
Echo %BfS%注: 问题与答案 可以为汉字 字母区分大小写！
Echo.
Echo %BfS%此设置 用于 忘记密码后 找回密码 
Echo.
:密码问题
Echo.
Echo.
Echo %BfS%[直接回车]→不作更改
Echo.
set /p 密码问题=%BfS%请键入 用于 重设密码的 提示问题:
Echo.
:问题答案
Echo.
Echo.
Echo %BfS%[直接回车]→不作更改
Echo.
set /p 密码答案=%BfS%请键入 密码提示问题的 答案:
if "%密码答案%" EQU "" (
	if not exist "%pasve%\%AssF%" goto 问题答案
)
Echo.
Echo.
:是否回答设置
Echo.
Echo %BfS%当需要 清除启动密码 或 更改密码提示问题 时
set /p 是否回答设置=%BfS%是否需要 回答密码提示问题？([Y]→是,[N]→否)
if /i "%是否回答设置%"=="Y" (
	set N_Or_Y=Y
	goto 确认执行
)
if /i "%是否回答设置%"=="N" (
	set N_Or_Y=N
	goto 确认执行
	) else (
	goto 是否回答设置
)
:确认执行
(
	if not exist "%pasve%\%QssF%" echo （未设置问题，请直接输入您的答案）>%pasve%\%QssF%
	if /i "%密码问题%"=="" goto 不更改密码问题
	del /f /q /a %pasve%\%QssF%
	echo %密码问题% >%pasve%\%QssF%

	:不更改密码问题
	if /i "%密码答案%"=="" goto 不更改密码答案
	del /f /q /a %pasve%\%AssF%>nul 2>nul
	echo %密码答案% >%pasve%\%AssF%

	:不更改密码答案
	del /f /q /a %pasve%\%SorN%>nul 2>nul
	echo %N_Or_Y%>%pasve%\%SorN%

	for %%s in (%pasve%\%QssF%,%pasve%\%AssF%,%pasve%\%SorN%) do (
		%attribute%%+shr%%%s
	)>nul 2>nul
	set InfoS=请牢记 密码 与其 提示问题的 答案 ！
	set GIn=设置 提示问题 与 提示问题的 答案 ” 已完成！
	set OCo=b
	set ShowF=N
	set GBck=完成
	goto 返回的信息
)>nul 2>nul
@rem ↑






@rem ↓取消启动密码 并 请求是否也取消密码提示问题与其答案
:先取消密码
del /f /q /a %pasve%\%NpsF%>nul 2>nul
set InfoS=恭喜您 ！ 取消本工具的 启动密码 已完成 ！
set ShowF=N
set GIn=取消本工具的 启动密码” 已完成！
set GBck=是否清除问题与答案
goto 返回的信息