Vb 全局热建的问题(如何做到判断键盘松开按下)

Public Function Wndproc(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
If wParam = idHotKey Then
Dim lp As taLong, i2 As t2Int
lp.ll = lParam
LSet i2 = lp
If (i2.lWord = Modifiers) And i2.hWord = uVirtKey Then
Shell "Notepad", vbNormalFocus
End If
End If
End If
'如果不是热键信息则调用原来的程序
Wndproc = CallWindowProc(preWinProc, hwnd, Msg, wParam, lParam)

End Function

这段代码是网上找的,相信懂Vb的不陌生....
例如我注册的热建是G那么怎么判断是否按下了G.
当然这里你按下了G是执行的代码的.但你不松开的话会一直执行....
如何做到一直按着也执行1次..似乎说可以用lParam来判断,我在另外的一段代码里找到显示这个的按下和松开和一直按着的lParam玛都不一样,如何做到这种的判断呢..

Vb 全局热建的问题(如何做到判断键盘松开按下) VB 如何实现全局热键？ 关于vb中全局热键的一点小问题 谁有好的VB全局钩子代码？ 如何做到QQ的抽屉效果？ vb Vb一个比较高难度?的问题(热建的) CAD的全局显示问题 vb中关于“热字”的问题。 vb 全局快捷键 api vb 如何做全局热键？就是不管当前窗口是那个，都可以按键叫出自己的程序。