Crew Admin
![Crew](https://2img.net/u/1313/31/68/87/avatars/3-30.png)
Mesaj Sayısı : 604 Points : 1621 Reputation : 0 Kayıt tarihi : 15/04/09
![Sayfa Yükleniyor Kodu Empty](https://2img.net/i/empty.gif) | Konu: Sayfa Yükleniyor Kodu Cuma Nis. 17, 2009 12:22 am | |
| - 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> | |
|