情人节小恶作剧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放到下面了，结果没想到出现了这种问题，实在对不住了哈~~~

这个恶作剧，呃，怎么说呢，看过无限类小说的人会比较有感觉吧~~另外，代码开给你们，当然没感觉了啊，

要是对于有的不知道点编辑的呢？只会双击的人呢？

在他们遗忘的时候，无限恐怖的弹窗出现了……这是恶作剧的本意……大家想得那种太暴力的，我……