2024年2月2日发(作者：)

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

不需要任何编程基础，不需要任何编程软件，只需使用电脑里自带的记事本软件就可以轻松编写出整人的小程序，甚至是病毒。。。。。。

首先，单击右键，新建一个文本文档，输入：msgbox"你是猪！"

然后，点击 文件->另存为->保存类型：所有文件->文件名，名字随便起，但一定要记得把后缀名改为 .vbs。

1文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

然后打开刚保存的

2文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

哈哈，很好玩吧，双引号里的内容”你是猪！”可以随意更改，但双引号一定要用英文输入法来写。嗯，下面正式开始整人。。。。。。

按照前面说的，在记事本上输入如下图，并保存为。

3文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

其中 500为停留500毫秒，可随便更改

下面这段代码就是一个启动关机程序的东东，300这个数是指300秒倒计时，这个数字也可以随便改，这段代码也可以独立保存出来作为一个关机程序

dim WSHshell

set WSHshell = object("")

" /c shutdown -s -t 300"

打开这个文件，如果你点击“是”，你就会进入一个死循环中，就是不断地弹出对话框。解决方法是按下Alt+Ctrl+Delete键，选择“进程”，把结束掉。如果点击“否”，

4文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.

则进入关机倒计时，解决方法是点击“开始”->“运行”,在对话框里输入shutdown -a ,再点击“确定”即可。

最后嘛，把这文件创建桌面快捷方式，然后把图标换了，换成QQ什么的，你懂的，呵呵。。。。。。

当然，这种VBS编程还有很多好玩的地方，比如病毒，我也收藏有几个，由于我是一等一的良好市民，就不写上来了。

最后再送上一个程序：

dim a

do

a=inputbox("输入123，否则关机。")

if a="123" then

msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧"

" /c shutdown -s -t 300"

1000

exit do

else

msgbox"乖点，输入123"

end if

loop

5文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持.