ภาษาไทย
<!--เพื่อให้บรรลุผลนี้ ให้เพิ่มโค้ดต่อไปนี้ลงในพื้นที่ <body>--> <script language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" SP = 100 Function Window_onLoad() Bar = 95 SP = 10 End Function Function Count() ถ้า Bar < 100 ดังนั้น Bar = Bar + 1 Window.Status = "ดาวน์โหลดสำเร็จ" & Bar & "%" & " " & String (Bar, Line) setTimeout "Count() ", SP Else Window.Status = "ยินดีต้อนรับ! " Document.Body.Style.Display = "" สิ้นสุดถ้าสิ้นสุดจำนวนการเรียกฟังก์ชัน() </script>
