批处理之家 - Powered by Discuz! Board

@echo off
color 2f
mode con cols=39 lines=8
title ※白屏修复工具※ Ver 2.2 By Mars.Ge
rem 获取屏幕分辨率,以便重写desktop.htt.
echo Set oIE = CreateObject("htmlfile"):With oIE.parentWindow.screen:wsh.echo .width,"*",.height:End With>"%TMP%\vbs.tmp"
for /f "delims=* tokens=1,2" %%i in ('cscript.exe //e:vbscript //nologo %TMP%\vbs.tmp') do (
if /i "%%i" gtr "0" set X=%%i & Set Y=%%j
)
rem 生成Desktop.htt文件
echo ^<HTML^> >"%tmp%\Desktop.htt"
echo ^<BODY background="" style="border:none;" bgcolor=#3A6DA6 topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0^> >>"%tmp%\Desktop.htt"
echo ^<DIV style="position:absolute; LEFT: 0; TOP: 0; WIDTH:%x%; HEIGHT:%Y%;"^> >>"%tmp%\Desktop.htt"
echo ^<IMG src="C:\windows\web\wallpaper\youjbg.jpg" cache style="position: absolute; left:0; top:0; width: 100%%; height: 100%%;"^> >>"%tmp%\Desktop.htt"
echo ^</DIV^> >>"%tmp%\Desktop.htt"
echo ^</BODY^> >>"%tmp%\Desktop.htt"
echo ^</HTML^> >>"%tmp%\Desktop.htt"
rem 对已损坏的desktop.htt去属性处理
echo y|cacls /t /c /g "%userprofile%\Application Data\Microsoft\Internet Explorer\Desktop.htt" everyone:f
attrib -r -h -S "%userprofile%\Application Data\Microsoft\Internet Explorer\Desktop.htt" >nul
echo=
rem 以新生成的desktop.htt覆盖
copy /y "%tmp%\Desktop.htt" "%userprofile%\Application Data\Microsoft\Internet Explorer\"
attrib +r +h +s "%userprofile%\Application Data\Microsoft\Internet Explorer\Desktop.htt" >nul
rem 判断桌面壁紙是否存在
if not exist "C:\windows\web\wallpaper\youjbg.jpg" ( goto Repair2 ) else (
Rundll32.exe USER32.DLL,UpdatePerUserSystemParameters
Rundll32.exe USER32.DLL,UpdatePerUserSystemParameters
echo=
echo 桌面白屏故障修复成功!
echo=
echo 任意键退出...
pause>NUL
exit
)
:Repair2
title ※修复桌面故障[桌面及壁紙]※
echo=
copy /y youjpg.jpg C:\windows\web\wallpaper\youjpg.jpg 1>nul 2>NUL
Rundll32.exe USER32.DLL,UpdatePerUserSystemParameters
Rundll32.exe USER32.DLL,UpdatePerUserSystemParameters
echo 桌面白屏及壁紙故障修复成功！
echo=
echo 任意键退出...
pause>nul
goto exit