抖音vbs代码表白怎么制作

不同意就关机的那种

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

01

先来第一段弹窗代码：

msgbox"内容A"+chr(13)+"内容B"+chr(13)+"内容C",1,"标题"

将它们复制到文本中，将后缀改成“vbs”就可以双击执行了。

02

其中“msgbox”代表Windows系统的弹窗警告，内容A、内容B、内容C是大家想在弹窗上显示的文字，而“标题”就是弹窗左上角类似系统警告一类的内容。另外，在“标题”前面的数字“1”代表调用系统按钮的样式，也可以换成2、3、4，共4种按钮样式供大家选择，写好内容的代码应该就是

只有弹窗，视觉效果是有了，但缺乏震撼力！要声色齐全才能唬到人。

所以还要来点语音说教。

03

再新建个文本文档，将以下代码复制进去

把你想让电脑说出来的话输入在“内容”部分，同样保存为“vbs”后缀即可。电脑就可以直接读出你输入的内容。

04

你说这些文件没有双击运行的话，也不会产生效果。那啥，你就不会把它们隐藏以后加入开机启动项目中吗？

控制面板-管理工具-计划任务，在右侧选择“创建任务”，在上面的标签中选择“触发器”，新建触发器设置为“每天”后，将开始任务更改成“启动时”或你想让弹窗和语音出现的时候，就大功告成了。

05

这两个代码结合起来，想警告、整人，甚至装老司机给女神表白均可使用，如何灵活发挥，就看你的脑洞够不够大了！