⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 屏幕抖动.htm

📁 VBSCRIPT的源码,相信很多html程序员都会用到,这些源码小小变动一下,可以用在很多地方,尤其在DHTML中!
💻 HTM
字号:
<html>
<head>
<title>屏幕抖动脚本</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
	body {  font-family: "宋体"; font-size: 9pt; margin-top: 0px; margin-left: 4px; margin-right: 0px}
	A { COLOR: black; FONT-SIZE: 13px; FONT-WEIGHT: 400; TEXT-DECORATION: none }
 	A:hover { COLOR: red; FONT-SIZE: 13px; FONT-WEIGHT: 400; TEXT-DECORATION: underline }
	a:active     { font: 9pt "宋体"; cursor: hand; color: #FF0033 }
-->
</style>
<SCRIPT LANGUAGE="VBScript">
<!--
   function shaking()
        call shake(2)
   end function
-->
</script>
</head>
<body bgcolor="#fef4d9">
<p align="center">
<!--webbot bot="HTMLMarkup" startspan -->
<!--webbot bot="HTMLMarkup" endspan -->
<center>
 <font color=red  size=6>
    屏幕抖动脚本
</font>
</center>
<br>
<center>
<table border=5 bordercolor=blue borderlight=green>
   <tr><td align=center>
         <strong>
            <font size=5 color=red>
               下面框中为脚本显示区
            </font>
         </strong>
   </td></tr>
   <tr><td align=center height=80>
   <script language="JavaScript">
   <!--
	function surfto(form) {
    	   var myindex=form.select1.selectedIndex;
    	    if (form.select1.options[myindex].value != null) {
            parent.main.location.href=form.select1.options[myindex].value;
           }
        }
// -->
</script>
<script language="JavaScript1.2">
<!--
function shake(n) {
if (window.top.moveBy) {
for (i = 10; i > 0; i--) {
for (j = n; j > 0; j--) {
window.top.moveBy(0,i);
window.top.moveBy(i,0);
window.top.moveBy(0,-i);
window.top.moveBy(-i,0);
         }
      }
   }
alert(" 没吓坏吧!!! ");
}
// End -->
</script>
<script LANGUAGE="VBScript">
<!--
   function moyamoya(htmlfile)
        parent.main.location.href=htmlfile
   end function
-->
</script>
<form>
  <div align="center">
     <center><p>
        <input onclick="shaking" type="button"  value="地震啦!!!"> </p>
     </center>
  </div>
</form>
</td></tr>
</table>
</center>
<br><br>
<center>
<SCRIPT LANGUAGE="VBScript">
<!--
function goHist(a)
   history.go(a)
end function
-->
</script>
</center>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -