vbs整人简单实现大量弹窗+指定语句退出！

先晒一下这几天的作品数据，阅读量不错，就是粉丝和收藏实在有点少。

小伙伴点赞关注收藏为我助个力好吗？

这个只是一串代码，没有详细教学，想要看详细教学的可以看看我的文章：

vbs格式编程教程基础_Hacker_02的博客-CSDN博客原创vbs代码教学，欢迎来看！https://blog.csdn.net/a_8848_z/article/details/125253150?spm=1001.2014.3001.5502vbs格式编程教程提高_Hacker_02的博客-CSDN博客原创vbs代码教学，欢迎来看！https://blog.csdn.net/a_8848_z/article/details/125272285?spm=1001.2014.3001.5502

---

---

 好了，闲聊结束，现在开始正文

新建一个文件，后缀名改为.txt，然后输入以下代码：

msgbox("面对疾风吧！")     （这行提示语可以不加）
for i=1 to 10               (将next前面的内容重复运行10遍)
Set obj = createobject("wscript.shell")
obj.run "cmd /k e: && cd E:\aaa && dir"     （运行cmd指令窗口）
Next
do
a =msgbox("你是249+1吗？",vbYesNoCancel,"一份认真的问卷调查")
if a =vbYes then
    msgbox "emmmm，还算有点自知之明",,"恭喜你，真正的认识了自己！"
exit do
    elseif a =vbNo then
    for i=1 to 10
    Set obj = createobject("wscript.shell")
    obj.run "cmd /k e: && cd E:\aaa && dir"
    Next
    b =msgbox("心里没点数吗？",vbYesNo,"你就是249+1，赶紧承认！")
    if b =vbYes then
    for i=1 to 10
    Set obj = createobject("wscript.shell")
    obj.run "cmd /k e: && cd E:\aaa && dir"
    Next
    msgbox "没点数，自己照照镜子啊！",,"这就是你学习好的原因啊"
    else
    msgbox "能认识错误还是好的",,"MDZZ"
    end if
else
    d =msgbox("取消你mua",vbYesNo,"还想点取消？")
    if d =vbYes then
    for i=1 to 10
    Set obj = createobject("wscript.shell")
    obj.run "cmd /k e: && cd E:\aaa && dir"
    Next
    msgbox "取消也没用",,"这是一个轮回"
    else
    msgbox "不取消就赶紧承认吧",,"249+1！"
    end if

end if
loop

保存，修改后缀名为.vbs

双引号里面的文字可以改，可以根据用途来改，比如表白可以把问题改成：你愿意做我女朋友吗

不过作者还是觉得这个比较好玩。

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

注意：vbs的代码严密性很高（几乎没有容错率），逻辑关系很紧密，里面除了第一条几乎都不能舍去！

这个只是一串代码，没有详细教学，想要看详细教学的可以看看我的文章：

如果发现了代码漏洞欢迎在评论区留言！