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

VB如何拦截键盘输入

HTML文档下载 WORD文档下载 PDF文档下载
VB如何拦截键盘输入
Option Explicit

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
Declare Function UnhookWindowsHookEx Lib "user32" _
(ByVal hHook As Long) As Long
Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, _
ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long

Public hnexthookproc As Long
Public Const HC_ACTION = 0
Public Const WH_KEYBOARD = 2

Public Sub UnHookKBD()
If hnexthookproc <> 0 Then
UnhookWindowsHookEx hnexthookproc
hnexthookproc = 0
End If
End Sub
Public Function EnableKBDHook()
If hnexthookproc <> 0 Then
Exit Function
End If
hnexthookproc = SetWindowsHookEx(WH_KEYBOARD, AddressOf _
MyKBHFunc, App.hInstance, 0)
If hnexthookproc <> 0 Then
EnableKBDHook = hnexthookproc
End If
End Function
Public Function MyKBHFunc(ByVal iCode As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
'这叁个参数是固定的,不能动,而MyKBHFunc这个名称只要和
'SetWindowsHookex()中 AddressOf後的名称一样便可,不一定叫什麽
'wParam 是传入按了哪个key的virtual-key code

'如果您将以下的两行unmark则所有键盘的输入皆没有作用
'MyKBHFunc = 1 '吃掉讯息
'Exit Function

MyKBHFunc = 0 '讯息要处理
If iCode < 0 Then
MyKBHFunc = CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
Exit Function
End If
If wParam = vbKeySnapshot Then '侦测 有没有按到PrintScreen键
MyKBHFunc = 1 '在这个Hook便吃掉这个讯息
Debug.Print "haha"
Else
Call CallNextHookEx(hnexthookproc, iCode, wParam, lParam)
End If
End Function

'以下在Form
Private Sub Form_Load()
Call EnableKBDHook
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call UnHookKBD
End Sub

Web服务器份额:Apache仍居首,Nginx将超IIS 防税务欺诈:挪威财政部将开源收银机代码 响应式设计实战:3人+1.5个月 IE10优化版cnBeta诞生记 不听乔布斯劝告:“不专心”的Google照样干得好 躲过一劫!苹果不锁杂志类APP介绍截图 Oracle发布软件更新修复Java漏洞 设计师将吞噬工程师吗? 开源产品系列:小巧灵活的Web框架web.py Windows Server 2012 VHDX格式揭秘 Rovio将赶超Zynga 成为全球最受欢迎游戏公司 Netflix基于AWS的大数据平台Hadoop架构解析 微软开始提供Windows Embedded测试版系统 Aaron Swartz自杀原因存疑 引发互联网连锁反应 重金吸引开发者 BlackBerry10应用36小时增1.5万 把数据中心搬入“空间站” Dell和Intel对OpenStack新兴公司Mirantis投资 快讯:马云自5月10日起不再担任CEO职务 Web工程师必备的43款可视化工具 中国电信天翼开放平台2012年度数据:API调用量破亿 iOS走向开放:UC浏览器iPhone版实现云下载 让Dreamweaver支持cshtml (MVC Razor环境) iOS付费榜首:日历应用Fantastical开发者专访 玩转AdMob移动广告:捕鱼达人的猎财之道 12306抢票插件拖垮GitHub 展望2013 jQuery核心团队成员谈其发展路线 Facebook社交视觉搜索分析:引入“竞价排名”? 移动广告现状5大问题解析 Google将于月底举行Google Glass开发者大赛 分享29个超赞的响应式Web设计 Facebook图谱搜索和谷歌搜索有何不同? Facebook向美国iPhone用户提供免费电话 我的vc6为什么不支持模板特化(快来看!!!) 毕业设计的问题急!请高手们指点.请进来看看,谢谢 我在机器里又装了个硬盘,怎样在linux里看到它 晕!hsah_map怎么使用? 如何编程来获知某一进程从产生到结束期间所有的系统调用 初學者請大家幫我看一下這個問題了,謝謝! NetBios名与Dns名的问题,请教 win2000或XP环境下的打印走纸问题 pl/sql 中 delete 记录 请问大家有谁知道北京市软考的报名时间吗?在什么地方报名?先谢了! delphi中的字体问题 高分求救,关于数据库图象保存的问题?? 计算机网络可以虚拟现实,但不能虚拟感情。 关于注册表的几个问题? (高分!!!) 我的vc6为什么不支持模板特化 怎么实现这个对话框的功能?谢谢 如何判断表单没有某个对象??? 怎样删除ListBox所选的内容??? 问大家一个超级难的问题,来者有分啊 请问如何把string类型转换为int类型啊? 我的msdn怎么了! C语言 在局域网中怎么才能使linux访问Internet? 我要问一个烂问题哈哈! 打印 华泰贝通,北京创智你去那家? 学习vc++,我离不开书,或者说了开书后,我什末也做不了,我该如何继续学习? 华泰贝通,北京创智你去那家? 简单问题:PB6.5中调用SQLSERVER的procedure! 打印 怎么去掉单文档视图中的菜单 华泰贝通,北京创智你去那家? 哪里有IDE技术规范的中文资料下载? 华泰贝通,北京创智你去那家? 哪里有IDE技术规范的中文资料下载? 如何把从文本登录该为Xwindow登录方式呢? 华泰贝通,北京创智你去那家? /***VC 6.0 的两个操作*/ 有关编译错误,百思不得其解!!(菜鸟那分) 怎么实现程序的换肤功能呢?? 怎样实现左连接(left outer join),右连接 这个网站制作费能值多少?? 怎样处理异质链表? 报表打开的时候缺省为最大化状态,怎么样为设计时候状态? 除了梅尔森式外,还有哪个比较好用的质数生成式?(要100位左右的) 如何在英文版的WINDOWS2k上输入中文? 为了提高大家专家分的质量,希望大家不要再散分了! 我在sun的网站上下了jdk1.4,请问怎么把JBuilder6的jdk升级到jdk1.4? 大家给推荐windows程序,sdk编程的入门好书(不是MFC的)言者有分 我在http://soft.jx163.com/上下载了JBuilder7但不知道怎样得到注册码 有没有其它免费空间(要支持ASP的) 赞美长江的成语不是诗句 太平天国运动的作用和局限性有哪些? 举例说明正义的可能的局限性 请问可以不学电磁学而直接学电动力学吗?我学电磁学时总觉得它里面讲的不够详细,是不是电动力学是更详细的电磁学呢?或着说学了电动力学就相当于也学了电磁学呢,只不过更深入了.如果 哪的薯类淀粉设备最好 举例说明"公平是相对的" 流入肾脏的血液和流出肾脏的血液相比其特点是A.氧气增加尿素减少 B.二氧化碳增加,尿素减少 C.二氧化碳减少,尿素增加 D.氧气减少,尿素增加 本人很困惑,为什么尿液的形成过程中,血液中的 薯类算菜还是淀粉? 举例说明公平与效率矛盾,谢谢. 防风打火机长时间燃烧会怎样 这张图是什么意思.你们的理解是什么. 正义之师必胜 举例说明!嘻嘻~ 爱因斯坦怎样怀疑牛顿经典物理学而创立相对论的?要具体事例 但要简洁点大约100字 用手抄! 这个图的意思. 在word中怎么画出角的符号标?看图! 煤气泄漏气味多久能没有 在实验室中用锌和稀硫酸反应制取氢气,现需制取氢气0.4g,要用质量分数为24.5%的稀硫酸多少克? 有谁知道,此图的意思?成语…… 煤气泄漏了味道多久能放干净 有万有引力,就必然有万有斥力…那何为万有斥力暗力量于暗物质是不是就是万有斥力的源? 有人理解这张内涵图的意思不? 在标况下,一烧瓶充满氯化氢气体,现将烧瓶倒立于水中,则液体充满烧瓶,求所得溶液的物质的量浓度和溶质 汽车发动机曲轴连杆在什么情况下会变形 我想问下《气瓶安全监察规程》,不是《规定》!最新版是不是2000年的, 在标准状况下,将盛满氯化氢气体的试管倒置于水中,当试管中充满水时立刻取出在标准状况下,将盛满氯化氢气体的试管倒置于水中,当试管中充满水时立刻取出,则此时试管中溶液的物质的量 这个世上,存在与万有引力相反的万有斥力吗?有人说,正反物质之间存在万有斥力,如果说有万有斥力,是你自己认为的呢?还是有科学依据,如果有依据,请指出。我想,不论是正物质还是反 举一个生活中可以体现比较优势理论的例子,是生活中的哦 在标准状况下,用氯化氢做喷泉实验后溶液充满烧瓶求在烧瓶中得到的稀盐酸的质量分数和物质的量浓度 万有引力万有斥力公式谁知道 怎样理解李嘉图的比较优势理论李嘉图的比较优势理论和亚当 斯密斯的绝对优势理论的相同和不同点 考研要从《量子力学》和《电动力学》选一门,那一个相对容易些 关于射线、线段、直线已知线段AB=a,延长线段BA至点C,使AC=1/2AB,取线段BC的中点D,则CD=——(用含a的代数式表示);若AD=6,则a=—— 比较优势理论英文定义 量子力学统计物理与热力学与统计物理哪个难? 把100个苹果分给幼儿园的小朋友,其中有人至少分到3个,这个幼儿园最少有多少个小朋友? 斯密的绝对优势理论和李嘉图的比较优势理论的区别与联系尽可能的详细点.... 电动力学和电磁学有什么区别呢? 关于直线,线段 ,射线 数学立体几何一题 量子力学或电动力学想考中科院,初试是这两个选一个,这两门哪个更好考. 关于线段、射线、直线问题下列写法中正确的是( ) A、直线AB和CD交于点a B、直线ab和cd相交于点M C、直线AB和CD交于点N D、直线a和b相交于点n 过已知点M画已知直线AB的垂线EF,标上垂直符号,有几种情况? 【七下生物】血液流经肾脏后,所含成分的最主要特点是 血液流经肾脏后,所含成分的最主要特点是A二氧化碳减少 尿素减少 B尿素增加 C葡萄糖减少 尿素增加 D尿素减少请负责任地回答!并解释 样品中总酸含量的测定各位大侠指教,越快越好!要具体方案啊~ 2Rt三角形ABC所在的平面外一点S,且SA=SB=SC,D为斜边AC中点,(1)求证:SD⊥平面ABC(2):若AB=BC求证BD⊥面SAC 流出肾脏的血液成分与流入肾脏成分相比,其特点是?A氧气增加,二氧化碳减少 B尿素增加 C氧气减少,二氧化碳增加 D尿素减少 食品中淀粉的测定,样品水解处理时应选用下列(A) 洄流 (B) 蒸馏 (C) 分馏 (D) 提取 两条垂线相交的点叫( ),画垂线时要标注直角符号. 古诗中找赞美水的诗句只要赞美水的 图乘法计算位移的原理是:A. 叠加法计算位移;B. 积分法计算位移;C. 虚功原理计算位移;D. 位移法 甲乙丙3人同时到1个自来水龙头前打水,甲打满一桶水的时间是4分钟,乙是2分钟,丙是1分钟,他们按定顺序打水,从开始打水到三人都打完水,按怎样的顺序排列,才能使等候的总时间最短?总时间是 赞美水的诗句士大夫 荷载作用下的位移计算,图乘法? 六个人各自拿一个水桶在自来水龙头前等侯打水,他们打水所需要的时间分别是1分 2分 3分 4分 5分和6分,试问怎样适当安排他们打水顺序才能使每个人排队和打水时间的总和最少?并求出最小值 有关赞美水的诗句 《气瓶安全监察规定》最新版是那一年的 向下排空气法收集氨气所得气体的密度是相同条件下氢气的10倍将此气体倒置于水中,瓶内液体的高度将上升A 1/2 B 3/4 C 2/3 D 1/3 如何使电动力学与电磁学相衔接 如何理解法的局限性法理学方面的, 用向下排空气法手机一瓶氨气,气体密度是氢气的10.5倍,若将瓶倒置于水槽中(按极易溶于水),水上升到容器的( )处A3/4 B1/3 C2/3 D充满这整个容器
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘