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

本文介绍了一段使用VBScript创建的简易弹窗程序代码。该程序通过一系列预设的对话框与用户互动,并根据用户的反馈展示不同的消息。文章还提到了如何修改弹窗内容以及程序的运行方式。

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这句去掉就是死循环了,但是可以通过结束进程来关闭,这个就不多说了,有问题多百度!) 

 

评论 14
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值