分享一個撩妹神器。

這是一個在某音看到的一段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 "哈哈哈,我就在你對面",,"我愛你"