抖音表白程序

抖音表白程序

摘要

最近七夕节快到了，想到了抖音上以前流行的表白程序，就自己写了一个，效果还行。

思路

通过使用嵌套循环，实现通过输入相应命令来达到解除占屏效果。主要是使用了virtual basic script，我博客有相应的教程。

使用方法

拷贝代码到记事本，保存并更改后缀名为.vbs，例如xxx.vbs，然后单击即可，若想中断退出程序，可以直接从任务管理器杀死该进程。若想要使用其他的语句请自行更改。

dim answer1,answer2,password
msgbox "我今早上，写了一早上的游戏，给你玩一下！！！"
do
	answer1 = inputbox("老实告诉我，你喜不喜欢我？")
	if answer1 = "喜欢" then
		msgbox "我就知道，但是。。。"
		msgbox "这种事情"
		msgbox "应该我来说的，嘿嘿嘿"
			do 
			answer2 = inputbox("你愿意现在就做我女朋友吗？")
			if answer2 = "愿意" then
				msgbox "我也愿意"
				msgbox "不许反悔哦！！我可知道你心里早就想说的"
				msgbox "现在就发qq告诉我,我告诉你怎么破解这个！！"
				do 
				  password = inputbox("请输入破解密码：")
				  if password = "000520" then
					  msgbox "我们现在就是男女朋友了哦！！"
					  msgbox "你现在就是我的女朋友了哦！！"
					  msgbox "你从现在开始就是我的人了哦!!!"
					  exit do
				  end if 
				loop
				exit do
			else 
				msgbox "你内心真实想法哦！想清楚哦！！"
			end if
			loop
    exit do
	else
	msgbox "你心里真实想法哦，想清楚哦!!"
	end if
loop
msgbox "哈哈，看来国家没有忘记给我分配！！"
msgbox "哈哈，我也有女朋友了！！"
	

最后，祝读者早日脱单！！！