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

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

卡巴斯基发现新型Android恶意软件 可入侵Windows 谷歌发布基于B-Tree的C++模板库 开源产品系列:高性能Web框架Zend Framework LiFi是否会取代WiFi? 1月浏览器排行:IE10突破1% Chrome连续3月下滑 Wine让Android也能运行Windows软件 Cory Ondrejka,是这位工程师拯救了Facebook! 三星争夺企业市场的三大痛点与对策 Xcode更新至4.6 支持iOS 6.1 工程师揭秘:NVIDIA如何锻造Android掌机 VMware掌控Puppet 老用户会被锁定吗? 试图领导创新:三星创新中心11亿美元建基金 基于WebRTC Chrome与Firefox实现视频通话 将OpenStack私有云部署到Hadoop MapReduce环境 Web设计师必备的10款最佳排版工具 诺基亚CEO谈平板计划 Android为候选系统 244亿美元!戴尔公司正式完成私有化 对抗苹果 Facebook或推Find My Friends应用 前谷歌工程团队负责人:如何打造一个完美的产品 好消息!Google Drive可存储共享JavaScript等网站 Android Rivers:用Kotlin语言写出的新闻应用 辞旧迎新 老牌游戏开发商的移动进化之路 iSuppli:硬盘市场持续萎缩 大数据应用成重要市场 全球最大校园Hackathon:失败后,你能学到什么? 走进Evasi0n,越狱黑客如何拿到iOS权限 提升服务扩展性和冗余的八个编码方向 分析数据预测未来?数据挖掘绝不是大公司的专利 揭秘LinkedIn数据科学家如何工作 为什么响应式设计对SEO有好处? SpaceX团队:想登陆火星吗?学好C++吧 可穿戴设备:越来越清晰的苹果iWatch !!!急急!现在想把状态栏放大,里边的字也随之放大 请推荐几本学习sql-server的好书!!! 求助:sybase central 3.2 for ASE12.5 的问题?? 关于第二个硬盘的问题 请问我要开发一楼房的三维动画展示(象游戏一样) 哪位大哥知道哪儿可以下载四级模拟题或书籍 Bjarne Stroustrup 怎么念?有高手能给出音标吗?100分在线等待! 神秘的芭蕾舞鞋……《非人勿进!!!》¥%……·%·¥%·#¥%#·¥#@$%$#^%^%$$#@ 怎样做一个自己的DBNavigator? =====关于CDialog的一个简单问题===== 急救!子窗体问题!在线等待 如何把程序窗口显示在其他所有程序的前边 dbengine error: invalid blob length? 数据集打开问题 严重的问题???? 一个问题: 一个小问题,在线求助! 神秘的芭蕾舞鞋……¥%……·%·¥%·#¥%#·¥#@$%$#^% 无法进入系统,救救我吧 菜鸟问题,送分了!!! 得分小问题 小问题,请熟悉InterBase的大大进来看看。 做一个分布式的例子时的问题 大家帮我看下这几句问题到底出在哪里呀!!!!!!!谢谢 连接数据库的疑问,盼望解答!! 什么叫作实例? 菜鸟问题 十万火急:MDI的一个问题?????????在线等待!!!!!! 调查一下用汇编语言开发的工资如何?(深圳 ) 有关Builder版的兄弟定期进行网上技术交流的倡议书! 急!关系到我是否找到工作,请回答 如何根据Form的大小调整控件的大小 闪盘的另一个分区不能用了!!在线 连接数据库的疑问,盼望解答!! 急!急!急!请教一个共享的问题? 请问哪里有Class类和Method这两个类的说明呀!谢谢! 怎样打开CSDN电子版 请推荐一下有关于JAVA,JSP,JAVASCRIPT相关的好书 汽车与电脑谁重要(转) 转让 全新飞利普 820 彩屏手机一部(个人) 请问是否有可以统计数据的电子表格控件? 给点看法? 是不是来这里的人混得好的不多,搞得我都不敢跳槽了 倒霉就一个字,我只说一次。 一个关于Delphi的简单循环外提(编译优化)的测试,有兴趣进来看看 大家遇到这样的问题了吗? DTPicker的问题,急急急!!!! sun的ultra5启动时显示没有键盘设备,可能是键盘坏了,哪里能找到这种8芯的鬼键盘? softice调试时出现的有意思的问题 怎样终止一个函数? 关于j2ee的几个问题 拉床与插床的区别 大家想想办法,帮我写一篇《欣赏自己》(就是夸耀自己的长处)的作文500字 信息如下:本人叫xxx(写到我的名字时用这个代替)年龄13,48号.能在24点前写的多给20 花坛的花真美呀,一团团,一簇簇,整齐地排列着,争奇斗艳,像( ),像(花坛的花真美呀,一团团,一簇簇,整齐地排列着,争奇斗艳,像( ),像( ),像( ),五颜六色,形态各异 卧式的液态二氧化碳储槽与立式的储槽有什么区别?卧式的好处是什么? We have all kinds of guitars for you to_______(choose ;choose from)大神们帮帮忙 肖酸安化肥会爆炸吗? 吸声玻璃棉的吸水率是多少? choose ______many kinds of CDs A.to B.into C.from D.of l磷酸是酸还是肥料? 用俗语或诗句诠释“只要你是一颗天鹅蛋,就算生在养鸭场也没关系”急急急!谢谢! 6.To solve the problem,you have many ways to ______.A.choose B.choose from6.To solve the problem,you have many ways to ______.A.choose B.choose fromC.be chosen D.be chosen from 柠檬酸可以做肥料吗 哪些是小动物保护庄稼的 怎么看仓鼠公母?我家仓鼠买来1个多礼拜了 还不是很亲近人 应该是银狐.我以前买了两只仓鼠 差不多这时候就很亲近人了 经常是看见我就爬出来舔我的手...可这个不舔 反倒有时候咬一口.而 We had some vegetable soup for lunch.(对划线部分提问) vegetable 划线 专吃害虫,保护庄稼的昆虫是什么昆虫,(青蛙不算) 仓鼠怎么分公母?我养了一只小银狐,不知道怎么分公母. what a beautiful scarf it is Thanks.it me twenty yuan.Atook B cost 虞世南中的《蝉》的“居高”中的“高”有哪两层含义 母仓鼠咬公仓鼠母仓鼠超厉害 把仔带大之后就不认公仓鼠了 公仓鼠频繁受伤 后来拿去店家用花仓鼠治住了我家的母仓鼠 当时确实不再咬了 但是一回到家公仓鼠又负伤 我的公仓鼠超肥超可 甲数除乙数,商是3.6,把乙数扩大5倍,甲数不变,那么商是多少 They can't walk any farther,so they stop____(have)a rest. 仓鼠公母怎么分 吃多少安眠药会死? (1)与单位领导发生冲突 (2)坐在南下的列车上 (3)坐在面试的办公室里 (4)在报刊亭前浏览人才招聘信息(5)递交辞职申请书\x05A.1—5—2—4—3\x05B.4—3—5—1—2\x05C.2—5—3—1—4\x05D.2—4—3—1—5 河南省新乡市哪有卖爬行动物的?比如蜥蜴呀 不同颜色的青蛙什么的 This scarf of____is so beautiful A.she B.her C.hers D.herself They have _ (成功)achieved what they hoped for. 以小记者的身份对小演奏家进行一次采访 一人步行每小时行6千米并且他步行1km所用的时间比骑自行车1km所用的时间多了10分钟问骑车走50千米要几小时原题是一人步行每小时行6km,并且他步行1km所用的时间,比骑自行车行1km所用的 怎样才能在同学面前表现出自己很有气质? 情绪高昂是什么样意思 如果请你以小记者的身份去采访这位老人,你会问他什么问题?老人又会怎样回答呢? do not know very much about,what you have done the wrong thing?Why should I forgive?译汉文怎么 士气高昂的意思只要意思就可以了 加入让老师让你以小记者的身份去采访一位优秀班干部要了解他的事迹你怎么做这次采访 你会怎样提问 你认为 关于猫的事.关于猫咪的事、传说、不要童话的、说什么黑猫不吉祥之类的、 PS:我不是迷信、只是想找关于这类的、 一只昆虫从某点出发在一条直线上觅食,假定向右爬行的路程记为正数,向左爬行的路程记为负数,它爬行的各段路程依次是:+5,-2,+9,-8,-6,+10,-7.(1)昆虫最后停在什么地方?(2)昆虫离出发点最 I want to buy a nice sweater for A.me B.myself 猫的事情三种颜色的猫一定是母的? 拉床的动力来自什么? Halloween(划线部分发音相同)________ 划的是ow 菲格瑞斯的微差压变送器有哪些特点? 一只昆虫在一条直线上觅食,假定向右爬行的路程记为正数,向左爬行的路程记为负数,爬行的的段路依次是5,-2,9,-8,-6,10,-7.(1)昆虫最后停在什么地方?(2)昆虫离出发点最远和最近的距离分别 Halloween读音 请问菲格瑞斯的温度变送器日常维护时需要注意什么? 第三段中说:“的却,有种蝉,为了满足音乐的嗜好,牺牲了许多.”其中”牺牲“一词有什么含义 town Halloween follow window划线ow,哪一个发音不同 菲格瑞斯防爆压力传感器是什么样的仪器?抗震防爆能力如何? 一音二字二词是什么意思? going delicious we a to iot food are drink have of and连词成句 有哪位朋友知道菲格瑞思智能差压变送器的最大正迁移量和最大负迁移量为多少吗? 学校做早操,36人排成两行,照这样排队,540人可排成多少行?其它方法我会做,但以下两种方法我看不明白分数方法:2/36乘以540=30行比例方法:2/36=540/X 花坛的花真美呀像什么 I have know that one little "I'm sorry could mean so much . 甲乙两地全程3.3km,一段上坡,一段平路,一段下坡.上坡3KM一时,平路4km一时,下坡5km一时.甲到乙51分钟乙到甲53.4分钟.求从甲到乙时上坡,平路,下坡的路程各是多少? They work very hard to save animals____ accidents A.out B.in C.from D.at 只要你是一只天鹅蛋,就算是生在养鸭场里也没有什么关系,与哪句俗语意思相同 我与信息的故事500字 花坛里的花真美啊,一团团,一簇簇,整齐地排列着,像( ). 美国再发灭门惨案 狂徒强杀前女友一家约旦谴责以色列政府决定在耶路撒冷兴建叙利亚副总理贾米勒被解职都江堰拍到野生大熊猫视频:倒立撒尿圈美情报高官供出欧洲盟友 中国5城市上出差“一夜情”伤脸 澳最高法:不算工普京酷爱百达翡丽 萨科齐最爱Prad津巴布韦男蝉联“最丑先生”美男子遭遇车祸脑部创伤不能交流 女友调查总结女性二十“怕”普京力压奥巴马当选《福布斯》全球最有格鲁吉亚警告:别政治化冬奥会法国情侣将女婴弃于轿车后备厢 涉虐待媒体称比尔·盖茨西雅图豪宅的新邻居多《斯大林格勒》曾欲邀周润发,片酬过高美国被爆在驻华使领馆搞监听 北京上海王毅与福田康夫会谈引关注 日媒称或成意邮轮沉没事故发生时船长与情人在船上中国将继续积极支持和参与联合国维和行土耳其否决“采购中国红旗导弹”的早前新媒:记者陈永洲被批准逮捕 舆情急转我省选派第二批19名党外干部“当前不存在人民币汇率持续贬值的基础皖赣闽主流媒体“行走中国最美高铁线”图片新闻图片新闻图片新闻福建省国税局五大类税收政策助推产业转为救助3名重病孩子线上线下爱心接力两岸大学生相聚华大“真是有福之州!”仙游开赛五大类税收政策助推产业转型升级国家旅游局:优化夏季作息不是周五下午配套工程进行中,即将完工欢迎中国汇改新举措中国人的网络诈骗团伙上半年消费仅个位数增长见证一段革命风雨情人民币贬值重创奢侈品牌国企改革顶层设计出台倒计时独竹漂,在福建该怎么漂?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘