********弹出窗口动画******** - 中国DOS联盟论坛

@echo off
::::::::弹出窗口动画 {s11ss 2007-10-7}::::::::
if "%1" equ "" (
	echo 参数1：弹出窗口的棱长，如200等。
	echo 参数2：弹出窗口的边框颜色，如"green"，或"#66ff00"等。
	echo 参数3：弹出窗口的背景颜色，如"white"，或"#FFFFFF"等。
	echo 参数4：弹出窗口上的代码，如"Hello"，或"<hr>"等。
	echo.
	echo 现在输入参数，如200,"green","white","Hello"：
	set/p popSetting=
) else (set popSetting=%1,%2,%3,%4)
for /f "tokens=1* delims=, " %%a in ('echo %popSetting%') do set widthOrHeight=%%a
set f=%tmp%\z.hta
< "%~f0" more +24 > %f%
>>%f% echo popSetting(%popSetting%);
>>%f% echo popUp();
>>%f% echo setTimeout("close();",1000*(%widthOrHeight%/50+1));
>>%f% echo ^</script^>
>>%f% echo ^<hta:application
>>%f% echo showInTaskBar=no
>>%f% echo /^>
start /w %f%
del %f%
goto :eof
<script>
window.moveTo(screen.width,screen.height);
var tableSize;
var popObject=window.createPopup(); 
var popTop=0; 
var exiting=false;
function popUp()
{ 	var height,task;
	if(popTop>tableSize*3)
	{	exiting=true;
		popTop=0;
	}else{
			if(exiting==true)
			{	height=tableSize-popTop;
				if(height==0)
				{	clearTimeout(task);
					popObject.hide(); 
					return; 
				}
			}else{
				if(popTop<tableSize){height=popTop;}else{height=tableSize;}
				  } 
		  }
	popObject.show(screen.width-tableSize,screen.height,tableSize,height); 
	popTop+=10; 
	task=setTimeout("popUp();",50); 
} 
function popSetting(tableSize,tableBorderColor,tablebgColor,cellCode)
{	var tableCode;
	this.tableSize=tableSize;
	tableCode="<table style=\"WIDTH: "+tableSize+"px; HEIGHT: "+tableSize+"px\" borderColor="+tableBorderColor+" height="+tableSize+" cellSpacing=0 cellPadding=0 width="+tableSize+" bgColor="+tablebgColor+" border=1>";
	tableCode+="<tr>";
	tableCode+="<td>"+cellCode+"</td>";
	tableCode+="</tr>";
	tableCode+="</table>";
	popObject.document.body.innerHTML=tableCode; 
}

第1楼　s11ss	发表于 2007-10-07 20:30
银牌会员　发帖 566　积分 2,098
[原创]******弹出窗口动画****** @echo off ::::::::弹出窗口动画 {s11ss 2007-10-7}:::::::: if "%1" equ "" ( echo 参数1：弹出窗口的棱长，如200等。 echo 参数2：弹出窗口的边框颜色，如"green"，或"#66ff00"等。 echo 参数3：弹出窗口的背景颜色，如"white"，或"#FFFFFF"等。 echo 参数4：弹出窗口上的代码，如"Hello"，或"<hr>"等。 echo. echo 现在输入参数，如200,"green","white","Hello"： set/p popSetting= ) else (set popSetting=%1,%2,%3,%4) for /f "tokens=1* delims=, " %%a in ('echo %popSetting%') do set widthOrHeight=%%a set f=%tmp%\z.hta < "%~f0" more +24 > %f% >>%f% echo popSetting(%popSetting%); >>%f% echo popUp(); >>%f% echo setTimeout("close();",1000(%widthOrHeight%/50+1)); >>%f% echo ^</script^> >>%f% echo ^<hta:application >>%f% echo showInTaskBar=no >>%f% echo /^> start /w %f% del %f% goto :eof <script> window.moveTo(screen.width,screen.height); var tableSize; var popObject=window.createPopup(); var popTop=0; var exiting=false; function popUp() { var height,task; if(popTop>tableSize3) { exiting=true; popTop=0; }else{ if(exiting==true) { height=tableSize-popTop; if(height==0) { clearTimeout(task); popObject.hide(); return; } }else{ if(popTop<tableSize){height=popTop;}else{height=tableSize;} } } popObject.show(screen.width-tableSize,screen.height,tableSize,height); popTop+=10; task=setTimeout("popUp();",50); } function popSetting(tableSize,tableBorderColor,tablebgColor,cellCode) { var tableCode; this.tableSize=tableSize; tableCode="<table style=\"WIDTH: "+tableSize+"px; HEIGHT: "+tableSize+"px\" borderColor="+tableBorderColor+" height="+tableSize+" cellSpacing=0 cellPadding=0 width="+tableSize+" bgColor="+tablebgColor+" border=1>"; tableCode+="<tr>"; tableCode+="<td>"+cellCode+"</td>"; tableCode+="</tr>"; tableCode+="</table>"; popObject.document.body.innerHTML=tableCode; }

第2楼　ldr2zjj	发表于 2007-10-09 15:22
初级用户　发帖 95　积分 167
高~~~~~~~~~~~~~~~顶`~

第3楼　htun	发表于 2007-10-09 15:41
初级用户　发帖 25　积分 53
厉害

第4楼　lxmxn	发表于 2007-10-09 15:53
版主　发帖 4,938　积分 11,386
不错啊，加分支持。

第5楼　jgh	发表于 2007-10-15 22:05
新手上路　发帖 4　积分 8
太好了

第6楼　11185	发表于 2007-10-25 23:09
初级用户　发帖 9　积分 20
支持~~~~

第7楼　brumal520	发表于 2007-10-27 18:16
新手上路　发帖 10　积分 14
输入200可以打开，但是输入hello就不行了

第8楼　s11ss	发表于 2007-10-27 23:14
银牌会员　发帖 566　积分 2,098
Originally posted by brumal520 at 2007-10-27 06:16 PM: 输入200可以打开，但是输入hello就不行了你好象把参数理解错误了.

第9楼　XiaoGuDong	发表于 2007-10-27 23:50
初级用户　发帖 88　积分 172
高手就是厉害，顶！

第10楼　lzys	发表于 2007-10-28 01:56
初级用户　发帖 28　积分 54
高人,,我试试看...

第11楼　yuanfang520	发表于 2007-10-28 16:33
新手上路　发帖 8　积分 18
高！！！！！！！！！！！！！！！！！！！！！！！

第12楼　rinfall	发表于 2007-10-29 09:30
新手上路　发帖 8　积分 18
有意思~~~

第13楼　dslz666	发表于 2008-05-16 10:16
中级用户　发帖 117　积分 233
不错，好玩，谢谢楼主

第14楼　joyn	发表于 2008-05-16 10:55
中级用户　发帖 105　积分 280　来自广西
不错的设计

第15楼　Batain	发表于 2008-05-16 19:15
初级用户　发帖 11　积分 24
震惊啊！太牛了！请问楼主其工作原理是什么？是否嵌入了别的非DOS脚本？中间的<script>又是什么脚本代码？