vbs实现恶搞无限弹窗，复制粘贴就能用

vbs简单实现弹窗

直接新建txt文档，复制粘贴下面代码：

do
a =msgbox("你怕是个ZZ吧？",vbYesNoCancel,"一份认真的问卷调查")
if a =vbYes then
    msgbox "emmmm，还算有点自知之明",,"恭喜你，真正的认识了自己！"
exit do
elseif a =vbNo then
    b =msgbox("心里没点AC数吗？",vbYesNo,"不要想太多，你就是！")
    if b =vbYes then
    msgbox "没点数，自己照照镜子啊！",,"这就是你学习好的原因啊"
    else
    msgbox "能认识错误还是好的",,"MDZZ"
    end if
else
    d =msgbox("取消你吗呢",vbYesNo,"还想点取消？")
    if d =vbYes then
    msgbox "取消也没用",,"这是一个轮回"
    else
    msgbox "不取消就赶紧承认吧",,"ZZ"
    end if

end if
loop

保存，修改文件格式为vbs，确认，打开。

“”双引号里面可以随意修改内容，看别人很多都是写表白的，作为一名钢铁直男，我觉得还是现在这样比较好玩，试试发给妹子会不会被打死，如果没更新博客应该就是当场去世了~

 

 

注意：第五行的 exit do 表示退出  就是说第一次点击yes之后可以点确定退出弹窗，否则无限循环。（把exit do这句去掉就是死循环了，但是可以通过结束进程来关闭，这个就不多说了，有问题多百度！）