说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

VB如何过滤键盘录入

HTML文档下载 WORD文档下载 PDF文档下载
VB如何过滤键盘录入
在 VB 的应用得到以前就处理键盘动作, 实现对键盘的全面控制, 可过滤任意的键。 下面的例子过滤了 CTRL+C 键, 并把该键模拟为在 Command1 上单击。
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
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 PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Public Const WH_KEYBOARD = 2
Public Const KBH_MASK = &H20000000
Public Const WM_LBUTTONDOWN = &H201
Public Const WM_LBUTTONUP = &H202
Global hHook As Long
'KeyboardProc 在 VB 应用动作前发生
Public Function KeyboardProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If nCode >= 0 Then
'处理你希望过滤的键
If wParam = Asc("C") And (lParam And KBH_MASK) <> 0 Then
If (lParam And &HC0000000) = 0 Then
'模拟在Command1 中单击
Form1.Command1.SetFocus
Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONDOWN, 0, &H20002)
Call PostMessage(Form1.Command1.hwnd, WM_LBUTTONUP, 0, &H20002)
KeyboardProc = 1
Exit Function
End If
End If
End If
KeyboardProc = CallNextHookEx(hHook, nCode, wParam, lParam)
End Function
 
Private Sub Form_Load()
'将 KeyboardProc 连接到中断上
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, 0&, App.ThreadID)
End Sub
Private Sub Form_Unload(Cancel As Integer)
Call UnhookWindowsHookEx(hHook)
End Sub



盘点黑客攻击途径:最常用的7个策略及简单的防护方法 专访AngularJS框架创始人Misko Hevery:让Web开发更便捷 果粉的又一个节日:新iPad或于10月22日发布 新车间李大维:到集装箱里来看创客嘉年华 亚马逊推“登录与支付”功能 直接冲击PayPal Google编程之夏新里程碑:5000万行源代码 8500名学生开发者 非常实用的15款开源PHP类库 Runnable:一站式代码片段服务平台,打造编程界的YouTube 谷歌向所有开发者开放Google App Engine PHP Runtime “沟通”电子表格和矢量图形的“桥梁”:在线可视化工具Raw Facebook北极圈数据中心,Open Compute Project的力作! 最后三天!4折抢购2013移动开发者大会门票 电子书追踪统计,App Annie for eBooks上线 先驱还是模仿者?细数海外移动应用推广平台 IDC:PC出货量下滑终于放缓 联想销量再次第一 为什么说,用一块屏幕玩游戏是远远不够的? 编写代码?先熟悉一下编程语言界限吧! Spanner vs. F1:谷歌两大数据管理利器的整体对比及关联 移动设计需摒弃的几大PC应用设计方法 响应式导航设计案例解析(多图) 所见即所得:七大无需编程的DIY开发工具 前Google员工发布无痕搜索产品,阻老东家财路 VMware推出vCloud Suite及vSphere新版:可用性及性能双丰收 TIOBE 2013年10月编程语言排行榜:Groovy首次挤进Top 20 Cookie时代将结束:微软将开发跨PC、移动和Xbox跟踪技术 Web设计里需要避免的八大糟糕趋势 Groupon从ROR迁移至Node.js,响应速度大幅提升 腾讯云的Container实现 专为物联网打造的数据库TempoDB获得320万美元投资 MongoDB成为首位10亿美元初创,功臣可归功于Oracle? 程序员遇到Bug后的30种常见反应 ACCESS能够,为什么SQL SERVER却不能?? 怎样生成新窗口? 有一个按扭,点一下后运行别的exe文件,代码怎么编啊? 请教各位大虾,有关带串口的数码相机的咨询! 有一个按扭,点一下后运行别的exe文件,代码怎么编啊?另外,点一个按扭,使c;\file1的文件,拷贝到d;\file2 有rtlinux的RCS库开发经验的朋友们 100分呀,还有挑战性,一个有点难度的问题,再网格控间上如何添加事件!!! 回答问题有钱给...用ATL创建一个全局COM(只启动一个实例)供所有客户端使用 无助,真喜欢一位小姐(不是那个‘小姐’别误会)真太想知道她有没有男友了,请问有什么办法知道么? 我能过高程么 请教各位大侠,如何简单的实现游戏人物动作的控制? 自己开发了一个软件,用于写jsp是自动生成一些get set 以及连接数据库代码的 问个很简单的问题 简单的问题 假设一个C编程高手首次遇到“sinx=x-x^3/3!+x^5/5!-.....+(-1)^n*x^(2n+1)/(2n+1)!” 各位大虾有无用VC处理JPEG(JPG)图像文件格式的源代码? 谁发给我一张自考的学位证书,我的分全给他! BCB6的5张光盘内容?? system.data.sqlclient 和system.data.oledb 请问怎么抓IP包 各位VB数据库编程高手看看啊!有谁能解? 钩子! 您想学习Delphi 6新功能WebSnap吗?进来看看吧! 我想再了解一下实例和共享变量的有关问题? ICQ的非ICQ联系,怎么导入和导出? 谁告诉我如何使用java创建,分析,修改一个xml,给我例子 有关writeprocessmemory的问题,大侠请进 web service求教 dll调用的问题: 求学数表达式导数开形的算法? 有人会用ImageList吗?我不会也~~~ 有没有免费的ASP主页存放空间????(请各路高手指点) c++ 在数据库编程方面有什么优点? 怎么在ASP中不使用ODBC使SQL SERVER数据库与ASP文件相连? 100分求:pb7以上版本的电子书或资料下载地址(基础入门篇) vc.net能不能在XP下安装? vc.net可以在xp下安装吗? 关于view |Type Library窗口的问题! help!!!!!!!!! Please Help Me! Please Help Me! Please Help Me! Please Help Me! BORLAND才是真正的终结者????!!!! 如何模拟按回车??? 提示错误java.lang.AbstractMethodError,通常有哪些.... 如何实现交换机实现ip地址转换 Web修改留痕问题,给个连接也行? 关于system commander(以下简称sc)的问题~~急~~ 送100分题:如何改变GroupBox内控件的Color属性???? vc中怎样从操作系统获取HIDs的GUID intel cpu 4个数字含义如i3 3217U 能否解释一下这4个数字和后缀字母的代表意义.如果有参考网址那更加感激不尽! 什么时候形成电流时,正负电荷同事反向移动? 树脂胶粉配方分析胶粉配方分析,模仿生产 二氧化碳和氢气合成二甲醚的热化学方程式 影响城市空气质量的因素是A 自然因素 B 人为因素 C 自然因素为主 人为因素为辅 D 人为因素为主 自然因素为辅 说正确的选项再简单地说说理由 “树脂胶粉”的英文翻译请给出准确的翻译,谢谢.如能给出日文和德文的翻译,追加给分这个胶粉是应用于外墙腻子的. Intel 酷睿i7/i5/i3 (移动处理器) 型号后缀字母含义?Intel 酷睿i7/i5/i3(移动处理器)型号后缀字母“ XM,QM,UM,LM,M,UE,LE,E ”,分别表示什么含义?1.XMCore i7-940XM Extreme EditionCore i7-920XM Extreme Edition2.QMCore i 影响空气质量变化的因素有哪些?影响空气质量变化的都有哪些因素呢?这些因素又是如何影响空气质量的?比如说空气湿度,风速或者气温,地形,当然还有地面施工等等,是不是还有其它的因素? 树脂胶粉耐水性96h是什么意思 给店铺做发光字不知道吸塑发光字好还是树脂发光字好? 影响空气质量安全的因素有那些?一定要详细些呦~ 一定物质的量的送SO2与NaOH溶液反应生,所得溶液中含Na2SO3和NaHSO3的量之比为3:5,则参加反应的SO2与NaOH物质的量之比为________? 甲醚(CH3OCH3)是一种新型的合成“柴油”,它可由天然气(体积分数:CO2为5%,CH4为95%)合成.过程如下(气体体积均在同温同压下测定;氧气由空气提供,其中N2和O2的体积比为4:1;不考虑CO与水 影响居室空气质量的因素 SO2和NaOH反应时,产物是Na2SO3还是NaHSO3? 这都是人教版吗,怎么封面不一样?如果是一个版本,里面的内容一样吗 碳酸钠和碳酸氢钠都既能与盐酸又能和氢氧化钡反应吗?如果能请写出化学式及现象 电源外部电流的方向是从正极到负极,金属导线中是电子移动,所以电子由负极向正极移动去,负极失去电子带正电荷上述话中漏洞在哪? 八年级物理课本上册52页习题答案 纯碱与盐酸(胃酸)反应的化学式 用SO2与NaOH反应制取NaHSO3,在反应容器中加入品红,若褪色,则证明溶液中的NaOH完全转化成NaHSO3,原理是什么?SO2不是本来就能使品红褪色吗?这样不就对结果有干扰吗? 求人教版八年级物理上册第一单元练习题及答案 汽车防静电装饰天线鲨鱼鳍管用吗 NaOH+SO2=NaHSO3反应如何产生 笔记本intelCPU,型号后面的U,M,MQ,HQ,QM, 空气质量标准检测该找谁? cao和 h2o反应的方程式 intel处理器后面的xm om lm qm um 都是什么意思啊? 装鲨鱼鳍天线的问题不是豪华版,想装啥鱼鳍天线,但是害怕装的时候打孔对车有影响,不知道各位装过的有没有经验分享下啊, NaHO+H2O生成?CaO+H2O生成 学化学方程式 1、为什么电流方向与电子移动方向相反?为什么原电池外部离子是由正级移向负极,是指阳离子移向正级吗?阳离子的移动和电流有关吗?2、在由铝和镁、氢氧化钠构成的原电池当中 负极的反应 八年级下册人教版物理教科书有哪些实验!速求,PS:能告诉我在第几页就更好了. 高一化学出去SO2中混有的HCL气体,可选用的试剂是A石灰水B浓硫酸C饱和NAHSO3溶液 NA2SO3溶液那个》。打漏咧 D饱和 NA2SO3溶液 原电池中电子移动方向是怎么样的?是通过溶液到正极还是通过导线到正极? 硫酸和碳酸钠会反应吗?不是生成碳酸和硫酸钠吗,这时候为什么碳酸会变成二氧化碳和水? CAO和H2O多少度反应?如题. 什么动物被称为活化石 在原电池的实验中,电流计的偏转方向是和电子的流动方向一致还是和电流的一致? 鲨鱼鳍天线哪种好? intel处理器型号里面数字的意思?例如:Intel® Core™ i5-3230M 3230:3是表示第三代吧?2 3 0又表示啥呢? 到哪下载人教版八年级下册的物理电子课本啊 碳酸钠与稀硫酸反应为什么不生成H2CO3,而生成水和二氧化碳 intel处理器型号中的E,P,T,G分别是什么含义? 最新的人教版八年级下册物理课本封面是哪里? 鲨鱼鳍天线有什么用 NaHCO3为什么和足量so2会生成NaHSO3和co2.NaHCO3而和不足量SO2生成NaSO3和CO2和H2O?希望有写该方程式的思想方法 人教版八年级下册物理课本课后作业答案 550鲨鱼鳍天线怎么装? 室温下,向一定质量的氯化钠溶液中加入10g氯化钠固体,充分搅拌后,尚有部分未溶解,加入10g水后,固体全A加入水前可能是饱和溶液.B加水前一定是饱和溶液.C加水后一定是饱和溶液.D加水后一定 CPU后面所带字母都表示什么含义?比如:X,K,Q,U,S,T;还有就是CPU前面所带字母又是什么意思,比如:G860,B851,T3500,M734,U3400这些G,B,T,M,U都表达什么含义?前面不带字母的又是什么意思呢?i5 4700?求解答? 人教版物理教科书八年级上是否改版? 向100g10%的氯化钠溶液中再加入10g水所得溶液中溶质质量分数 手机cpu上的字母是什么意思 如图所示,下列说法正确的是A.灯泡发光说明电路中有电流B.金属导线中发生定向移动的电荷是正电荷C.电源的上端是正极D.灯泡发光时,电源将电能转化为化学能 93汽油能用燃油添加剂不? 如果正负电荷同时定向移动形成电流,q应怎样计算 饱和的NaHSO3与SO2反应生成什么? intel i系列CPU数字后面跟的M,UM,XM,QM,...PS:如果各个系列开头字母的意思也能说明一下最好了~ 什么时候形成电流正负电荷同事反向移动? 树脂胶粉
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘