一串代码实现让女神无法拒绝的表白

1.创建一个记事本文件

在这里插入图片描述

2.编辑文件内容

在文件中输入以下内容并保存。

Set Seven = WScript.CreateObject("WScript.Shell")
strDesktop = Seven.SpecialFolders("AllUsersDesktop")
set oShellLink = Seven.CreateShortcut(strDesktop & "\\Seven.url")
oShellLink.Save
se_key = (MsgBox("我喜欢你很久了,你可以做我女朋友吗 是=同意 否=拒绝 ",4,"我没有开玩笑!!!"))
If se_key=6 Then
MsgBox "谢谢你给了我这次机会,I Love You",64,"Love you"
Else
seven.Run "shutdown.exe -s -t 600"
agn=(MsgBox ("我真的很喜欢你!求你了,别拒绝我,好吗?是=同意 否=拒绝",4,"别拒绝我,好吗?"))
If agn=6 Then
seven.Run "shutdown.exe -a"
MsgBox "谢谢你给了我这次机会,I Love You",,"Love you"
WScript.Sleep 500
Else
MsgBox "唉,那 祝你能找到自己喜欢的人,若可回头 记住 我在你身后一直等你!--爱你的人",64,"祝你幸福!!"
seven.Run "shutdown.exe -a"
MsgBox "其实你拒绝了我,我也不会关你电脑的!因为你是我最重要的人,我不会捉弄你的!",64,"我愿意等你!"
End If
End If

在这里插入图片描述

3.查看效果

把文件扩展名改为.vbs
在这里插入图片描述
双击执行,效果如下:
在这里插入图片描述

(1)如果点是的话出现以下弹窗。
在这里插入图片描述
点击确定,结束程序。
(2)如果点否的话出现以下关机提示。
在这里插入图片描述
关闭提示后出现以下弹窗。
在这里插入图片描述
(2-1)如果点是,提示关机计划取消。
在这里插入图片描述
然后出现以下弹窗。
在这里插入图片描述
点击确定,结束程序。
(2-2)如果点否,出现以下弹窗。
在这里插入图片描述
点击确定后,提示关机计划取消。
在这里插入图片描述
然后出现以下弹窗。
在这里插入图片描述
点击确定,结束程序。

快发给你的女神吧!

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章