抖音小姐姐表白c语言源码,抖音搞怪表白源码（网站代码不全 请下载源码）

最近很火的表白加弹窗源码vbs

dim num,obj,value,msg

msg = "小姐姐，我稀饭你"

num = 0

Set obj = CreateObject("Wscript.Shell")

donum=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