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

AnofeL

New member
Katılım
1 Eki 2005
Mesajlar
95
Reaction score
0
Puanları
0
Yaş
35
Konum
Bios pilinin yerinde
ß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...
 
deneyen var mı arkadaslar olursa guzel olur...


Ayrıca bu hangi surumler icin
 
Sürüm Farketmez.. Görmen için sana pm'le link atım.
 
denedim gayet guzel ellerine sağlık
 
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 :)
 
Geri
Üst