求VB键盘监控代码_百度知道
求VB键盘监控代码
求一简单键盘监控VB代码要实现以下简单的功能：当监控到键盘按住F不放，且时间超过两秒则运行d:/1.exe最好要全局监控，求完整代码，谢谢！
提问者采纳
需要键盘钩子吗?要是在当前程序中运行就用鼠标向下事件+记时器就行了.晚安!
不懂？我是小白，求代码
提问者评价
其他类似问题
为您推荐：
您可能关注的推广回答者：
键盘的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VB下的CRC校验程序
随着计算机技术的不断发展，在现代工业中，利用微机进行数据通讯的工业控制
应用得也越来越广泛。
由于传输距离、现场状况等诸多可能出现的因素影响，计算机与受控设备之间的
通讯数据常会发生无法预测的错误。为了防止错误所带来的影响，一般在通讯时
采取数据校验的办法，而循环冗余码校验是最常用的校验方法之一。在实际使用
的各种现场总线协议中，数据帧的校验一般都采用这种检验方式。
一、 循环冗余码校验原理
　　循环冗余码校验英文名称为Cyclical Redundancy Check，简称CRC。它是利
用除法及余数的原理来作错误侦测（Error Detecting）的。他将要发送的数据比
特序列当作一个多项式f(x)的系数，发送时用双方预先约定的生成多项式G(x)去
除，求得一个余数多项式，将余数多项式加到数据多项式之后发送到接收端，接
收端同样用G(x)去除接收到的数据，进行计算，然后把计算结果和实际接收到的
余数多项式数据进行比较，相同的话表示传输正确。CRC校验检错能力强，容易实
现，是目前应用最广的检错码编码方式之一。
在国际标准中，根据生成多项式G(x)的不同，CRC又可分为以下几种标准：
　　①CRC-12码: G(x)=X12+X11+X3+X2+X+1
　　②CRC-16码: G(x)=X16+X15+X2+1
　　③CRC-CCITT码: G(x)=X16+X12+X5+1
　　④CRC-32码: G(x)
=X32+X26+X23+X22+X16+X12+X11+X10+X8+X7+X5+X4+X2+X1+X+1
　　CRC-12码通常用来传送6-bit字符串。CRC-16及CRC-CCITT码则用是来传送8-
bit字符，其中CRC-16为美国采用，而CRC -CCITT为欧洲国家所采用。CRC-32码大
都被采用在一种称为Point-to-Point的同步传输中。下面以最常用的CRC-16为例
来说明其生成过程。
　　CRC-16码由两个字节构成，在开始时CRC寄存器的每一位都预置为1，然后把
CRC寄存器与8-bit的数据进行异或，之后对 CRC寄存器从高到低进行移位，在最
高位（MSB）的位置补零，而最低位（LSB，移位后已经被移出CRC寄存器）如果为
1，则把寄存器与预定义的多项式码进行异或，否则如果LSB为零，则无需进行异
或。重复上述的由高至低的移位8次，第一个8-bit数据处理完毕，用此时CRC寄存
器的值与下一个8- bit数据异或并进行如前一个数据似的8次移位。所有的字符处
理完成后CRC寄存器内的值即为最终的CRC值。
　　下面为CRC的计算过程：
　　1．设置CRC寄存器，并给其赋值FFFF(hex)。
　　2．将数据的第一个8-bit字符与16位CRC寄存器的低8位进行异或，并把结果
存入CRC寄存器。
　　3．CRC寄存器向右移一位，MSB补零，移出并检查LSB。
　　4．如果LSB为0，重复第三步；若LSB为1，CRC寄存器与多项式码相异或。
　　5．重复第3与第4步直到8次移位全部完成。此时一个8-bit数据处理完毕。
　　6．重复第2至第5步直到所有数据全部处理完成。
　　7．最终CRC寄存器的内容即为CRC值。
二、 循环冗余码校验程序的编写
　　明白了CRC校验码的产生过程，编写起程序来就非常容易了。由于Visual
Basic的广泛普及以及其在数据通讯中的重要地位，下面就以VB语言来编写CRC的
生成程序，其它语言只需稍做修改即可。
　　编写CRC校验程序有两种办法：一种为计算法，一种为查表法。通常使用查表
法，尤其在VB程序中，可以大大降低CPU的运算时间。下面对两种方法分别讨论。
　　1．计算法
　　计算法就是依据CRC校验码的产生原理来设计程序。其优点是模块代码少，修
改灵活，可移植性好。其缺点为计算量大。为了便于理解，这里假定了三位数据
，而多项式码为A001(hex)。
　　在窗体上放置一命令按钮Command1，并添加如下代码：
　　Private Sub Command1_Click()
　　　Dim CRC() As Byte
　　　Dim d() As Byte '待传输数据
　　　ReDim d(2) As Byte
　　　d(0) = 123
　　　d(1) = 112
　　　d(2) = 135
　　　CRC = CRC16(d) '调用CRC16计算函数
　　　'CRC(0)为高位
　　　'CRC(1)为低位
　　End Sub
　　注意：在数据传输时CRC的低位可能在前，而高位在后。
　　Function CRC16(data() As Byte) As String
　　　Dim CRC16Lo As Byte, CRC16Hi As Byte　　　'CRC寄存器
　　　Dim CL As Byte, CH As Byte　　　　　　　　'多项式码&HA001
　　　Dim SaveHi As Byte, SaveLo As Byte
　　　Dim i As Integer
　　　Dim Flag As Integer
　　　CRC16Lo = &HFF
　　　CRC16Hi = &HFF
　　　CL = &H1
　　　CH = &HA0
　　　For i = 0 To UBound(data)
　　　　CRC16Lo = CRC16Lo Xor data(i) '每一个数据与CRC寄存器进行异或
　　　　For Flag = 0 To 7
　　　　　SaveHi = CRC16Hi
　　　　　SaveLo = CRC16Lo
　　　　　CRC16Hi = CRC16Hi \ 2　　　　　　'高位右移一位
　　　　　CRC16Lo = CRC16Lo \ 2　　　　　　'低位右移一位
　　　　　If ((SaveHi And &H1) = &H1) Then '如果高位字节最后一位为1
　　　　　　CRC16Lo = CRC16Lo Or &H80　　　'则低位字节右移后前面补1
　　　　　End If　　　　　　　　　　　　　 '否则自动补0
　　　　　If ((SaveLo And &H1) = &H1) Then '如果LSB为1，则与多项式码进
　　　　　　CRC16Hi = CRC16Hi Xor CH
　　　　　　CRC16Lo = CRC16Lo Xor CL
　　　　　End If
　　　　Next Flag
　　　Next i
　　　Dim ReturnData(1) As Byte
　　　ReturnData(0) = CRC16Hi　　　　　　　'CRC高位
　　　ReturnData(1) = CRC16Lo　　　　　　　'CRC低位
　　　CRC16 = ReturnData
　　End Function
　　2．查表法
　　查表法的优缺点与计算法的正好相反。为了便于比较，这里所有的假定与计
标签(Tag):
------分隔线----------------------------
------分隔线----------------------------提示信息 -
VB梦工厂 -
Visual Basic6.0 VB梦工厂
后使用快捷导航没有帐号？
Visual Basic 6.0
仅限用QQ号直接登录^^
&下次自动登录登录点此用QQ号登陆：Record 用VB.NET编写的一个小程序，可以监控桌面和键盘记录。
238万源代码下载-
&文件名称: Record
& & & & &&]
&&所属分类:
&&开发工具: Visual Basic
&&文件大小: 725 KB
&&上传时间:
&&下载次数: 32
&&提 供 者:
&详细说明：用VB.NET编写的一个小程序，可以监控桌面和键盘记录。-Using a small program written in VB.NET, you can monitor the desktop and keyloggers.
文件列表(日期：~)(点击判断是否您需要的文件，如果是垃圾请在下面评价投诉):
&&Record&&......\Track Record&&&&......\............\bin&&......\............\...\Debug&&......\............\...\.....\Config.ini&&......\............\...\.....\Track Record.exe&&......\............\...\.....\Track Record.pdb&&......\............\...\.....\Track Record.vshost.exe&&......\............\...\.....\Track Record.xml&&......\............\...\Release&&......\............\...\.......\Track Record.exe&&......\............\...\.......\Track Record.pdb&&......\............\...\.......\Track Record.xml&&......\............\My Project&&......\............\..........\&&......\............\..........\&&......\............\..........\&&......\............\..........\&&......\............\..........\&&......\............\..........\&&......\............\..........\&&......\............\obj&&......\............\...\Debug&&......\............\...\.....\Config.ini&&......\............\...\.....\Record.vbproj.GenerateResource.Cache&&......\............\...\.....\TempPE&&......\............\...\.....\......\My Project.Resources.Designer.vb.dll&&......\............\...\.....\Track Record.exe&&......\............\...\.....\Track Record.pdb&&......\............\...\.....\Track Record.vbproj.GenerateResource.Cache&&......\............\...\.....\Track Record.xml&&......\............\...\.....\Track_Record.Form1.resources&&......\............\...\.....\Track_Record.Record.resources&&......\............\...\.....\Track_Record.Resources.resources&&......\............\...\Record.vbproj.FileListAbsolute.txt&&......\............\...\Release&&......\............\...\.......\Record.vbproj.GenerateResource.Cache&&......\............\...\.......\TempPE&&......\............\...\.......\......\My Project.Resources.Designer.vb.dll&&......\............\...\.......\Track Record.exe&&......\............\...\.......\Track Record.pdb&&......\............\...\.......\Track Record.vbproj.GenerateResource.Cache&&......\............\...\.......\Track Record.xml&&......\............\...\.......\Track_Record.Form1.resources&&......\............\...\.......\Track_Record.Record.resources&&......\............\...\.......\Track_Record.Resources.resources&&......\............\...\Track Record.vbproj.FileListAbsolute.txt&&......\............\&&......\............\Record.resx&&......\............\&&......\............\Record.vbproj&&......\Track Record.sln
&近期下载过的用户:
&相关搜索:
&输入关键字，在本站238万海量源码库中尽情搜索：
&[] - 驱动级键盘记录器与安全密码框，过QQ密码框，一种古老的键盘记录器技术，确实很古老，DOS时代人们就在用了，但是现在它仍然很有效，在键盘过滤驱动失效的情况下，它仍然可用。
&[] - VB键盘记录全集.....学习编程的可以下载做参考资料、
&[] - c++实现直接访问键盘控制芯片获取键盘记录有效记录支付宝，QQ，财付通等密码
&[] - 监控系统中剪贴板事件的控件，包括源程序和范例。
&[] - 使用vb.net录音，WM6.0平台使用
&[] - 用VB.NET编写的键盘钩子程序。大家一定很想使用吧。通过API调用来实现的。
&[] - VB键盘记录全集.....学习编程的可以下载做参考资料、
&[] - Linux 2.6 内核键盘记录工具 十分好用，强烈推荐
&[] - vb写的键盘纪录,简单，界面不错。对有兴趣的人可以参考一下。----vb写的键盘记录----。
&[] - Fearless KeySpy v2.0
FKS是一个非常小的（2.5K）的键盘记录器，当记录到一定大小时可以上传到指定的FTP服务顺上。
记录文件名如下：
Vic1_03_24_23_FKS20（用写字板打开）
记录格式如下：
[& Undetected.txt - 记事本 &lt