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

2018 年 10 月 03 日

2656 次浏览

1549字数

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

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