中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » [求助]如何去掉桌面这个浮动框
作者:
标题: [求助]如何去掉桌面这个浮动框 上一主题 | 下一主题
tempuser
高级用户





积分 547
发帖 261
注册 2006-4-15
状态 离线
『楼 主』:  [求助]如何去掉桌面这个浮动框

曾经运行了一个vbs,在桌面产生一个浮动框,不知如何去掉它:

它的原代码:
<html><head><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:#3a6ea5;}
input{color:#3a6ea5;onmouseover:expression(onmouseover=function(){
this.style.color='#000000';});onmouseout:expression(onmouseout=function(){
this.style.color='#3a6ea5';});}</style>
<script language="JavaScript">
function save()
{
var file="C:\\Documents and Settings\\Administrator\\桌面\\"+rand(9999)+".cmd";
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>
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>
(
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>
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>

2008-3-18 10:55
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: