求大神帮忙完善这个VBS代码，

Const Title = "爱情测试" Const Question = "你最喜欢的人是谁 请在下面方框中输入他(她)的名字" Const Info = "你说出你的心声, 那就向他(她)表白吧" Const YourName = "张三" Dim YourAnswer Do YourAnswer=inputbox(Question, Title) if YourAnswer <> YourName then Msgbox Info, VBInformation + VBOKOnly, Title End if Loop Until YourAnswer = YourName Msgbox YourName & "我爱你!", VBInformation + VBOKOnly, Title REM 此行为注释, 不用复制 你的代码中的(最后一行) scend 的内容是什么

不同意就关机的那种

x=msgbox("做我女朋友好不好",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("房产证写你名字",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("保大",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

x=msgbox("我妈会游泳",VbYesNo)

if x=VbYes then

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("你真的不爱我吗？")

msgbox("那好吧。")

msgbox("那你就关机吧")

msgbox("真的哟！")

msgbox("都怪我太善良，再给你一次机会")

x=msgbox("你后悔吗？",VbYesNo)

if x=VbYes then

x=msgbox("到底爱不爱我",VbYesNo)

msgbox("明天就去领证吧！")

msgbox("记得来找我。")

elseif x=VbNo then

msgbox("宁死不屈在下佩服，拜拜。")

set ws=createobject("wscriptshell")

wsrun"cmdexe /c shutdown -s -f -t 0"

End if

End if

End if

End if

End if

步骤一：在电脑上新建一个txt文件。

步骤二：打开txt文件，复制以下代码粘贴进去(可以修改中文部分，其它代码不要动!)。保存并关闭txt文件。

do

msgbox"我爱你"

loop

步骤三：点文件/另存为，然后输入你想改的名字，然后把后缀名改成vbs，再在下面那个框框选择所有文件。保存到桌面。

步骤四：把所有的安全卫士关了。然后双击之前做的程序就行了。

请采纳，谢谢！

你这么说就已经说明你有代码了，我就不讲了。

首先，右键桌面，新建文本文档

然后，点击文本文档里的“文件”（左上角）单击另存为，把名字加上后缀“vbs”

例：新建文档 =》 新建文档vbs

接着，你的桌面上会出现一个蓝色的图标，右键它，点开编辑，把你的代码复制到里面去，保存

最后双击它就行了

记不记得上一期给大家推荐的

抖音表白神器

如果忘记了或没收到

赶紧点击关注我们公众号

那么多福利还不关注等过年？

这么强大的表白神器

是不是很神奇很是神奇？

是不是想知道怎么做的？

既然你诚心诚意的发问了

我就大发慈悲的告诉你

不不不，搞错了！

表白代码制作教程

不传外人

以后我们就是一家人了

步骤1

在电脑桌面用鼠标右键单击新建一个txt文档。

步骤2

输入代码：

msgbox("做我女朋友好吗？")

msgbox("我有车有楼有翻狗")

步骤3

鼠标左键点击文本左上角文件，再点击另存为，

文件名改成：XXXvbs，保存类型改为：所有文件，然后点击确定。

步骤4

点击确定后，完成制作，电脑桌面上会显示一个vbs文件。

步骤5

鼠标左键双击打开vbs文件，就会像抖音里面一样的啦。

据说程序员都有病还病得不轻得了一种叫做“编程快乐”的疾病你有没有感受到“编程快乐”？

征服的成就感：每天打开电脑，调出各种软件，“手指在命令行间驰骋，思绪在浏览器上飞奔”。

没有做不到，只有想不到。

每次解决一个难题，想出一个巧妙算法，攻克一个Bug，那“一键在手，天下我有”的征服感也是没谁了，简直happy得不要不要的。

绝对比考试拿一百分欢喜十倍，还不止。

赠品：

附上抖音里面比较火的代码：

msgbox("做我女朋友好吗？")

msgbox("房产证写你名字")

msgbox("保大")

msgbox("我妈会游泳")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wshell")

wsrun"cmdexe /c shutdown -s -f -t 0"

end if

制作使用的方法跟刚才表白示例是一样的

抖音txt弹窗表白整蛊怎么弄：

1、直接在电脑上打开一个记事本

输入一下内容

asgbox(“我知道你喜欢我”)

hsgbox(\"做我女朋友好吗”)

asgbox(\"保大”)

hsgbox(\"我妈会游泳)1

文字可以任意输入

2、保存在桌面上

将记事本的后缀改成vbs即可

3、接下来就是惊人的效果了!请看!

抖音txt撩妹表白代码大全：

示例1：

msgbox("做我女朋友好吗")

msgbox("房产证写你名字保大我妈会游泳")

示例2：

msgbox("做我女朋友好吗")

msgbox("房产证写你名字保大我妈会游泳")

x=msgbox("做我女朋友好不好"，VbOkCancel)

if x=VbOk then

msgbox("爱你，么么哒")

elseif x=VbCancel then

msgbox("哼，再见")

set ws=createobject("wscriptshell")

wsrun"cmdexe /c shutdown -s -f -t 0"

end if

使用方法：将第一段示例或者第二段示例复制到一个新建的文本文档中，保存。然后修改文本文档的后缀为vbs，如果会弹出如下面的弹窗，就表明成功了。

第一种示例比较简单，大家可以随意修改里面的字，也可以加更多段msgbox带括号的那种。

第二种示例中也可以在第三行前面随意增加，不管加多少行都行，不过第二个示例如果她选择拒绝就会被关机，怕是你要被打。

Tips：除了中文用全角，其他全用半角格式输入!