请将下面代码用记事本保存为HTA扩展名的文件,双击运行即可.
<html>
<head>
<title>Simple Splash Screen</title>
</head>
<SCRIPT LANGUAGE="VBScript">
dim i
Sub TEST1
i=i+1
If i<49 Then
Splash1.innerHTML="<h1 align=center>指数=" & i &"</H1>"
Splash2.innerHTML="<h1 align=center>幂=" & 2^i &"</H1>"
iTimerID =window.setTimeOut("TEST1", 1000)
Else
Splash1.innerHTML="<h1 align=center>指数=" & i &",再不给你算了!</H1>"
Splash2.innerHTML="<h1 align=center>幂=" & 2^i &"</H1>"
End If
End Sub
</SCRIPT>
<body OnLoad=TEST1
STYLE="font:14 pt arial; color:white;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=1, StartColorStr='#99eecc', EndColorStr='#2266ff')">
<h1 align=center
style="COLOR:#eeFFee; filter:Glow(Color='#FF5500',Strength='9');
FONT-FAMILY: 华文彩云; FONT-SIZE: 45pt; LINE-HEIGHT: 150%;
WIDTH: 100%"
>2的1 ---> 48次幂计算演示器</h1>
<DIV id="Splash1"
STYLE="Background-color:blue;Height:50;Width:500;
Border:2px solid green;
position:relative;top:100;left:75;
font:14pt arial;"></DIV>
<DIV id="Splash2"
STYLE="Background-color:blue;Height:50;Width:500;
Border:2px solid green;
position:relative;top:120;left:75;
font:14pt arial;"></DIV>
<DIV id="Splash3"
STYLE="Height:10;Width:500;
filter:progid:DXImageTransform.Microsoft.Gradient
(GradientType=0, StartColorStr='#006699', EndColorStr='#99ccff');
Border:2px solid green;
position:relative;top:140;left:75;
font:14pt arial;"><h4 align=right>原创 :浙江.安吉.项道德(daode1212)</h4>
</Div>
</body>
</html>
