步骤一、打开记事本，输入以下代码（建议直接复制）：

msgbox "我有一件事想跟你说",vbQuestion,"在吗"
msgbox"自从第一天遇见你，我便对你难以忘怀了！"
CreateObject("SAPI.SpVoice").Speak"能够遇见你，对我来说是最大的幸福。有了你，我的生活变的绚丽多彩，有了你，世界变得如此迷人。你是我的世界，我的世界是你。我愿意用自己的一生，好好的陪着你，爱着你。陪你到你想去的地方，用心走完我们人生的余下的旅程。在未来的日子里，也许什么都无法确定，但唯一可以确定的是，我爱的人是你，无论现在还是将来，我想我这里都会是你最温暖的港湾，都是为你遮风避雨的城墙。无论狂风，无论暴雨。我都会陪在你的身旁，让你不会感到丝毫的担心和惶恐。"
msgbox"亲爱的，我喜欢你"
dim i
do while i<1
Select Case msgbox("做我女朋友好吗？",68,"请郑重的回答我！")
Case 6 i=1
Case 7 msgbox"你再考虑一下呗"
end Select
loop
msgbox"爱你一万年！"

步骤二、点击【文件】→【另存为】→【文件名：后缀改为   .vbs  （示例：Play.vbs）】→【保存类型：所有文档】

注：

        代码中    “   ”   内的中文均可以修改为你喜欢的内容。

效果如下图所示：

最后，希望大家告白成功！！