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

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

专攻移动支付?PayPal将面向全球开放移动SDK CoconutKit:iOS开发必备的开源组件库 个人隐私是如何“泄漏”的:国内外互联网企业隐私策略对比 惠普2014年Q1财报:净利润同比增16% PC业务逆势好转 “阅后即焚”挖谷歌墙角,GAE技术大牛跳槽Snapchat 日800万访客、20万RPS网站的5个9可用性架构 程序员想找好工作?那就学好Linux吧! 一周消息树:开源专家袁萌,国产COS操作系统是“杂种”,不是中国软件梦 移动周报:对话智能硬件云服务平台Yeelink Node.app:用Node.js API开发iOS“原生”应用 Google Project Tango:能3D捕捉的智能手机 成功打造Evernote API生态系统的五大经验 研发周报:Google与Facebook的产品研发之道 AMD高级副总裁Lisa Su访华 宣布引领AMD复兴的五大战略 一周热点:IBM新技术使网速达400G/s,硬盘会“烧掉”吗 特种作战,纽约极客企图建造现实中的“潘多拉星球” 领先Google 150年的数据可视化和“不务正业”的超级计算机 苹果会成为新微软的四大理由 雨血&#183;影之刃:参选2014年Unity游戏及应用大赛 AT&amp;amp;T联手IBM对抗AllSeen:“晚点和堵车”将成历史 微软WP春季更新将降低手机生产成本 意在开拓新兴市场 私人定制,十款最佳Node.js MVC框架 开发者“逆袭”,就等你一票! 基于多路云计算方案焕发新春 浪潮抢发E7 v2服务器 美国人眼中的腾讯 英特尔发布64位凌动处理器Merrifield 布局移动市场 OvershareKit:开源的iOS社交分享工具库 Ruby 2.1.1发布,改进系统加速,服务器兼容等问题 专访Ejoy2D作者云风:因Lua而生的开源图形引擎 当DDoS跨入400Gbps时代,那些来自孩子们的攻击该如何应对! Mesos渐入主流,Twitter模式有望“无限复制” 如何使DropDownList呈现时就为展开状态? 求助!动网里提示 Script Engine 异常,请大虾帮帮我啊 大家看看我的jboss有没有问题!为什么jboss的8083端口出错!(3)接(2) 内联函数 菜鸟求教:关于Tcanvas的问题,不知道怎么重画 请大家关注http://expert.csdn.net/Expert/TopicView1.asp?id=1883460 ,谢谢 紧急求救!! 怎么才能在没有VC的环境下运行带有MS DataGrid 控件的程序 URLDownloadToCacheFile 下载的小文件不能立即打开! oracle 9i For Linux 的字符集的问题,谢绝灌水! 当使用了showModalDialog打开的窗口后。。。 我一直将vcl源码作为代码书写标准文档,现发现。。。。。 如何获取当前页的地址。 中国网通真TNND不是东西 在win2003下怎么使用VOS 请教:如何通过VB的宏对Excel进行排序? 青岛发生4级地震,做个调查 对不起,第一次想给给过自己帮助的人分。但都出现这样的提示,请帮忙解决。 驱动不在了,求助!! 建好表后,如何添加数据?不要导入的方法 用dbstart启动时出现Can't find init file ......请指点! 我用17"的顯示器設為1024*768顯示,但pb9開發工具的字體很小,怎麼設啊? 对于解决站点使用基本验证的自定义客户端验证界面的一篇有价值的文章 运行java3D后这样的提示,怎么回事????? 高分求 关于DLL程式异步通知,类示xmlhttp 组件的onreadystatechange事件 初学者请高手指点迷经? Form上没有缺省按钮,在控件上Enter按键时,喇叭老是响,怎样解决? 如何实现导入数据库中的数据--急,知道的请帮忙 有关dataset的问题?? 使用用户控件提示找不到许可证信息,刚才都是好好的 数据库问题:有什么好的解决办法。 请问如何避免client连接server端出现WSAENOTCONN的错误? 自动注册ODBC数据源问题 请大家注意:遇到有人骂你的时候请通知斑竹,不要回骂。 dbsrv7.exe为何长时间的占用我的CPU? 菜鸟问题,麻烦帮帮忙!!!!!!!!! 在delphi中如何做ocx,大家帮我介绍一下。最好是能放在浏览器中用的。 各位大哥,请教一个菜鸟问题!!! 我电脑里装的win2000使用的时候经常死机,就是突然鼠标,键盘都没反应,只能重起, 谁能帮我判断一下会是什么原因? 如何取得TextField的选择区域? 请问浙江有高程培训班吗? 昨天有人扎了我三针...... CallableStatement 问题 “ActiveX 不能创建对象, 错误号429”,请问谁这个问题,急切求助 为什么建立虚拟目录时这样不行? <Context path="/xuu27" debug="0" docBase="C:\jsp\xuu27" reloadable="true" crossContext="true"/> 问搞版主竞选的版主们: web服务服务器端设置 我的一个页面中有三个frame,请问如何在其中一个frame中点击连接,关闭窗口。然后整个页面就关闭了. 刚学sql语言,有点不懂 一个很弱的问题 有谁知道开书店的进书渠道吗? 我的一个页面中有三个frame,请问如何在其中一个frame中点击连接,关闭窗口。然后整个页面就关闭了. 卵细胞为什么具有全能性老师上课讲动物细胞全能性大小是:受精卵>卵子>体细胞卵细胞是生殖细胞,是经过减数分裂的,只有体细胞一半的染色体,怎么能有全能性呢?染色体都不完整啊? 教唆犯与吸收犯的区别? 一句描写秋风和落日的诗句 卵细胞是否有全能性 论述“所有的教唆犯都是主犯”这是一道关于《刑法》的问题 匠山高苦荞茶怎么样? 文天祥 金陵驿 译文是译文吖.不是赏析. 大家给我说说各个学派关于自由的学说 最好有代表书目的推荐 好的我另加100分 请举一个教唆犯是主犯的例子 求一个英语词,形容二三十岁的人求各位大神,一个英语词 形容二三十岁的人这个群体,不要用younger generation,generation Y也不合适.~~ 将两个标有"220V 100W"字样的白炽灯串联起来,接入家庭电路中,当开关闭合时,每个白炽灯的额定功率为____W,实际功率____(大于/小于/等于)额定功率. 算高压锅 锅盖 面积是用这个公式吗?派*直径的平方/4 《春满燕园》是谁写的 张华家有一只标有“220V 100W”的照明电灯,她为了节约电能,给该灯串联上了一只定值电阻,使这盏灯的实际电压为额定电压的50%,此时该灯的实际功率是 LM317的最大输出电流是1.5A,如果负载使电流大于1.5A时,会出现什么?如题,对额定输出电流不是很了解,额定输出电流是由什么决定的?由稳压器件吗? 宇宙速度怎么算急 蔺相如说:“秦王我都不怕,会怕廉将军吗?”改为间接叙述句 有没有一个原件是这样的,能稳压到8v左右,然后就电流要在2A以上,比如lm317,可是lm317最大电流1.5A,不够啊 送杜少府之任蜀州描写了一个什么样的场面? 在共同犯罪中不可能只有从犯而没有主犯, 《春夜喜雨》后三句集中写( )随风潜入夜,润物细无声,野径云俱黑,江船火独明,晓看红湿处,花重锦官城. 1.A={x||2x-4|>2},B={x|x>6},B在A中的补集是?2.设A={x|1 好雨知时节,当春乃发生.随风潜入夜,润物细无声.野径云俱黑,江船火独明.晓看红湿处,花重锦官城.诗意是什么, LM317进行稳压,输出电流1.5A,扩流到10A,用电压串联负反馈进行扩流,怎么工作,为什么要用均流电阻! 秦王我都不怕,会怕廉将军吗?(改为陈述句) 好雨知时节当春乃发生随风潜入夜润物细无声野径云俱黑江船火独明小看红湿处花重锦官城的意思 lm317输出电流的范围?能为负么? 仿照句式 不少于50字 好雨当春乃发生 随风润物细无声 野径江船火独明 晓看花重锦官城 读某一局部地区的等高线地形示意图(图中短横线是示坡线),回答36--37题 36.与图示地形特征较为符合的是 仿照; “不必说……也不必说……单是”的句式 以‘母亲”为主题的一个句子 字少一点的 图中C4的作用是什么?改变它的容量VCC脚的电压也会变化,是什么原因? 在同一平面直角坐标系中,过x轴上的坐标(-3,0)作x轴的垂线过y轴的坐标(0,-3)作y轴的垂线,两垂线的交点是点A,则点A的坐标是( ) 用“不必说,也不必说,单是”的句型描写课间活动,不少于70字.仿照初一下册的语文第一课《从百草园到三味书屋》写,会的快进! 氙气灯更换灯泡 需要连同安定器一同更换吗原装有氙气灯+安定器 灯泡是6000K 雨天白茫茫一片 现在要换成黄金眼的 是否只要换个灯泡就可以了?还是要连同安定器一起更换 春夜喜雨中的第一句写了下雨的季节直接赞美了什么?快 已知一次函数y=ax+4与y=bx-2的图像在x轴上相交于同一点,则b/a的值是A:4 B:-2 C:1/2 D:-1/2 好雨知时节,当春乃发生.  随风潜入夜,润物细无声.  野径云俱黑,江船火独明.  晓看红湿处,意思是? 《春夜喜雨》第一句写了____________,后面三句集中写______________. 已知一次函数y+ax+4与y+bx-2的图像在x轴上相交与同一点,则b/a的值是 17 .从犯是指在共同犯罪中 (2 分)A 起次要作用的犯罪分子B 起辅助作用的犯罪分子C 领导他人犯罪的犯罪分子D 教唆他人犯罪的犯罪分子多项选择 春夜喜雨后三句重点写什么 秦王我都不怕,还会怕廉将军吗?这句话改为陈述句是可以是秦王我都不怕,不会怕廉将对吗? matlab fft(x n)与fft(x)的区别 花茶属于哪种茶 商鞅变法的思想有没有延续至今的 ( )诸葛亮有把握,( )能在三天之内造十万支箭.填关联词! 花茶属于六类茶的哪一属 商鞅变法反映了该人物的什么思想 在括号里填上相应的关联词.( )诸葛亮( )能在三天之内造十万支箭. E F G H是长方形ABCD四个边的中心点,K是线段HE的中点,若长方形ABCD的面积是12平方米 一个物体没有发生化学反应的时候具有化学能吗?比如氢氧化钠和水反应的时候具有化学能,那当他没有反应的时候具有化学能吗?谢谢! 求《伯牙遇知音》的译文!跪求《伯牙遇知音》的译文.准确一点最好. 我家的小鳄龟怎么不吃东西呢?我是北京的,我家的小鳄龟,买回家有4天了什么都不吃?为什么?我家的小鳄龟,甲长5厘米,状态很好,水也是软水可为什么就是不吃东西呢? 送杜少府之任蜀州句子赏析 如图,有一块以点O为圆心的半圆形空地,要在这块空地上划出一个内接矩形ABCD辟为绿地有一块以O为圆心的空地,要在这块空地上划出一个内接矩形ABCD辟为绿地,使其一边AD落在圆的直径上,另外 刚买回来的小鳄龟不吃东西怎么办啊?昨天买的小鳄龟回来的,为什么过了两天了还不吃东西啊,我家的那只大的巴西龟已经吃东西了哦.哪位帮我帮的好的, 赏析送杜少府之任蜀州作文 诸葛亮对鲁处说:三天之内要造要10万支箭,得请你帮我的忙.改为转述句 我家养的小鳄龟不吃东西!怎么办.!今年年初买回来的,从买回来就开始冬眠,一直到最近,家里其他两只陆龟和巴西龟已经醒过来吃东西了,但是鳄龟喂鱼虾什么都不肯吃,它七斤多,是不是它吃什 《变形金刚4》香港取景遭勒索 4男子美拒评是否曾监听默克尔手机 新自贸协俄公交炸弹袭击或引发连环恐袭 索契冬马来西亚水坝泄洪引发大水灾 造成3死泰国一巴士坠山沟致21死 司机驾驶失意前总理贝卢斯科尼被控政治行贿德国汉堡规定:住房闲置三月必须出租世界主要城市10月25日天气预报外交部:妥善解决朝鲜半岛核问题须均衡埃及临时政府法律草案规定严厉打击民众国际社会讨论在南极建立迄今规模最大海利比亚总理绑架策划人称:总理根本不敢美媒曝美无人机行动得到巴默许 巴政府世界泰拳王与中国功夫王广东见面会上大美国11岁男孩持枪入校遭拘捕 面临谋也门男子因15岁女儿与未婚夫通电话将外交部:妥善解决朝鲜半岛核问题须均衡美国职棒大赛 球员为赢对手纷纷留长胡嘉兴秀洲消防工地“找茬”揪患80余处嘉兴秀洲:消防电影大篷车走村串乡宣防美拒评是否曾监听默克尔手机 新自贸协中共广东省委十一届三次全会闭幕大学生毽球协会成立四馆怎么建 等你提意见冷空气驾到 气温逐日降粤首家“杂交”手术室诞生普惠性民办幼儿园 同享公用经费一周语录俄逮捕5恐怖嫌疑人机动车流动性还将趋紧一德路站力争今年启用等了4年,“华南虎” 才在主场“吃”“4.8万,MBA包过!”前部长挨打住院 入重症病房北大名教授学玩不分家节后返程火车票昨起开售广铁售春运火车票超900万张进口糖果少卖6成 高端白酒无人问津北大名教授学玩不分家美向韩派12架F 16六号线导向指引怎改 地铁公司请你提意
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘