Alt Bilgi çubuğundaki yazıyı deişmek..

AnofeL

New member
ßunu dolaşırken 1 forumda gördüm. Hoş 1 görüntüsü war... Altta Yükleniyor yazısı çıkıyor üstelik % li gösteriyor....

Yükleniyor %15 |||||||| şeklinde...

Tek yapmanız gereken alttaki codeleri footer templatesinin en altına yapıştırmak..

<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>


Denemelisiniz...
 

AnofeL

New member
Sürüm Farketmez.. Görmen için sana pm'le link atım.
 

armanius

New member
denedim gayet guzel ellerine sağlık
 

cage

New member
evet çok güzel oldu fakat biraz gec geliyor bi forumumda oda sanırım o host'Un yavaslıgından kaynaklanıyor diğer seri host'da sorunsuz çalişdi , tşk. ederim :)
 

HTML

Üst