€F€L€M€C€ Mareşal
Mesaj Sayısı : 236 Yaş : 40 Nerden : Samsun Lakap : KodCanavarı Psikolojin : Takımın : Katılınan Ülke : Rep : Points : 3 Reputation : 0 Kayıt tarihi : 08/01/09
| Konu: Sitenin yüklenme durumunu durum çubugunda gösteren kod Ptsi 12 Ocak 2009, 00:47 | |
| - Kod:
-
<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> | |
|