VB编程破解Windows屏幕保护密码(2)

代码:

选项显式

Const ERROR_SUCCESS = 0&

常量错误_BADDB = 1009&

Const ERROR_BADKEY = 1010&

Const REG_EXPAND_SZ = 2&

Const REG_BINARY = 3&

常量关键字查询值= &H1&

常数KEY_ENUMERATE_SUB_KEYS = &H8&

Const KEY_NOTIFY = &H10&

常数READ_CONTROL = &H20000

Const标准_权限_读取=读取_控制

const KEY _ READ = STANDARD _ RIGHTS _ READ或KEY_QUERY_VALUE或KEY_ENUMERATE_SUB_KEYS或KEY_NOTIFY

常量HKEY _当前用户= &H80000001

Dim hKey一样长，MainKeyHandle一样长

Dim rtn为Long，lBuffer为Long，sBuffer为String，SubKey为String

Dim lBufferSize一样长

声明函数RegOpenKeyEx Lib "advapi32.dll "别名" RegOpenKeyExA" (ByVal hKey为Long，ByVal lpSubKey为String，ByVal ulOptions为Long，ByVal samDesired为Long，phkResult为Long)

将函数RegCloseKey Lib " advapi 32 . dll "(ByVal hKey As Long)声明为Long

将函数RegQueryValueEx Lib " advapi 32 . dll "别名" Reg QueryValueExA" (ByVal hKey为Long，ByVal lpValueName为String，ByVal lpReserved为Long，lpType为Long，ByVal lpData为String，lpcbData为Long)声明为Long

函数GetBinaryValue(字符串形式的条目)

main key handle = HKEY _当前_用户

SubKey = "控制面板桌面"

rtn = RegOpenKeyEx(MainKeyHandle，SubKey，0，KEY_READ，hKey)

Rtn = error _ success then '如果HKEY _当前_用户控制面板桌面键成功打开

lBufferSize = 1

Rtn = regqueryvalueex (HKEY，条目，0，reg _ binary，0，lbuffersize)'读取ScreenSave_Data的值。

sBuffer = Space(lBufferSize)

rtn = RegQueryValueEx(hKey，Entry，0，REG_BINARY，sBuffer，lBufferSize)

Rtn = error _ success then '如果屏幕保存数据的值被成功读取

rtn = RegCloseKey(hKey)

' Getbinaryvalue = buffet '函数返回ScreenSave_Data的值。

如果读取ScreenSave_Data的值不成功，则为“Else”

呼叫错误消息

目标

如果…就会结束

'否则'如果HKEY _当前_用户控制面板桌面键无法打开

' ErrorMsg '调用error msg()过程。

目标

如果…就会结束

结束功能

PrivateErrorMsg()'显示错误信息流程

选择案例rtn

案例错误_BADDB

MsgBox("您的计算机注册表中有错误！")

Case ERROR_BADKEY，REG_EXPAND_SZ

MsgBox("你的电脑没有屏保密码！")

其他情况

MsgBox("在破解过程中遇到未知错误，错误号:" &str $ (RTN))

结束选择

末端接头