扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:刘涛 来源:yesky 2007年10月14日
关键字:
0 | 1 | …… | 15 | 16 | ……… | 23 | 24 | 25 | …… | 28 | 29 | 30 | 31 |
Public hHook as Long Private Sub Form_Load()′程序启动时安装钩子 hHook=SetWindowsHookEx(2,Address of MyKBHook,0,App.ThreadID) End Sub ′具体的钩子程序,本例中该过程被包含在Module1中 Public Function MyKBHook(ByVal nCode As Long,ByVal wParam As Long,ByVal lParam As Long)As Long If nCode>=0 then Open "C:\Keyfile.txt" For Append As #1 '将键盘的操作记录在Keyfile.txt文件之中 '记录所操作的键、操作时间、日期操作时的按键状态,用16进制记录 Write #1,wParam,Hex(lParam),Date,time Close #1 MyKBHook=0 '表示要处理这个消息 '屏蔽ALT+F4组合键 if wParam=115 And(lParam And&H20000000)<>0 Then if(lParam And &HC000000)=0 Then '是否进行ALT+F4操作 MyHBHook=1 '钩子吃掉这个消息 End if End if End if Call CallNextHookEx(hHook,nCode,wParam,lParam)'将消息传给下一个钩子 End Function '程序退出时卸载钩子 Private Sub Form_Unload(Cancel As Interger) Call Unhook WindowsHookEx(hHook) End Sub |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。