抖音很火的表白神器

粘贴代码

do
intanswer=msgbox("小姐姐我注意你很久了，做我女朋友吧，好不好？",vbYesNo+vbInformation,"小姐姐我有话对你说")
if intanswer=vbNo then
intanswer=msgbox("不要急着拒绝，再考虑考虑吧？",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("先救你",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("房产证写你名字",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("饭我做",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("菜我炒",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("碗我洗",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("家务我做",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("我会爱你一生一世",vbYesNo+vbInformation,"小姐姐我有话对你说")
intanswer=msgbox("永远对你好，永远不惹你生气",vbYesNo+vbInformation,"小姐姐我有话对你说")
if intanswer=vbYes then
end if
else
msgbox"爱你么么哒",vbInformation,"小姐姐我有话对你说"
exit do
end if
loop

新建一个文档，然后另存为将文件名称改为.vbs后打开就可以了
如果出现未结束的字符串常量 将保存时候的类型转为ANSI 编码就可以了