主神空间邀请函

想明白生命的意义吗?
想真正的……活着吗?

新建文本文档，复制以下代码后保存，修改其后缀名为.vbs后双击运行即可打开邀请函。

MsgBox "想明白生命的意义吗?" & chr(10) & "想真正的……活着吗?",36,"主神空间即将传送"
Set ws=WScript.CreateObject("WScript.Shell")
wscript.sleep 300
ws.popup"主神空间传送失败，电脑即将自爆",10
ws.popup"还有10秒",10
wscript.sleep 5000
ws.popup"还有5秒",10
wscript.sleep 3000
ws.popup"还有2秒",10
wscript.sleep 2000
ws.popup"纳尼，竟然发生了这个事件",5
ws.popup"因为你极其2B，电脑无法自爆，主神即将发布评价",5
ws.popup"记事本会被打开并最大化，请不要进行任何操作，否则系统混乱主神概不负责"
ws.run "notepad",3 : wscript.sleep 200
verybat=split("Sorry, because, you, are, too, 2B, the, Lord, God, the, Lord, God, can, not, send, you, into, space, understanding , the, end, byebye, by, ZoNe, Ashen",",")
for each wind in verybat
ws.sendkeys wind
wscript.sleep 500
next
ws.popup"出错，出错，系统即将重启，重启后主神空间一切记忆清零",10
Set R = CreateObject("WScript.Shell")
R.run("Shutdown.exe -s -t 10")