vb5.0与windows api 间的呼叫技巧(二)（Calling skills between VB5.0 and windows API (two)）.docVIP

vb5.0与windows api 间的呼叫技巧(二)（Calling skills between VB5.0 and windows API (two)） AddressOf MyKBHFunc，Hinstance，0）的应用程序。 如此设定则每当按任一个键时，程式自动会去执行mykbhfunc这个钩子函数。 是由我们所定义，但是它是由窗口自动去呼叫，而不是由我们的程式呼叫，这类的 功能就叫回调函数。 以上面的例子来说，这个回调函数定义如下： ----------------------------------------------------------------------------- 公共函数的MyKBHFunc（ByVal iCode为长，_ ByVal wParam为长，ByVal lParam为长）长 mykbhfunc = 0 如果ICODE＜0则 mykbhfunc = CallNextHookEx方法（hnexthookproc，ICODE，wParam，lParam） 退出功能 最后如果 “侦测有没有按到PrintScreen键 如果wParam = vbkeysnapshot然后 mykbhfunc = 1 调试“打印”“哈哈” 最后如果 端功能 ----------------------------------------------------------------------------- 这个键盘钩子函数的目的主要是想拦截有没有按到打印屏幕这个键 这个键不会在形式，的keydown，按键，KeyUp事件中作用，所以只好透过键盘 RD钩去拦截。而回调函数放的位置有规定，一个是要与呼叫setwindowsho okex()的地方在同样的一个项目，另外，它只能存在於BAS档，不能放在其他地方。 的程式於范五键盘钩子。 范例五 ***************************************************************************** “以下程式於hook.bas 函数声明函数库“user32”的别名_ “setwindowshookexa”（ByVal idHook为长，ByVal lpfn为长，_ 一个必须为长，长为ByVal dwThreadId） 声明函数UnhookWindowsHookEx lib“user32”_ （ByVal hhook长）长 声明函数CallNextHookEx函数库“user32”（ByVal hHook为长，_ ByVal ncode为长，ByVal wParam为长，指向任何）长 公共hnexthookproc长 公共建设hc_action = 0 公共建设wh_keyboard = 2 公共子unhookkbd() 如果hnexthookproc 0 hnexthookproc UnhookWindowsHookEx hnexthookproc = 0 最后如果 端子 公共功能enablekbdhook() 如果hnexthookproc 0 退出功能 最后如果 hnexthookproc = SetWindowsHookEx（wh_keyboard，地址_ MyKBHFunc，Hinstance，0）的应用程序。 如果hnexthookproc 0 enablekbdhook = hnexthookproc 最后如果 端功能 公共函数的MyKBHFunc（ByVal iCode为长，_ ByVal wParam为长，ByVal lParam为长）长 “这三个参数是固定的，不能动，而mykbhfunc这个名称只要和 “setwindowshookex()中地址後的名称一样便可，不一定叫什麽 mykbhfunc = 0 如果ICODE＜0则 mykbhfunc = CallNextHookEx方法（hnexthookproc， ICODE，wParam，lParam） 退出功能 最后如果 如果wParam = vbkeysnapshot然后侦测有没有按到PrintScreen键 mykbhfunc = 1 调试“打印”“哈哈” 最后如果 端功能 “以下程式於形式 私有子form_load() 电话enablekbdhook 端子 私有子form_unload（取消为整数） 电话unhookkbd 端子 ***************************************************************************** 七、自订型态的传递 因这只要用ByRef的方式来做就没有什麽大的问题，故不做说明。 八、综合应用 我们再以一个实例来说明赢得在VB5中呼叫的技巧有一个函式