抖音搞怪表白源码（网站代码不全 请下载源码）

最近很火的表白加弹窗源码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