@_@，用BASIC做全局钩子的问题

问题说明有点长，发不了，我发在VB吧：
网址：http://post.baidu.com/f?kz=237310169
问题很长，在这发不出来，那个网址可以看到阿，vb吧的
‘**********************
我晕，灌了两天水才攒到200分，竟然没人回...
‘**************************************
呃...看了下beisiren的代码，我有个问题，就是，和我的代码有什么不同（和我在VB吧中7楼发出的代码一样）？？？？
作者： ilvn 2007-7-29 15:28 回复此发言
‘****************************************
汗我自己解决了，二楼的，你的代码错的，你自己试试看看吧，只是局部钩子

???
楼住到底要问什么?

FUNCTION HOOK(BYVAL nCode AS LONG,BYVAL _
wParam AS LONG,BYVAL lParam AS LONG)EXPORT AS LONG
LOCAL Retval AS LONG

IF nCode <0 THEN
CallNextHookEx(H_HOOK,nCode,wParam,lParam)
PRINT #1,str$(nCode) & " " & " " _
& str$(wParam) & " "& _ str$(lParam)
ELSEIF nCode = %HCBT_DESTROYWND THEN
IF NOW_WIN = %WIN_GS THEN
MSGBOX "是否保存？？"
PRINT #1,"%WIN_GS"
END IF'

IF NOW_WIN = %WIN_KD THEN
Retval = MsgBox("保存了吗？？？？？", _
%MB_ICONERROR OR %MB_YESNO, "询问")
PRINT #1,"%WIN_KD"
END IF

IF NOW_WIN = %WIN_OTHER THEN
MSGBOX "OTHER"
PRINT #1,"OTHER"
END IF
PRINT #1,"检测到：" & str$(nCode) & ＿