一串代碼實現讓女神無法拒絕的表白

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)如果點否，出現以下彈窗。

點擊確定後，提示關機計劃取消。

然後出現以下彈窗。

點擊確定，結束程序。

快發給你的女神吧！