情人節小惡作劇vbs腳本

把內容復制到txt文本中，將文本后綴改為vbs就OK了……

以下是腳本內容

Function MySleep(seconds)
wsv = WScript.Version
if wsv >= "5.1" then
WScript.Sleep( seconds*1000)
else
elapsed = TimeSerial(0,0,seconds)
startTime = Time()
endTime = TimeValue(startTime) + TimeValue(elapsed)
While endTime > Time()
'
Wend
end if
End Function

if msgbox("情人節就要來了，你是自己一個人過么？",vbyesno,"請選擇")=vbyes then
 msgbox "恭喜恭喜，獨身神馬的最歡樂了，大家組織個單身Party吧！"
else
 msgbox "那么，祝你情人節快樂……"
end if
MySleep(100)
if msgbox("你對生活失去信心了嗎？"&chr(10)&"想明白生命的意義嗎？想真正的......活着嗎？",vbyesno,"請選擇，你會找到生命的意義")=vbyes then
msgbox "請稍等，即將帶你進入主神的世界......"
else
msgbox "宿主拒絕，即將進入毀滅模式……"
end if

嘿嘿，等待100秒之后，無限恐怖的大門向你打開……

實在對不住大家，這是第一次寫VB的小腳本，本來還想讓看起來更好看一些，把那個then放到下面了，結果沒想到出現了這種問題，實在對不住了哈~~~

這個惡作劇，呃，怎么說呢，看過無限類小說的人會比較有感覺吧~~另外，代碼開給你們，當然沒感覺了啊，

要是對於有的不知道點編輯的呢？只會雙擊的人呢？

在他們遺忘的時候，無限恐怖的彈窗出現了……這是惡作劇的本意……大家想得那種太暴力的，我……