-ProniX- Webmaster | Eğlence
Sayfa Yükleniyor Html Kodu
| <SCRIPT language=VBScript><br /> <!--<br /> <br /> Dim Bar, Line, SP<br /> Bar = 0 <br /> Line = "|"<br /> sP = 100<br /> <br /> Function Window_onLoad()<br /> Bar = 95<br /> sP = 10<br /> END Function<br /> <br /> Function Count()<br /> If Bar < 100 Then<br /> Bar = Bar + 1<br /> Window.Status = "Yükleniyor: " & Bar & "%" & " " & String(Bar, Line)<br /> setTimeout "Count()", SP<br /> Else<br /> Window.Status = "Yükleme Bitti"<br /> Document.Body.Style.Display = "" <br /> End If <br /> End Function<br /> <br /> Call Count()<br /> <br /> --><br /> </SCRIPT> |