用 VBS 制作一个“Windows 7 最后的留言”弹窗小程序

原创已于 2026-06-11 15:56:09 修改 · 167 阅读

4 ·

本内容遵循CC 4.0 BY-SA版权协议

GEO检测

标签

#windows #小程序 #VBS弹窗

于 2026-06-07 17:58:46 首次发布

摘要：本文介绍一个使用 VBScript 编写的怀旧弹窗小程序。程序通过 MsgBox 依次显示文字，并用 WScript.Sleep 控制停顿节奏，模拟 Windows 7 在“告别”用户时的一段留言。

一、项目简介

最近我用 VBScript 写了一个简单的小程序，主题是“Windows 7 最后的留言”。这个程序运行后，会连续弹出一组消息框，通过拟人化的方式，让 Windows 7 向用户说出一段告别的话。

程序本身并不复杂，主要适合用来练习 VBS 中的消息框、延时等待和脚本执行顺序。对于刚开始学习脚本的小伙伴来说，这是一个比较有趣的入门案例。

项目基本信息

文件类型	.vbs 脚本文件
主要语言	VBScript
主要功能	连续弹出消息框，展示一段怀旧文字
适合人群	VBS 初学者、脚本入门练习者

二、运行效果

双击运行这个 .vbs 文件后，屏幕上会依次弹出多个提示框。每个提示框的标题都是“Windows 7最后的留言”，内容则是一句一句的文字。

程序运行后，会依次弹出以下文字：

今天

是一个很平常的日子

但是

不得不说

我还有五天就要离开这个世界了

呜呜呜......

感谢你们这10年

一直以来对我的坚持和热爱

因为

没有你们

我就不会那么出名

没有你们

我就不会是自 XP 以来第2个成功的系统

也要感谢Windows Vista

它也是个很漂亮的操作系统

但是他的失败

换来了微软对我的优化和改进

我也因此得到成功

但是

请大家为了自己的安全

把我抛弃吧

因为

我已经跟不上时代的步伐了

我不支持Office 2019和其他一些软件

还有最新的硬件驱动

Windows 11已经被微软优化的越来越好

更重要的是

微软将要不再发布我的安全更新了

但是

我......

舍不得大家......

我不会忘记你们这十年来

你们一次次使用我的每一个瞬间

好了

大家......

再见！！！！！！

这样连续弹窗的效果，会让程序像是在一句一句地讲述一个小故事。

三、用到的核心知识点

1. MsgBox 弹出消息框

MsgBox 是 VBScript 中很常见的弹窗语句，用来显示提示信息。它的基本格式如下：

MsgBox "显示内容", 按钮和图标类型, "窗口标题"

在这个程序中，64 表示使用信息提示图标，第三个参数则是弹窗标题。

MsgBox "今天", 64, "Windows 7最后的留言"

2. WScript.Sleep 控制延时

WScript.Sleep 可以让脚本暂停一小段时间。比如：

WScript.Sleep 500

这里的 500 表示 500 毫秒，也就是 0.5 秒。加入延时后，弹窗之间不会显得太突然，整体节奏会更自然。

四、程序设计思路

这个程序的实现思路非常直接：

先确定主题：Windows 7 最后的留言。
把想表达的内容拆成很多短句。
每一句都用一个 MsgBox 显示出来。
每个弹窗之间用 WScript.Sleep 暂停 0.5 秒。
最后用“再见”收尾，让整个小程序有完整的故事感。

这种写法虽然简单，但很适合练习“程序按顺序执行”的概念。

五、核心代码片段

下面是程序中比较典型的一段代码：

MsgBox "今天", 64, "Windows 7最后的留言"

WScript.Sleep 500

 

MsgBox "是一个很平常的日子", 64, "Windows 7最后的留言"

WScript.Sleep 500

 

MsgBox "但是", 64, "Windows 7最后的留言"

WScript.Sleep 500

 

MsgBox "不得不说", 64, "Windows 7最后的留言"

WScript.Sleep 500

 

MsgBox "我还有五天就要离开这个世界了", 64, "Windows 7最后的留言"

WScript.Sleep 500

 

MsgBox "呜呜呜......", 64, "Windows 7最后的留言"

WScript.Sleep 500

可以看到，程序一直重复“弹窗 + 等待”的结构。只要修改 MsgBox 中的文字，就可以做出不同主题的小故事。

六、可以进一步优化的写法

原始代码每一句话都要写一次 MsgBox 和 WScript.Sleep。内容变多以后，代码会比较长。可以使用数组和循环来简化：

title = "Windows 7最后的留言"

messages = Array( _

    "今天", _

    "是一个很平常的日子", _

    "但是", _

    "不得不说", _

    "我还有五天就要离开这个世界了" _

)

 

For Each msg In messages

    MsgBox msg, 64, title

    WScript.Sleep 500

Next

这样写的好处是：代码更短，结构更清楚，后续想增加或删除文字时，只需要修改数组中的内容。

七、注意事项

不要写无限循环弹窗，否则会影响电脑正常使用。
不要把脚本发给别人恶搞，更不要伪装成普通文件让别人误点。
不要运行陌生来源的 .vbs 文件，因为脚本也可能被用来执行危险操作。
本程序主要用于学习 MsgBox 和 WScript.Sleep，不涉及修改系统设置。

八、总结

这个“Windows 7 最后的留言”小程序虽然代码很简单，但它把技术和创意结合了起来。通过这个小案例，可以学习到 VBS 弹窗、延时控制和顺序执行等基础知识。

对于脚本入门来说，一个有趣的想法往往比复杂的代码更重要。只要愿意动手尝试，简单的 MsgBox 也能做出有故事感的小程序。

附录：原始完整代码

下面是本次文件中的完整 VBS 代码。

MsgBox "今天", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "是一个很平常的日子", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "但是", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "不得不说", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我还有五天就要离开这个世界了", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "呜呜呜......", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "感谢你们这10年", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "一直以来对我的坚持和热爱", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "因为", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "没有你们", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我就不会那么出名", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "没有你们", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我就不会是自 XP 以来第2个成功的系统", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "也要感谢Windows Vista", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "他也是个很漂亮的操作系统", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "但是他的失败", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "换来了微软对我的优化和改进", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我也因此得到成功", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "但是", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "请大家为了自己的安全", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "把我抛弃吧", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "因为", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我已经跟不上时代的步伐了", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我不支持Office 2019和其他一些软件", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "还有最新的硬件驱动", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "Windows 11已经被微软优化的越来越好", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "更重要的是", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "微软将要不再发布我的安全更新了", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "但是", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我......", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "舍不得大家......", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "我不会忘记你们这十年来", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "你们一次次使用我的每一个瞬间", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "好了", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "大家......", 64, "Windows 7最后的留言"
WScript.Sleep 500

MsgBox "再见 ！！！！！！", 64, "Windows 7最后的留言"
WScript.Sleep 500