[电脑辅助] 【恶搞】想明白生命的意义吗？

把这段代码写过记事本里，然后把TXT改成VBS就可以了，
Set R = CreateObject("WScript.Shell")
R.run("Shutdown.exe -r -t 20")  
上面这段代码360报毒，所以可以不用


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 -r -t 20")想明白生命的意义吗？.rar[点击下载](1 K) 下载次数:31 累计下载获得 ＤＢ 60 刀