一个恶搞vbs脚本

这期小编就不讲解了，直接上代码：

Msgbox "Windows安全中心无法正常启动",48,"系统错误"
Msgbox "Windows资源管理器无法正常启动",48,"系统错误"
Msgbox "系统中断无法正常启动",48,"系统错误"
Msgbox "命令提示符无法正常启动",48,"系统错误"
Msgbox "系统终端无法正常启动",48,"系统错误"
WScript.sleep 10000
Msgbox "发现中华黑豹木马，Windows正在后台紧急处理，请不要关闭计算机",48,"Windows安全中心"
WScript.sleep 10000
do
Msgbox "系统致命性错误",48,"Windows资源管理器"
Dim msg, sapi
msg="请注意，请立刻注意，您的电脑中了病毒，该病毒不仅格式化了您的所有盘符，还在您的电脑上植入了中华黑豹木马，目前确定数据已经丢失，我非常抱歉"
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
WScript.sleep 5000
loop

自己运行看结果吧，再见！