mofanrs

抖音搞怪表白源码(网站代码不全 请下载源码)
最近很火的表白加弹窗源码vbsdim num,obj,value,msgmsg = "小姐姐,我稀饭你"num =...
扫描右侧二维码阅读全文
03
2018/10

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

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

最后修改:2018 年 10 月 03 日 07 : 54 PM

发表评论