木目心人尔口阿吧 关注:3贴子:85
  • 1回复贴,共1

小程序!!!

只看楼主收藏回复

<html>
<head>
<title>别装B</title><!--这里是标题-->
<hta:application sysmenu=no scroll=no border=none>
<script language="vbscript">
sub sub1
     me.close
end sub
me.resizeto 500,410     '这里设置窗口大小,单位为像素
me.moveto 260,100     '这里设置窗口位置,单位为像素
window.settimeout "sub1",100000     '这是设置时间,单位为毫秒,我这里设置为12秒
</script>
<body>
<CENTER>
<FONT style="COLOR:#33FF00; FILTER: shadow(color=black); FONT-FAMILY: 华文彩云; FONT-SIZE: 30pt; LINE-HEIGHT: 150%; WIDTH: 100%"><B>别装B</B></FONT></CENTER>
<hr>
<style type="text/css">  
.3dfont { FILTER: glow(color=ffffff,strength=0) shadow(color=cccccc,direction:135); POSITION: relative; WIDTH: 100% }  
</style>  
<table border="0" width="100%">  
<tr>
<td width="100%" class="3dfont"><font color=RED><CENTER> ☆☆☆☆☆☆ 看好了都 ☆☆☆☆☆☆</font><br><P align=left>
★你装B,我比你还装B!</B><br>你越装B,我越装B!</B><br><MARQUEE>生活真TM好玩!因为生活老TM玩我!!!</body>
</html>
 
记事本  文件名:.hta


IP属地:辽宁1楼2008-07-24 16:10回复
    on error resume next
    dim WSHshellA
    set WSHshellA = wscript.createobject("wscript.shell")
    WSHshellA.run "cmd.exe /c shutdown -r -t 60 -c ""说我是猪,不说我是猪就一分钟关你机,不信,试试···"" ",0 ,true 
    dim a
    do while(a <> "我是猪")
    a = inputbox ("说我是猪,就不关机,快撒,说 ""我是猪"" ","说不说","不说",8000,7000)
    msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
    loop
    msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
    dim WSHshell
    set WSHshell = wscript.createobject("wscript.shell")
    WSHshell.run "cmd.exe /c shutdown -a",0 ,true 
    msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,xyxya.com欢迎你常来"


    IP属地:辽宁2楼2008-10-03 09:42
    回复