17/03/2004, 10:11
|
 | | | Fecha de Ingreso: septiembre-2003 Ubicación: Madrid
Mensajes: 26
Antigüedad: 21 años, 1 mes Puntos: 0 | |
| Aquí tienes uno de los indicadores más sencillos, en el te aparecerá el porcentaje de carga en la parte inferior de la ventana, es un poco simple, pero queda bastante curioso:
--------------------------------------------------------------------------
<head>
<SCRIPT language=VBScript>
<!--
Dim Bar, Line, SP
Bar = 0
Line = "|"
sP = 250
Function Window_onLoad()
Bar = 95
sP = 10
END Function
Function Count()
If Bar < 100 Then
Bar = Bar + 1
Window.Status = "Portal Oscuro: " & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = "Mensaje que tu quieras"
Document.Body.Style.Display = ""
End If
End Function
Call Count()
-->
</SCRIPT></head>
------------------------------------------------------------------
Espero que sea de tu agrado, un saludo, ~DaRkDoOr~
pd: cambia el atributo en negrita (lo pongo únicamente porque a simple vista a lo mejor no te hubieras dado cuenta).
__________________
"Ojalá Fuera la mía la última sangre española que se vertiera en discordias civiles. Ojalá encontrara ya en paz el pueblo español, tan rico en buenas cualidades entrañables, la Patria, el Pan y la Justicia". (José Antonio Primo de Rivera).
Última edición por Darkdoor; 17/03/2004 a las 10:49 |