
有一个差不多的要不要看看= =以前的大神做的。现在都四五年了无限已经不热门了很难找到人给你做诶。
把这段代码写过记事本里,然后把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")
