Dikkat edin yanlış yapıldığı zaman forum logosu kaymaktadır.Yedek alarak yapın.
- Kod: Tümünü seç
<SCRIPT language=VBScript>Dim Bar,Line,SP
Bar=0
Line="|"
sP=100
Function Window_onLoad()
Bar=95
sP=10
END Function
Function Count()
If Bar<100 Then
Bar=Bar+1
Window.Status="Yükleniyor: "&Bar&"%"&" "&String(Bar,Line)
setTimeout "Count()",SP
Else
Window.Status="--Yükleme Bitti--"
Document.Body.Style.Display=""
End If
End Function
Call Count()
-->
</SCRIPT>