Question

出现了Microsoft VBScript 编译器错误 怎么办

Dim A
Set A=CreateObject("WScript.Shell")
A.RegDelete"HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File
Execution Options\QQ.exe\Debugger"
A.SendKeys"{F5}+{F10}e"
Set A=Nothing
WScript.Quit(0)

到底哪里错了

Answer 1

这样就可以了：

'═════代═══码═══开═══始═════
Dim A
Set A=CreateObject("WScript.Shell")
A.RegDelete "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\QQ.exe\Debugger\"
A.SendKeys"{F5}+{F10}e"
Set A=Nothing
WScript.Quit(0)
'═════代═══码═══结═══束═════

你的代码中多了个换行符号，注册表路径中末尾还少了个斜杠。

我也曾经用过这种方法劫持过qq。

Answer 2

命令后面都没空格吗？A.RegDelete 后面是不是应该跟着一个空格