状态栏已加载代码（美金梦优化版）

7年前更新

0520

有什么问题请到<a href=’www.meijinmeng.cn’>美金梦</a>发表<br>

<!– http://www.meijinmeng.cn/ –>
<!– http://www.meijinmeng.cn –>
<!–要完成此效果把如下代码加入到<body>区域中–>
<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 = “已加载” & Bar & “%” & ” “ & String(Bar, Line)
setTimeout “Count()”, SP
Else
Window.Status = “欢迎您来到美金梦.cn ！如果喜欢本站，可别忘了告诉朋友们哦！他们会感谢你的！”
Document.Body.Style.Display = “”
End If
End Function
Call Count()
</script>

|美金梦原创，转载要注明出处！本文地址：http://www.meijinmeng.cn/Html/?339.html

© 版权声明

文章版权归作者所有，未经允许请勿转载。

THE END

喜欢就支持一下吧

相关推荐

评论抢沙发

欢迎您留下宝贵的见解！

提交

暂无评论内容