Forum
Aktif konular
Üyeler
Kurallar
Arama
Şu Scriptin Hızını Yavaşlatırmısınız Şu Scriptin Hızını Yavaşlatırmısınız
-
Dim Kyazi
Kyazi =" arkadaşlar bu yazının yavaşça akmasını istiyorum scriptte nereyi değiştirmeliyim..........................."
window.status = space(i) & Kyazi
i = 150
Stat()
Sub Repeat()
i=20
window.status = space(i) & Kyazi
Stat()
End Sub
Function Stat()
Dim pText,pLen
i = i - 1
If i <= 0 Then
pLen = Len(Window.Status)
If pLen = 0 Then Repeat():Exit Function
pText = Right(Window.Status, (pLen - 1))
Window.Status = pText
End If
if i > 0 then
pText =Space(i) & LTrim(Window.Status)
end if
Window.Status = pText
SetTimeout "Stat()", 30
End Function
-
arkadaşlar kodun baş ve sonunda scrit açılış ve kapanış tagları var göremiyorsunuz şu an kod koruması var tahribat forumda
birde lütfen denemeden yorum yapmayın
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Toplam Hit: 1194 Toplam Mesaj: 2
Cevapla