哈哈,经过认真的检查,我发现11楼代码的问题所在了,可能是HAT老大故意弄的吧,试试下面的看看?
Dim WSHShell
Set WSHShell =CreateObject("WScript.Shell")
WSHShell.RegWrite
"HKCU\SOFTWARE\Microsoft\windows\currentversion\policies\system\disableregistrytools"
,0, "REG_DWORD"
他把CreateObject的"O"(字母)改成了"0"(数字),唉,也有这样玩人的...
Haha, after careful inspection, I found the problem with the code on floor 11. Maybe it was deliberately done by Boss HAT? Let's try the following?
Dim WSHShell
Set WSHShell =CreateObject("WScript.Shell")
WSHShell.RegWrite
"HKCU\SOFTWARE\Microsoft\windows\currentversion\policies\system\disableregistrytools"
,0, "REG_DWORD"
He changed the "O" (letter) in CreateObject to "0" (number). Oh, there are people playing like this...