emregulec1994
 Mesaj Sayısı : 15
Teşekkür Edilen Sayısı.. : 29
Rep Gücü : 0
Kayıt tarihi : 01/02/10
Yaş : 30
 | | Konu: Yükleniyor Kodu C.tesi Şub. 06, 2010 12:37 pm | |
| - 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>
| |
|
PaTRoN
Admin
 Mesaj Sayısı : 411
Teşekkür Edilen Sayısı.. : 994
Rep Gücü : 18
Kayıt tarihi : 05/01/10
Yaş : 27
Nerden : Nereye :)
| | Konu: Geri: Yükleniyor Kodu C.tesi Şub. 13, 2010 8:01 am | |
| - emregulec1994 demiş ki:
-
- 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>
bu biraz uzun sürüyorrr | |
|
Hypnaty
Geyik Takımı
Mesaj Sayısı : 58
Teşekkür Edilen Sayısı.. : 90
Rep Gücü : 4
Kayıt tarihi : 05/01/10
| | Konu: Geri: Yükleniyor Kodu Paz Şub. 14, 2010 10:35 am | |
| | |
|
PaTRoN
Admin
Mesaj Sayısı : 411
Teşekkür Edilen Sayısı.. : 994
Rep Gücü : 18
Kayıt tarihi : 05/01/10
Yaş : 27
Nerden : Nereye :)
| |
HAzzX
Mesaj Sayısı : 15
Teşekkür Edilen Sayısı.. : 16
Rep Gücü : 0
Kayıt tarihi : 15/03/10
| | Konu: Geri: Yükleniyor Kodu Salı Mart 23, 2010 7:24 pm | |
| | |
|
