代码如下:
<html>
<Evista>
<HTA: aplicación
Subtítulos = "no"
Scroll = "No"
ShowInTaskBar = "No"
InnerBorder = "no"
ContextMenu = "no"
Border = "ninguno"
SingleInstance = "Sí"
WindowState = "Maximizar"
>
<title> </title>
<script>
Vartimer = 100;
Varranddiv = NewArray (100);
Window.Onload = function ()
{
para (vari = 0; i <randdiv.length; i ++)
{
randdiv [i] = document.createElement ("div");
randdiv [i] .style.csstext = "filtro: progid: dximagetransform.microsoft.alpha (opacidad = 50);";
randdiv [i] .style.position = "Absolute";
randdiv [i] .style.background = getRandomColor ();
document.body.appendChild (randdiv [i]);
}
Divertido();
}
FINTOFUN ()
{
para (vari = 0; i <randdiv.length; i ++)
{
randdiv [i] .style.top = math.floor (math.random ()*window.screen.height);
randdiv [i] .style.left = math.floor (math.random ()*window.screen.width);
randdiv [i] .style.width = math.floor (math.random ()*100);