Precarga en Barra de Esatdo..:(

~°The-Herps°~ · #1 (**permalink**) 16/04/2005, 18:47

Hola Amigos..
Bueno, Hace tiempo, Entre a www.tuarroba.com
Y me baje el codigo fuente de una Precarga en la barra de estado, lo guarde en un Disket, y ese disket se me rompio, entre a tuarroba.com y el codigo ya no estaba =(

Era una Precarga ke estaba mas o menos asi:

|||| 25%
||||||||| 47%
||||||||||||||| 68%
||||||||||||||||||||||||||||| 100%
The-Herps

Mientras las imagenes hivan cargando, Los palitos hivan de uno en uno (segun la conexion) y los numeros del 0% al 100% y despues formar la Frase "The-Herps"(en mi caso)

Donde puedo encontrar esa Precarga para la barra de estado??

seoista · #2 (**permalink**) 16/04/2005, 23:23

Hola ~°The-Herps°~

Código:

<head>
<script language=VBScript>
<!--
Dim Bar, Line, SP
Bar = 0 
Line = "|"
sP = 250

Function Window_onLoad()
Bar = 95
sP = 100
END Function

Function Count()
If Bar < 100 Then
Bar = Bar + 1
Window.Status = "CARGANDO: " & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = "CARGANDO"
Document.Body.Style.Display = "" 
End If 
End Function

Call Count()
-->
</script>
</head>

Saludos

~°The-Herps°~ · #3 (**permalink**) 17/04/2005, 00:19

Muchas Gracias seoista

Justo lo ke necesitaba!
Salkudos