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

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

专访西电朱虎明:异构计算硬件架构呈现百花齐放 百家争鸣 GSMA行纪:各种神器、好玩的、好看的全搜罗 大数据初创企业WibiData将Hadoop“打包”,谷歌董事长施密特两次参投 赚钱不忘环保 苹果计划为数据中心兴建太阳能发电厂 深度解析:清理烂代码 电信开放平台发布短信验证码API 创业教父Paul Graham谈创业投资趋势 挖掘Linux人才,打造Power生态系统!IBM启动“天合应用服务器定义未来挑战赛” 请不要忽略API的安全性 发布将近?苹果在多地注册“iWatch”商标 苹果聘请某时尚公司CEO为副总裁 将负责“特殊项目” 雅虎5000万美元收购视频分享应用Qwiki 创业第一年易犯的8大错误 苹果推iOS游戏手柄,掌上游戏主机格局变天? 代码审查固然伟大,那还有其他替代品吗? 怎样维护一个成功的开源项目 麻省理工专家发布新系统Ascend,专注内存访问安全缺陷 Oracle Database 12c面临的最大挑战是开源+开放的生态系统?! 浸入式数据中心:高密度计算的新前沿 2013年腾讯合作伙伴大会要点回顾 “鼠标之父”和超文本研究先驱Douglas Engelbart去世 享年88岁 Web服务器排行:Nginx超越Apache 成为全球TOP 1000网站最常用的Web Server Windows 8之父Steven Sinofsky正式离职微软 不得接受竞争者聘用 Yelp处理1.02亿/月绝对造访人次及3900万评论的省钱秘诀 可视化:图像的主题色提取算法,是不是太高端了? 不利于写出好代码的15个职场因素 GPU Saturday技术沙龙:分享异构计算新技术及应用 微软隐藏最深的秘密武器之一——Visual Studio可作为Python IDE 历时六月,Qt 5.1正式版终于面世! HTML5全硬件加速游戏引擎:Sphinx正式公测 专访“Monster Blade”创始人:无需营销,百万下载背后的秘密 sqlserver 用 jdbc出错 ,Microsoft][SQLServer 2000 Driver for JDBC]Error setting up static cursor cache 如何在C#中用代码控制本地FTP服务打开和关闭?99分,中秋快乐. 关于dll的问题,在线求教 昨晚,我抱了我MM一下!开心呀!散分! 有什么软件可以使上网不受防火墙的限制? 一个C的图形函数,请问怎样用的? 数据库查询语句执行错误 web页面的activex控件怎么调用服务器上的动态连接库?? 中秋散分 【泰坦】祝大家中秋节快乐!(1) 纯jsp聊天室的页面刷新问题 这个MSDN是不是常说的那个MSDN资料库? 一句sql语句问题 【泰坦】祝大家中秋节快乐!(2) 我的触发器为什么没有响应啊。在线等啊 pb9.0+sql server 2000,怎样制作程序发布? pb给dll传递结构数组的问题。急!!! pb9.0+sql server 2000,怎样制作程序发布? 为什么关闭MSDEV的时候,会导致它占用90%以上的CPU时间??? 如何在代理中同時讓兩個套表同時結案 菜鸟问题:我想把一个CString类型转换成LPBYTE类型应该怎么弄? 如何在JRUN3.1中连接SQLSERVER, 我的web server用的是IIS5 怎么样在JSP中显示 WORD 或 WPS 格式的文件? 如何在servlet 中存储数组用javabean 取数组用JSP显示(在线等,急,谢谢) 如何使Response.Redirect "xxx.htm"打开的网页是满屏显示! 鄙视民工的人,给你讲个故事听。 庆祝中秋佳节,大散分~ 中秋节到了,与大家同庆,散点分!!!祝大家开心呀! VC的bug!!! 游戏、网络、图形等版块正在整顿中,有意见或建议欢迎提出!! 如何进一步提高C语言的功力???? 学习JSP的过程中遇到的问题(问题1),请进!!! 大家说一下网上下载的水晶报表crystal report 9.0会过期吗!!买一套要好几万的! 有个问题想请教,关于数码相机生成的图片的格式及存储方式! 在网站上数据保密问题 我用Inet控件下载文件时,经常会遇到无法结束程序的问题? 我在用电脑的时候,有时会提示我们插入WIN98光盘,但我现在用的这台,它会自动扫描的,自动查找,是怎么回事啊,在线等啊。 请问有DOS下的C++编译器吗???哪里下载?? 如何指定DataGrid的列宽呀 求boundschecker下载地址 怎么实现放大缩小的功能? 广州一妓女出租屋中被杀 被单缠身只穿一条内裤 关于setup Factory 和wise installer制作安装程序的问题 500分求解,解决问题结贴 新手入门求教 借中秋佳节,向ASP,JAVASCRIPT的网友们问好.. 请问如何用C实现把.hex文件转换成.bin文件呢? 数组存取 统计记录失败,各们大侠,请帮我看一下这个问题哈! 在当前目录下创建文件夹,并保存当前文件。。。 我的session为什么丢了? 哪里有严歌苓《幸福来敲门》(继母)的完整版啊?求分享 be是什么意思 英语啊 为什么我先回答的问题,别人抄了我的答案,你就把他纳为最佳答案 be在英语里表示什么意思 今天晚上给孩子检查作业,发现了炒答案,提前写在纸上,而且每次故意错2-3个,我的心都寒了,怎么一点都不懂事.我该怎么办?怎样和他讲道理呢?人与人最重要的信印一下子荡然无存. 写作业抄答案的辩论词(反方)反方的 小白拔得萝卜比小花多15个,这个数目正好相当于笑话吧的萝卜数的十分之三 小花拔了多少萝卜? 原来有几个萝卜?小白吃了5个,妈妈又拿来20个,现在有30个. 小白,小灰,小黑3只兔子共有18个萝卜,把小灰萝卜的1/3给小白,把小黑的1/4给小灰,这样三只兔子的萝卜一样多,三只小兔各有多少萝卜? 归纳历史事件杯酒释兵权靖康之变 他就是人人景仰的.(修改病句)? NBA总决赛修改赛制 由2-3-2变林丹计划明年2月份再战 提升排名为里南京15条城市视线廊道禁建摩天大楼总决赛-李娜浪费三赛点 首秀艰难击败欧冠-皇马2-1胜十人尤文 C罗2球南京养老床位两年减少2105张 38欧冠-伊布大四喜卡瓦尼破门 巴黎5-欧冠-拜仁5:0比尔森胜利 里贝里2安监总局:居民建筑内不得设置烟花爆竹南京电视评政现场:一官员介绍政策时被报告显示:长三角主要污染物臭氧 PM杭州经济升级版里 电子商务产业成重点《卫报》曝英机构监听引当局紧张 联合俄北冰洋步兵旅在远东野外军演 雪地装日本秘保法被指侵犯言论自由遭抗议 安台股3日开盘下跌6点 为8407点乌克兰爆9年来最大反政府活动环保组织查找京津冀雾霾\"病因\" 惠水依托科技推进现代农业水矿控股集团“两金一创”活动创效1.两男子争相自称为男孩父亲 疑似拐卖儿5种吃法让鸡蛋变毒品:加糖吃 空腹吃南阀倾情笑傲异世之潜龙升天不灭自由神之不屈少年幻世长生带着主神去异界真天无界魔战神武神道十二宫风之迷走三桥旅游退思园旅游彩色沙林旅游阿庐古洞旅游鸡公山大峡谷旅游抚仙湖禄充风景区旅游官渡旅游西南联大旧址旅游拒马乐园旅游坪坝营旅游太庙旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘