VBS是基于Visual Basic的脚本语言，简单方便，不需要下载编译器，也不需要配置环境。只能使用windows特定的记事本开发。

右键新建“文本文档”->粘贴代码->另存为“xxx.vbs”->保存->双击运行。

接下来就是代码了：

1.最简单的一行代码

MsgBox "你个猪头！"

当然你还可以多写几行其他有趣的文字，程序将会一行一行运行。

2.死循环恶搞

上个代码点完“确定”就运行结束了，想要整人还是不够，那我们可以加一个死循环，点击确定和关闭按钮之后，会再一次弹出窗口，如此循环，无法正常关闭。

do msgbox "你个猪头！" loop

那怎么才能关闭呢？只有打开任务管理器（快捷键Ctrl+Alt+Delete）找到w进程冰右键结束任务。windows7系统w在”进程“中，windows10系统w在”详细信息“中。

结束w进程

3.无限英文报数从1到无穷大，关闭方法同上

Set s = CreateObject(";) i=0 do s.speak i i=i+1 loop

4.无限刷新（慎用！！！）刷新难以打开任务管理器，只能强行关机

set ws=createobject("w;) do ws.sendkeys "{f5}" loop

5.QQ连续发送信息骚扰好友

打开QQ，准确记下好友的备注，代码里的”菜鸡“替换为你的好友备注，数字”30“替换为你想要发送的次数，复制好你准备发送的消息，双击运行vbs。

On Error Goto 0 Dim wsh,ye set wsh=createobject("w;) for i=1 to 30 w 100 w("菜鸡") w "^v" w "%s" next w

QQ骚扰好友

6.表白代码

其中用到了定时关机，但是后面会取消的。

Set Seven = WScri("WScri;) strDesktop = Seven.SpecialFolders("AllUsersDesktop") set oShellLink = Seven.CreateShortcut(strDesktop & "\Seven.url") oS se_key = (MsgBox("我喜欢你很久了，你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑！！！")) If se_key=6 Then MsgBox "谢谢你给了我这次机会，I Love You",64,"Love you" Else " -s -t 600" agn=(MsgBox ("我真的很喜欢你！求你了，别拒绝我，好吗？ 是=同意 否=拒绝",4,"别拒绝我，好吗？")) If agn=6 Then " -a" MsgBox "谢谢你给了我这次机会，I Love You",,"Love you" WScri 500 Else MsgBox "唉，那 祝你能找到自己喜欢的人，若可回头 记住 我在你身后一直等你！ --爱你的人",64,"祝你幸福！！" " -a" MsgBox "其实你拒绝了我，我也不会关你电脑的！因为你是我最重要的人，我不会捉弄你的！",64,"我愿意等你！" End If End If

延时关机

7.撩妹代码

只有再回答出设定好的名字是，循环才会结束

const title = "爱情测试" const yourname = "小Y" const question = "你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。" const info = "你在说谎！不要逃避，实话实说。" const scend = "你说出了你的心扉，那就向他（她）表白吧。" dim youranswer do youranswer = inputbox(question, title) if youranswer <> yourname then msgbox info, vbinformation+vbokonly, title loop until youranswer = yourname msgbox scend, vbinformation+vbokonly, title

这些都是编程的入门级小程序，是不是很有趣？发给那个TA，给生活加点料~

以后将会更新界面更漂亮更有趣的HTML代码，欢迎关注小Y~

这就是今天的分享了，快去试试吧！