vbs无法拒绝的表白代码

我已经做好了两个可执行文件，直接qq或者微信发给她就可以了。可以去我的资源下载—>>>表白套路可执行程序

QQ发给她的效果（微信也可以发哦）：

代码1效果：

代码1效果视频展示

代码2效果：

不同意的话，会关闭他的电脑。（当然是套路一波，后面会取消注销计划的。）

同意的话，会自动打开记事本，自动写上我也爱你。

代码2效果视频展示

代码1：

msgbox “做我女朋友好吗”,vbQuestion,“在吗”

msgbox (“房产写你名字”)

msgbox (“保大”)

msgbox (“我妈会游泳”)

dim j

do while j<1

Select Case msgbox(“做我女朋友好吗”,68,“请郑重的回答我”)

Case 6 j=1

Case 7 msgbox(“再给你一次机会”)

end Select

loop

msgbox(“我就知道你会同意的，哈哈哈哈”)

电脑桌面上新建一个txt文本，代码复制进去后需要修改编码格式（文件>另存为>编码改为ANSI），然后保存。

再右击这个txt文本，重命名文件后缀为vbs。（变成下图这样）