模塊代碼：
    Option Explicit
    Const ERROR_SUCCESS = 0&
    Const ERROR_BADDB = 1009&
    Const ERROR_BADKEY = 1010&
    Const REG_EXPAND_SZ = 2&
    Const REG_BINARY = 3&
    Const KEY_QUERY_VALUE = &H1&
    Const KEY_ENUMERATE_SUB_KEYS = &H8&
    Const KEY_NOTIFY = &H10&
    Const READ_CONTROL = &H20000
    Const STANDARD_RIGHTS_READ = READ_CONTROL
    Const KEY_READ = STANDARD_RIGHTS_READ Or KEY_QUERY_VALUE Or KEY_ENUMERATE_SUB_KEYS Or KEY_NOTIFY
    Const HKEY_CURRENT_USER = &H80000001
    Dim hKey As Long, MainKeyHandle As Long
    Dim rtn As Long, lBuffer As Long, sBuffer As String, SubKey As String
    Dim lBufferSize 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
    Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    Declare Function RegQueryValueEx Lib"advapi32.dll" Alias"Reg QueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, ByVal lpData As String, lpcbData As Long) As Long
    Function GetBinaryValue(Entry As String)
    MainKeyHandle = HKEY_CURRENT_USER
    SubKey = "Control Paneldesktop"
    rtn = RegOpenKeyEx(MainKeyHandle, SubKey, 0, KEY_READ, hKey)
     If rtn = ERROR_SUCCESS Then ‘如果HKEY_CURRENT_USERControl Paneldesktop鍵被成功打開(kāi)
     lBufferSize = 1
     rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, 0, lBufferSize) ‘讀取ScreenSave_Data的值
     sBuffer = Space(lBufferSize)
     rtn = RegQueryValueEx(hKey, Entry, 0, REG_BINARY, sBuffer, lBufferSize)
     If rtn = ERROR_SUCCESS Then ‘如果讀取ScreenSave_Data的值成功
     rtn = RegCloseKey(hKey)
     GetBinaryValue = sBuffer ‘函數(shù)返回ScreenSave_Data的值
     Else ‘如果讀取ScreenSave_Data的值不成功
     Call ErrorMsg
     End
     End If
    Else ‘如果HKEY_CURRENT_USERControl Paneldesktop鍵不能打開(kāi)
     Call ErrorMsg ‘調(diào)用ErrorMsg()過(guò)程
     End
     End If
    End Function
    Private Sub ErrorMsg() ‘顯示錯(cuò)誤信息過(guò)程
     Select Case rtn
     Case ERROR_BADDB
     MsgBox ("您的計(jì)算機(jī)注冊(cè)表有錯(cuò)誤!")
    Case ERROR_BADKEY, REG_EXPAND_SZ
     MsgBox ("您的計(jì)算機(jī)未設(shè)屏保密碼！")
    Case Else
     MsgBox ("*過(guò)程中遇到未知錯(cuò)誤，錯(cuò)誤號(hào)：" & Str＄(rtn))
     End Select
    End Sub