zhaikaity - 2009/4/1 17:57:00
首先新建一个文本文档
将以下代码复制粘贴到文本文档中
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) + "我的帅是上天注定，万人敬仰，世人承认的啊"
复制完了以后就保存将文件后缀名改为.vbe
如果看不到后缀名的话单击工具，文件夹选项，查看，将隐藏已知文件类型的扩展名的勾消掉
最后就双击吧
呵呵呵呵
很好玩喔，如果嫌没意思，可以将“”里面的字改啊，然后发给qq好友。。。呵呵哈哈哈，我好邪恶啊
zhaikaity - 2009/4/1 18:00:00
顺便说一句啊，玩过的别出声啊，呵呵今天是邪恶的一天啊。
邪恶才是王道啊
飞天de猪 - 2009/4/1 19:29:00
看不懂怎么弄.....电脑小白呢- -
能详细的说说怎么弄么.....
好吧,我承认我是今天节日的专属人群- -
哦哦....懂了- -LZ真不诚实....明明那谁不是那什么- -怎么能这样呢,....
Annita - 2009/4/1 19:33:00
一点都不好玩。。。
估计是，
运行后不按要求来输入某话就倒计时关机= =
意义就是愚弄别人罢了。。。
愚人节。。果然不喜欢。。。。。
wtv.ur - 2009/4/1 20:24:00
嘛，这里还不是什么技术论坛……以前在那里见过用病毒当愚人节礼物的……
無響 聆 - 2009/4/1 20:35:00
問一下,玩完後把這舍刪除掉,會不會對電腦有後遺症?
SOLAの夢 - 2009/4/1 20:55:00
呵呵，lz这招可骗不了咱（好歹咱也学过点编程，这点代码还是看得懂的），不过lz难道不怕被和谐吗？
水羊 - 2009/4/1 21:42:00
= =
唉.......我已經在別的網站玩過那種了.........
又氣又好笑的..........
Star_Evil - 2009/4/1 21:49:00
:miffy2: 没有好评啊╮(╯_╰)╭
zhaikaity - 2009/4/1 23:23:00
太伤人了，我的心碎了，啊让我死吧，别拦着我，叫你别拦着我，你还拦着我，我想死啊，
哎哎哎，你们咋都下去了呢。。。。。。
水羊 - 2009/4/1 23:35:00
唉呀呀........LZ絕望了........
麻麻~~~
教你一個方法
深呼吸~~~吐氣...........看著我的頭象
恩?? 幸福了嗎XD