关于用VB修改注册表的问题 有一份程序请帮忙看看!!!!!!!

Question

隐藏开始菜单中的”注销”选项   在XP系统中
Option Explicit
 Const REG_DWORD As Long = 4
 Const REG_DWORD_BIG_ENDIAN As Long = 5 Const HKEY_LOCAL_MACHINE = &H80000002
 Const HKEY_USERS = &H80000003
 
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As LongPrivate Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" _
    (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" _
    (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, _
    ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongPrivate Sub Command1_Click()
  Dim hKey As Long
  RegCreateKey HKEY_LOCAL_MACHINE, _
  ".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey
  Dim L As Long
  L = 1
  RegSetValueEx hKey, "NoLogOff", 1, REG_DWORD, L, 4
  MsgBox "已去掉开始菜单中的注销! "
  RegCloseKey hKey
End SubPrivate Sub Command2_Click()
  Dim hKey As Long
  RegCreateKey HKEY_LOCAL_MACHINE, _
  ".DEFAULT\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", hKey
  Dim L As Long
  L = 0
  RegSetValueEx hKey, "NoLogOff", 0, REG_DWORD, L, 4
  MsgBox "已恢复开始菜单中的注销!！"
  RegCloseKey hKey
End SubPrivate Sub Command3_Click()
  End
End Sub

Answer 1

以上的程序不能达到效果!!!!1