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

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多人项目开发指导 AsyncTask对比Thread加Handler Android Drawable叠加处理方法 android.os.Debug调试工具使用方法 Android多点触控开发原理 inent调用代码总结,不断完善中 onRetainNonConfigurationInstance和getLastNonConfigurationInstance Android中String资源文件的format方法 Android工程内嵌资源文件的两种方法 Android AIDL全攻略三 - AIDL框架 Android AIDL全攻略二 - Service绑定 自定义Android主题风格theme.xml方法 Android开发之模拟按下Home键的效果 Android AIDL全攻略一 Android Picture和PictureDrawable的用处 Android自定义View以及layout属性全攻略 Android通过Intent发送电子邮件含附件 Android调试技巧之Eclipse行号和Logcat Android Txt文本读写类源代码 Android游戏开发之旅20 双按事件捕获 Android游戏开发之旅19 分辨率大全 保护你的Android付费软件-LVL全攻略(二) 保护你的Android付费软件-LVL全攻略 android调试工具monkey压力测试实战 Android开发工具-App Inventor Android游戏开发之旅18 SoundPool类 Android多线程下载远程图片 Android读写Txt文本文件代码 Android游戏开发之旅17 图像渐变特效 Android游戏开发之旅16 异步音乐播放 Android游戏开发之旅15 按键中断处理 关于MFC的动态生成对象的问题 有谁把平台转向XP了,不知在这种新环境下开发出的软件在别的机器上会不会有问题(包括运行库及打包) 帮帮我,好吗?(谢谢大家了) 千山、恶人、老鱼、念雪、浪人及各位大虾,小弟也遇到了Dll引出MDIChild的问题,但是在linux下,不能正常退出,请各位帮忙,多谢了。 我的浏览器怎么了?? 心情好到最高点!放分!!!!!!!!!! 大家一定要帮帮我~~~~~~~~~ 一个关于重载的问题! 不活了 不活了.... 在VC中讲Edit控件的属性设置为ReadOnly后,如何改变控件的背景色??? 深圳的户口政策以及用人单位对户口的态度是怎样的? 200分求购一个VB写的用mciSendCommand播放VCD或者AVI的例子!!!!!!!! 请问大家认为数学对程序员来说是一个怎样的地位................ 紧急,求救!!!!!!!!!!!!!!! 请问在GSM MODEM编程中,如何知道短信是否已发送到目的手机! 急:为什么都用uses包含了,还是报告说没定义变量? 删除表时遇到的问题 *************stringgrid的问题?????? 再问几个问题 如何查找csdn上网的朋友 用 ADO 对 Oracle blob 字段读写 (谁能解决送1000分) 请问oracle9i比oracle8i多了那些功能?这个产品是否成熟? VB读串口数据 请问,你们做项目一般用什么分析设计方法,生命周期法? 快速原型法? 面向对象分析设计法?? 请问如何用query删除一个记录???????????????????????? 请问那里可以下载到雷电(指点一下也给分)……………… 初级问题,关于硬盘文件格式转换,请多多帮忙,谢谢! 那里有比较好的软件公司 毕业设计选题 谁有读写注册表的原代码? 请问那位大哥有画切线的C语言算法 如何使页面上的按钮被点击后自动打印当前页面? 哪儿可以下载星际争霸? 注册表中如何建新的主键?30分 寻求在tc下设置640*480(256色)模式的代码 DELPHI 真的好难 哪里有支持ASP+access的免费空间?!!30分 SaveDialog该如何使用? 为什么csdn把大家的回复都发到我的邮箱里去了???!!!! 我在学WinSocket,请问现在外面WinSocket吃香吗?一般做什么东西要用WinSocket的?找的到工作吗?还有Qos,RAS是什么东西?有人学吗?好象和编程不搭架的? 我的显卡OpenGL在Win2000下用不起来,驱动是对的,显卡是Creative TNT2 ?SOS D盘没了! 请教一条SQL语句 你们认为我是学VC好还是学BCB 请问哪里有VBscript函数的详细介绍呀? 如何在程序中给系统一个鼠标中键按下的信号?请给出详细的源代码 *********_____-------___---简单问题大送分!1!!!!!!!!!()()()))))))))))))))))))))()(((&&&&&&&&&& 关于java中的画矩形,详细内容情进 沈阳有没有要DELPHI或BCB开发的人呢?我不要钱白干不行? 为什么我使用了Win32组件提供的工具栏控件,也不能。。。。 一个错误 小学六年级第一次科学实验作文500字 论述辛亥革命的历史意义 材料二 在北京人生活的洞穴里,用火的遗迹十分集中 灰烬堆积很厚 材料二证明了什么?他所证明的史实有什么意义 人教版七年级(下)历史的中国历史填充图册第六课的答案 三场二串一什么意思 一堂有趣的实验课400字400字~450字,不要超过, 不锈钢薄板201不锈钢板和304不锈钢板有何区别.如果用1.5厚的201板、304板及Q235A冷板做钣金结构件,它们的强度有什么差别? 两串一什么意思 辛亥革命为什么会失败?它的失败说明了什么?如何评价辛亥革命的历史意义? 哪些行业需要用到不锈钢材料主要是不锈钢板,管材,角钢,六角棒,圆钢,扁钢,方管,方钢等...麻烦回答详细点, 铝合金人字梯和不锈钢人字梯哪种好 辛亥革命有什么重大历史意义? 不锈钢材料有哪些 家用五步梯子是不锈钢的好还是铝合金好? 不锈钢分多少种类? 单项选择第二条,该选哪一个 高强度不锈钢家用梯/铝合金梯子/折叠梯/5步梯 关于实验的作文(400字左右 选了3场比赛,过关方式2串一是什么意思 铝合金人字梯 玻璃钢人字梯哪个质量好 记一次实验!要400字以上,苏教版六年级下册的习作4,要写一次实验,最少400字!明天就要交~ 选择含义相同的两项是A 孙叔(为)婴儿时.昂首观之,项(为)之强B 恐他人又见,杀而埋(之)矣 见藐小(之)物必细察其纹理C 杀(而)埋之矣 学(而)时习之D 闻见两头之蛇(者)死 又闻有早行(者),见山上人 人字梯铝合金是何种铝合金?最好具体点~~密度?~谢谢了~~ 轻重工业在工业总产值表明我国当时工业化的特点是什么,结合 说明形成这个特点的必要性 我想问如果我选足球3场比赛,在自由过关中选2串1并同时选3串1,可以解释下意义吗 足球8串1是什么意思? 查找课外资料,结合教材内容简要说明马克思主义诞生的历史条件有哪些,它的诞生具有怎样的时代意义. 自称意思选1,还是21是自道姓名,2是自吹,表白. 请问足球竞猜,假如买5场,三串1呢.三串3呢,三串4?假如四串4,四串5呢? 用历史与现实材料说明中国人民选择社会主义道路的必要性和正确性近代史纲要的作业、、、、 求关于科学小实验的作文,过程要详写,600字以上那个, 各位高手请问竞彩足球的3串4, 亚光不锈钢、拉丝不锈钢和镜面不锈钢的区别 316材质钢与不锈钢有什么区别不锈钢有哪些种类 什么是不锈钢?不锈钢有什么特点?不锈钢有哪些分类? 拉丝不锈钢和镜面不锈钢的区别 足彩3串7什么意思 塑胶原料的正牌料和副牌料是什么意思? 拉丝不锈钢怎样用全自动抛光机抛成8K镜面,一般的液体蜡行吗 试了几种液体蜡都达不到效果,不知怎么办?急, 小学五年级科学实验作文500字,多谢了! 原料和新料是一个意思吗? 不锈钢做拉丝处理 和 镜面处理 两种工艺 那种磨损比较严重呢 手表里材质写的精钢和不锈钢有什么区别?哪种材质更好? 是鞋子哪部分是帮料 作文一次成功的尝试 400字 6串7 二次三项式 什么意思 一次危险的尝试作文400字 不锈钢与复合钢有什么区别 不锈钢的种类 有关“成功”的作文(400字) 足彩里的2串1与3串3有什么区别……都是至少猜中2场中奖,一个自由过关一个组合过关……求详细解答 按规律填数2.4.6.8.9.后面交个是什么 作文《一次成功的尝试》400字结尾 科学小论文600字 (小学六年级) 将自己做实验,明白到要发现,再探索,在知道真理仿照《真理诞生于一百个问号之后》的事例:就拿洗澡来说,这是一件非常普通的事情.然而,美国麻省理工学 辛亥革命的历史意义和对现在的影响? 电梯发纹不锈钢和拉丝不锈钢有什么区别,二者造价哪个贵啊 足彩4场比赛 是要猜对3场 还是4场?赛事编号 主队VS客队 让球 赔率 全场比分 您的选择 胆 周二004 法国U20 VS 韩国U20 0 1.70 -- -- 3:1 胜 - - 周二005 乌拉圭U20 VS 新西兰U20 -1 1.85 3.45 -- 1:1 胜 平 - 周三 辛亥革命的历史意义和历史影响是什么? 从材料中可以看出这是诸葛亮给谁的建议?此建议是否正确?结合史实说明 材料二反映了什么形势?材料一:“今操已拥百万之众,挟天子以令诸侯,此城不可与争锋.孙权据有江东,已历三世,国险
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn