【情人节撩妹全攻略---63行代码拿下】

七夕节语

今天是七夕节，首先祝各位非单身狗们七夕节快乐！！
有人要问了，那单身狗怎么办？别急，相信大家可能在
抖音上有看到那种用vbs表白小姐姐的，我自己根据这个
编写了一个魔鬼版！！不达目的不放弃的那种！！！
-------------------------分割线----------------------------------
简单描述下效果是什么样:`
就是小姐姐需要承认喜欢的对象是你，不承认将进入无休止的
循环当中，无法关闭表白窗口,哈哈🤓🤓,不需要安装任何环境，
直接粘贴修改使用，超级简单😏😏
下面步骤如果操作有问题，可以直接去我博客下载代码使用:
表白代码下载处
-------------------------分割线----------------------------------
用我下面的表白代码，保证暗恋小姐姐给你追到手！！
程序员也要浪漫一点！！
好了话不多说，步骤奉上！！

操作步骤

1.创建一个空的文件后缀为txt的文档，叫什么名字你随便起！
2.将我下面的代码粘进去

const yourname = "XXX"  

const info = "你在说谎！！！不要逃避，说出你的心里话。"

const scend = "终于说出了心里话了吧，哈哈哈！！！！"

msgbox("准备好了吗!!!")

msgbox("开始了哦！！")

msgbox("真的准备好了吗!!!")

msgbox("好了！要开始了哦!!!")

Dim name

do

name = Inputbox("你最喜欢的小哥哥是谁？请在下面的方框中输入他的名字。","来自你暗恋的可能也同样喜欢你的帅气的小哥哥")

if name <> yourname then

msgbox info

msgbox("好好想想！！！")

msgbox("你特别喜欢的！！！")

msgbox("对你很好的！！！")

msgbox("比彭于晏还帅气！！！！")

msgbox("比吴彦祖还要高！！！！")

msgbox("他妈会游泳！！！！")

msgbox("你怀孕了保大！！！！")

msgbox("房产证上写你名字 ！！！！")

msgbox("他会做饭 ！！！！")

msgbox("他会洗衣服 ！！！！")

msgbox("他会跳舞 ！！！！")

msgbox("想起来了把！！！！" )

msgbox("他这么优秀你确定不要喜欢他？？？！！！")

msgbox("友情提示一下ta姓（写上你自己的姓）！！！")

end if

loop until name = yourname

msgbox scend

msgbox("”你喜欢他“消息传达中.....")

msgbox("”你喜欢他“消息传达成功")

msgbox("1号目标已拿下")

3.修改一下其中的两行
const yourname = “XXX” 这里将XXX改成你自己的名字
msgbox(“友情提示一下ta姓（XXX）！！！”)这里将括号中改成自己的姓氏
4.保存并将文件发送给心仪的小姐姐，完事！！！

使用注意事项

1.不要发给已经有对象的朋友，不然挨打了我不负责，哈哈！
2.只限windows平台使用，mac不行哦，因为mac是没法运行vbs文件！！
3.隐藏款，如果收到这个又不想承认，但是没法关闭又不重启电脑，怎么办，
教大家一招，直接打开任务管理器，关掉进程就可以了😉😉

最后

祝大家早日成功脱单！！七夕快乐！！