計(jì)算機(jī)二級(jí)VisualBasic輔導(dǎo):控制網(wǎng)頁(yè)的FORMS行為

字號(hào):

在注冊(cè)表中主要操作5個(gè)鍵值:
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableLockWorkStation -> 禁用 '鎖定計(jì)算機(jī)'按鈕
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr-> 禁用 '任務(wù)管理器'按鈕
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableChangePassword-> 禁用 '更改密碼'按鈕
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoLogoff -> 禁用 '注銷' 按鈕
    HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer\NoClose-> 禁用 '關(guān)機(jī)' 按鈕
    ===============================================================
    '**注冊(cè)表操作聲明
    ===============================================================
    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 Long
    Declare Function RegCloseKey Lib "advapi32.dll" _
    (ByVal HKey As Long) _
    As Long
    Declare Function RegCreateKey Lib "advapi32.dll" _
    Alias "RegCreateKeyA" _
    (ByVal HKey As Long, _
    ByVal lpSubKey As String, _
    phkResult As Long) _
    As Long
    Declare Function RegOpenKeyEx Lib "advapi32.dll" _
    Alias "RegOpenKeyExA" _
    (ByVal HKey As Long, _
    ByVal lpSubKey As String, _
    ByVal ulOptions As Long, _
    ByVal samDesired As Long, _
    phkResult As Long) _
    As Long
    Enum regKey
    Logoff = 0
    Shutdown = 1
    ChangePassword = 2
    TaskMgr = 3
    LockWorkstation = 4
    End Enum