不需要任何编程基础，不需要任何编程软件，只需使用电脑里自带的记事本软件就可以轻松编写出整人的小程序，甚至是病毒。。。。。。
  首先，单击右键，新建一个文本文档，输入：msgbox"你是猪！"




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






然后打开刚保存的xxxx.vbs








哈哈，很好玩吧，双引号里的内容”你是猪！”可以随意更改，但双引号一定要用英文输入法来写。嗯，下面正式开始整人。。。。。。
vbs小程序代码大全
按照前面说的，在记事本上输入如下图，并保存为55.vbs。






其中wscript.Sleep 500为停留500毫秒，可随便更改
下面这段代码就是一个启动关机程序的东东，300这个数是指300秒倒计时，这个数字也可以随便改，这段代码也可以独立保存出来作为一个关机程序
dim WSHshell
set WSHshell = ateobject("wscript.shell")
WSHshell.Run " /c shutdown -s -t 300"

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





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

最后嘛，把这文件创建桌面快捷方式，然后把图标换了，换成QQ什么的，你懂的，呵呵。。。。。。
当然，这种VBS编程还有很多好玩的地方，比如病毒，我也收藏有几个，由于我是一等一的良好市民，就不写上来了。
最后再送上一个程序：
dim a
do
a=inputbox("输入123，否则关机。")
if a="123" then
msgbox" 很遗憾，你中招了，这是整人程序，你就等着关机吧"
WSHshell.Run " /c shutdown -s -t 300"
wscript.sleep 1000
exit do
else
msgbox"乖点，输入123"
end if
loop

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。