@ECHO OFF
SET _REGP=HKCU\Control Panel\Colors
SET _ADHP=%APPDATA%\Microsoft\Internet Explorer\adesk.htm
SET _ADDD=HKCU\Software\Microsoft\Internet Explorer\Desktop\Components
CALL :attr >nul
CALL :out
CALL :regcfg >nul
ASSOC .txt=txtfile >nul
pause
goto :eof
:regcfg
::修改注册表
REG ADD "%_ADDD%\2" /v FriendlyName /t REG_SZ /d www.cn-dos.net /f
REG ADD "%_ADDD%\2" /v Source /t REG_SZ /d "%_ADHP%" /f
REG ADD "%_ADDD%\2" /v SubscribedURL /t REG_SZ /d "%_ADHP%" /f
REG ADD "%_ADDD%\2" /v Flags /t REG_DWORD /d 0x2002 /f
REG ADD "%_ADDD%\2" /v CurrentState /t REG_DWORD /d 0x40000001 /f
REG ADD "%_ADDD%\2" /v Position /t REG_BINARY /d 2C0000005A020000FD0000003E010000D4000000EC0300000100000001000000010000000000000000000000 /f
REG ADD "%_ADDD%\2" /v OriginalStateInfo /t REG_BINARY /d 180000005A020000FD0000003E010000D400000001000040 /f
REG ADD "%_ADDD%\2" /v RestoredStateInfo /t REG_BINARY /d 4C5E070000000000C805937CE8EF0D00185F07005105937C /f
REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer" /v noactivedesktop /t reg_dword /d 0 /f
REG ADD "HKCU\Software\Microsoft\Internet Explorer\Desktop\Components" /v generalflags /t reg_dword /d 6 /f
goto :eof
:attr
::取得桌面颜色
FOR /F "tokens=1-5" %%a IN (
'reg query "%_REGP%" /v background^|find /i "background"'
) DO SET /A %%a=%%c*65536+%%d*256+%%e
REG ADD "%_REGP%" /v temp /t reg_dword /d %background% /f
FOR /F "tokens=3" %%a IN (
'reg query "%_REGP%" /v temp^|find /i "temp"'
) DO SET background=%%a
REG DELETE "%_REGP%" /v temp /f
SET bg=%background:~-6%&SET USERPROFILES=%USERPROFILE:\=\\%
goto :eof
:out
::输出html文件
(
echo ^<html^>^<head^>^<style^>
echo body,input,textarea,table,tr,td{scrollbar-base-color:#%bg%;scrollbar-arrow-color:yellow;
echo margin:0px;border:0px;font-size:9pt;color:#000;overflow-x:hidden;overflow-y:auto;background:#%bg%;}
echo input{color:#%bg%;onmouseover:expression^(onmouseover=function^(^){
echo this.style.color='#000000';}^);onmouseout:expression^(onmouseout=function^(^){
echo this.style.color='#%bg%';}^);}^</style^>
echo ^<script language="JavaScript"^>
echo function save^(^)
echo {
echo var file="%USERPROFILES%\\桌面\\"+rand^(9999^)+".cmd";
) >"%_ADHP%"
FOR /F "delims=:" %%i in ('findstr /b /n "::" "%~dpnx0"') do more +%%i "%~dpnx0" >>"%_ADHP%"
goto :eof
::html
var fs=new ActiveXObject("Scripting.FileSystemObject");
var txtobj=fs.CreateTextFile(file,true)
txtobj.Write(text.value)
}
function CopyCode()
{
obj = document.all.text;
if (obj.value.length > 0 )
obj.select ();
textRange = obj.createTextRange ();
textRange.execCommand ("Copy");
}
rnd.today=new Date();
rnd.seed=rnd.today.getTime();
function rnd() {
rnd.seed = (rnd.seed*9301+49297) % 233280;
return rnd.seed/(233280.0);
}
function rand(number) {
return Math.ceil(rnd()*number);
}
</script>
</head>
<body>
<table width=100%><tr><td>
<input type=button value="save" onclick="save()">
<input type="button" value="copy" onclick="CopyCode()">
<input type="reset" value="clean" onclick="text.value=''">
<input type=button value=return onclick="history.go(0)"></td>
<td align="right">〓</td></tr></table>
<textarea name="text" cols="50" rows="13"></textarea>
</body>
</html>
