分享一个撩妹神器。

这是一个在某音看到的一段vb程序代码，我将它抄了下来，结果运行出错，后来查资料改了几行代码，现在可以运行了，还有个瑕疵就是没有设置变化的倒计时，具体代码如下：桌面新建一个txt文件，复制以下代码进去保存，然后将文件后缀改为vbs,再保存，双击运行就能看到效果！！！输入“我要做你女朋友”程序结束。

Option Explicit
On Error Resume Next
Dim answer
Dim WshShell
set WshShell = CreateObject(WScript.Shell)
WshShell.Run "Shutdown -s -t 60 /c 输入'我要做你女朋友',否则60秒后关机",0
Do While answer<>"我要做你女朋友"
answer=InputBox("输入'我要做你女朋友',否则60秒后关机","哈哈哈",,7000,5000)
Loop
WshShell.Run "Shutdown -a",0
MsgBox "哈哈哈,我就在你对面",,"我爱你"