• توجه: در صورتی که از کاربران قدیمی ایران انجمن هستید و امکان ورود به سایت را ندارید، میتوانید با آیدی altin_admin@ در تلگرام تماس حاصل نمایید.

Loading در استاتوس بار تا لود شدن كامل صفحه تا 100%(کد جاوا)

admin

admin

Administrator
عضو کادر مدیریت
Loading در استاتوس بار تا لود شدن كامل صفحه تا 100%:


کد: 
<SCRIPT language=VBScript>
   <!--
   Dim Bar, Line, SP
   Bar = 0 
   Line = "|"
   sP = 200
      Function Window_onLoad()
     Bar = 95
     sP = 10
   END Function
   
   Function Count()
   If Bar < 100 Then
      Bar = Bar + 1
      Window.Status = "Ljava.mihanblog.com => plz Wait 4 Load : " & Bar & "%" & " " & String(Bar, Line)
      setTimeout "Count()", SP
   Else
      Window.Status = ""
      Document.Body.Style.Display = "" 
   End If 
   End Function
      Call Count()
   -->
</SCRIPT>
<!----- www.iranjoman.com---->
 
برای ارسال پاسخ شما باید وارد سیستم شوید.
بالا