模块代码:
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键被成功打开
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 ‘函数返回ScreenSave_Data的值
Else ‘如果读取ScreenSave_Data的值不成功
Call ErrorMsg
End
End If
Else ‘如果HKEY_CURRENT_USERControl Paneldesktop键不能打开
Call ErrorMsg ‘调用ErrorMsg()过程
End
End If
End Function
Private Sub ErrorMsg() ‘显示错误信息过程
Select Case rtn
Case ERROR_BADDB
MsgBox ("您的计算机注册表有错误!")
Case ERROR_BADKEY, REG_EXPAND_SZ
MsgBox ("您的计算机未设屏保密码!")
Case Else
MsgBox ("破解过程中遇到未知错误,错误号:" &. Str$(rtn))
End Select
End Sub
相关文章
北京安通学校2006年GCT数学辅导资料(12)
计算机等级考试技巧全攻略
让VFP表单卸载时显示确认对话框
北京安通学校2006年GCT数学辅导资料(11)
VB编程破解Windows屏幕保护密码(2)
编辑VFP选单常见问题的解决方法
C 中的虚函数(virtualfunction)
VB编程破解Windows屏幕保护密码(1)
职称英语理工类C级学习-词汇汇总
澳大利亚华人论坛
考好网
日本华人论坛
华人移民留学论坛
英国华人论坛