Loading... 最近很火的表白加弹窗源码vbs dim num,obj,value,msg msg = "小姐姐,我稀饭你" num = 0 Set obj = CreateObject("Wscript.Shell") do num=num+1 If MsgBox("当我女朋友吧?",vbOKCancel,msg)=vbOK Then '判断按下"确认"还是"取消"按钮 '-------------------------------- '点击确认按钮之后执行的操作 If num = 1 Then If MsgBox("哈哈哈,逗你玩呢(*^▽^*)",vbOKOnly,msg) Then End if ElseIf num = 2 Then If MsgBox("这么容易被征服的吗,哈哈哈(*^▽^*)",vbOKOnly,msg) Then End if ElseIf num = 3 Then If MsgBox("哈哈哈,乖啦,生谁的气都不会生你的气的啦(*^▽^*)",vbOKOnly,msg) Then End if ElseIf num > 3 Then If MsgBox("哈哈哈,放过你啦(*^▽^*)",vbOKOnly,msg) Then End if End if exit do'退出循环代码 '-------------------------------- else '-------------------------------- '点击取消按钮之后执行的操作 select case num case 1 If MsgBox("房子写你名",vbOKOnly,msg) Then End if If MsgBox("保大",vbOKOnly,msg) Then End if If MsgBox("我妈会游泳",vbOKOnly,msg) Then End if case 100 If MsgBox("好吧,没想到你的毅力这么强,居然我问了100次都不愿意,算啦,放过你啦o(╥﹏╥)o",vbOKOnly,msg) Then End if exit do'退出循环代码 case else If num = 2 Then If MsgBox("拒绝我???"&vbCrlf&"再拒绝我会生气的哇",vbOKOnly,msg) Then End if else obj.Popup "还拒绝我???"&vbCrlf&"我生气了[○?`Д′? ○]"&vbCrlf&"后果很严重,我要让你弹窗"+CStr(num)+"次",1,msg for value=1 to num step 1 obj.Popup "这是第"+CStr(value)+"次弹窗,还有"+CStr(num-value)+"次",1,msg next End if end select '-------------------------------- End if loop 点击这里下载源码[新建文本文档.vbs][1] [1]: http://blog.mofnr.cn/usr/uploads/2018/10/3303684673.vbs 最后修改:2018 年 10 月 03 日 © 允许规范转载 打赏 赞赏作者 赞 0 如果觉得我的文章对你有用,请随意赞赏