分享一个撩妹神器。

这是一个在某音看到的一段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 "哈哈哈,我就在你对面",,"我爱你"