Vbs是基于Visual Basic的脚本语言，简单方便，不需要下载编译器，也不需要配置环境。只能使用windows特定的记事本开发。
右键单击新建文本文档-粘贴代码-另存为“XXX . VBS”-保存-双击以运行。
下面是代码。
1.代码中最简单的一行
MsgBox你这个猪头！’
当然可以多写几行其他有趣的文字。程序逐行运行。
2.四环素恶搞
最后一个代码点“确认”结束后，执行结束，不管是想要整个人还是不够，我们都可以添加死循环。按下确认和关闭按钮后，再次弹出窗口，这样循环就不会正确关闭了。
道
Msgbox你这个猪头！’
循环(音乐)
那么，如何关闭呢？只有“打开作业管理器”(快捷键Ctrl Alt Delete)才能在w进程冰上右键找到并结束作业。Windows7系统w位于“过程”中，而windows10系统w位于“详细信息”中。
w流程结束
3.武汉大学英语保守从1到武汉大学，封闭方法如上
set s=CreateObject(')。
I=0
道
S.speak i .
I=i 1
循环(音乐)
4.无限制刷新(小心使用！)刷新很难打开任务管理器，可以强制退出
set ws=createobject(' w；)。
道
Ws.sendkeys '{f5} '
循环(音乐)
5.QQ为了骚扰朋友，一直发信息。
打开QQ，正确地写下朋友的注释。代码中的“料理鸡”被你的朋友注释代替，数字“30”被你想发送的次数代替，复制你要发送的信息，双击VBS执行。
On Error Goto 0
Dim wsh、ye
set wsh=create object(' w；)。
For I=1到30
W 100
w(“蔬菜鸡”)
W ' v '
W '%s '
next
w
骚扰 QQ朋友
6.告白代码
其中使用了定时终止，但以后会取消。
set Seven=ws CRI(' ws CRI；)。
str desktop=seven . special folders(' all users desktop ')
set oshellink=seven . create shortcut(str desktop ' \ seven . URL ')
操作系统
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
道
Youranswer=inputbox (question，title)
if your answer your name then msgbox info、VB information vbokonly和title
Loop until youranswer=yourname
Msgbox scend、VB information vbokonly和title
这些都是编程的初级小程序，是不是很有趣？
来源网络，删除侵权联系人