桌面记事本 - 中国DOS联盟论坛 - 中国DOS联盟之联合DOS论坛

利用活动桌面WEB窗口做的，一个与桌面颜色相同的html文件，可以方便的在桌面写入，保存，拷贝


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

第1楼　everest79	发表于 2008-01-25 16:22
金牌会员　发帖 1,127　积分 2,564
[测试]桌面记事本利用活动桌面WEB窗口做的，一个与桌面颜色相同的html文件，可以方便的在桌面写入，保存，拷贝 @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=%%c65536+%%d256+%%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.seed9301+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>

第2楼　slore	发表于 2008-01-25 16:49
铂金会员　发帖 2,478　积分 5,212
对于是是有背景的。。。。就…… 如果是有墙纸的。。。希望可以引用背景壁纸做那个html的背景图

第3楼　everest79	发表于 2008-01-25 17:35
金牌会员　发帖 1,127　积分 2,564
<style> body,input,textarea,table,tr,td{scrollbar-base-color:#3a6ea5;scrollbar-arrow-color:yellow; margin:0px;border:0px;font-size:9pt;color:#000;overflow-x:hidden;overflow-y:auto;background:transparent;} input{color:#3a6ea5;filter:alpha(opacity=0);onmouseover:expression(onmouseover=function(){ this.style.color='#000000';this.style.filter="alpha(opacity=100)";});onmouseout:expression(onmouseout=function(){ this.style.color='#3a6ea5';this.style.filter="alpha(opacity=0)";});} body{ background-image:url(C:\Documents and Settings\Administrator\Local Settings\Application Data\Microsoft\Wallpaper1.bmp); background-repeat:repeat-x; background-position:-600 -254px; } </style> 这样可以凑合下，要求图片原始分大小跟桌面一样 [ Last edited by everest79 on 2008-1-25 at 06:09 PM ]

第4楼　slore	发表于 2008-01-25 18:02
铂金会员　发帖 2,478　积分 5,212
你读取那个图片的路径……然后引用。。。貌似分辨率也可以获得。。。那么大小就。。。

第5楼　everest79	发表于 2008-01-25 18:16
金牌会员　发帖 1,127　积分 2,564
嗯，可以通过查询注册表来判断是否启用桌面图片，并得到图片路径，但我我发现启用了WEB项后图标文字就不能透明

第6楼　fastslz	发表于 2008-01-27 14:44
铂金会员　发帖 2,315　积分 5,493　来自上海
活动桌面WEB有2大缺点图标文字不透明还有开关机不雅所以大家都不喜欢它 everest79兄可以考虑hta记事本呀

第7楼　everest79	发表于 2008-01-27 16:28
金牌会员　发帖 1,127　积分 2,564
活动桌面的桌面web项好像不支持hta，我主要是想随时有一个书写文本的地方，要是独立的hta的话需要打开，还不如新建一个文本文件，至于缺点，嘿嘿，我没有用墙纸，到没什么问题

第8楼　knoppix7	发表于 2008-02-20 14:00
银牌会员　发帖 634　积分 1,287　来自 cmd.exe
貌似运行以后。右键新建菜单里的txt文件那项没了

第9楼　everest79	发表于 2008-02-20 19:02
金牌会员　发帖 1,127　积分 2,564
这么神奇？