无限恐怖邀请函怎么说的

无限恐怖邀请函怎么说的

有一个差不多的要不要看看= =以前的大神做的。现在都四五年了无限已经不热门了很难找到人给你做诶。

把这段代码写过记事本里,然后把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")