基于VBS的恶搞/表白程序

引言——什么是VBS

VBS是Visual Basic Script的缩写，是一种基于微软Windows操作系统的脚本语言。（~~就是我们俗称的脚本~~）它可以在Windows系统上执行许多常见任务，如文件操作、文本处理、网络通信等。VBS源于Visual Basic语言，因此拥有类似于VB的语法和结构。

关键的是：

VBS可通过任何文本编辑器创建和编辑，然后使用Windows脚本宿主运行。其优点是易学易用，简单明（~~适合搞事情~~）了，适合快速编写小型应用程序和自动化脚本。同时，由于VBS内置于Windows操作系统中，所以不需要额外安装与配置就可以直接使用。

VBS可以与各种Windows应用程序进行交互，例如Microsoft Office应用程序、Internet Explorer浏览器等。此外，它还支持WMI（Windows Management Instrumentation）和ADS（Active Directory Service）等Windows管理技术，并且可以使用COM组件来实现高级功能。

总之，VBS是一种方便实用的脚本语言，可用于快速开发简单的Windows应用程序和自动化脚本，为Windows系统提供强大的自动化和管理功能。

源码

由于网络上有很多类似的源码，大家有需要可以自行寻找，当然也可以个性化定义

我这里提供两个简单的代码

恶搞

do
msgbox "系统错误！",64
msgbox "系统可能遭到了病毒攻击！",64
msgbox "系统错误!",64
loop

表白

msgbox("做我女朋友好吗?")
msgbox("房产证上写你名")
msgbox("保大")
msgbox("我妈会游泳")
msgbox("我做家务")
msgbox("我做饭")
msgbox("宠你")
msgbox("护犊子")
msgbox("不凶人")
msgbox "你好!"
msgbox "我钟意你很久了!",64
msgbox "可以做我女朋友吗",64
dim gj,a
const s="我愿意"
set gj=wscript.createobject("wscript.shell")
gj.run "cmd.exe /c shutdown -s -t 60 -c ""快说我愿意，不然就关机"" ",0,true
do
a=inputbox("答应我吧","我真的很喜欢你","我愿意")
if a=s then
gj.run "cmd.exe /c shutdown -a ",0,true
msgbox "亲爱的，我们一起去操场散步好不好?"
exit do
wscript.Quit
end if
msgbox "为什么不愿意 哇阿阿阿阿阿 我好伤心~",16
loop

切记切记:

在文本文档保存的时候要选择ANSI编码