vb 读取注册表值问题

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:21:21
判断下面注册表的值是0, command1就是变成灰色
[HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System]
"DisableCMD"=dword:00000000
判断下面注册表的值是2, command2就是变成灰色
[HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System]
"DisableCMD"=dword:00000002

Dim WSH, Key1
Set WSH = CreateObject("WSCRIPT.SHELL")
Key1 = WSH.RegRead("HKEY_CURRENT_USER\Software\Policies\Microsoft\Windows\System\DisableCMD")
If Key1 = 0 Then
Command1.Enabled = False
ElseIf Key1 = 2 Then
Command2.Enabled = False
End If

Set WSH = Nothing

split