수다닷컴

키보드 락 거는 소스를 마우스로 바꿔보았습니다. 잘못된것좀 고쳐주세요~
채팅창에서 대기중입니다. 소스가 부족하거나 좀 아까 올린글에 대한 답변하시게 되면 채팅창에서 대화했으면 해요
Public Function LowLevelMouseProc(ByVal nCode As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

If (nCode = 0) Then
If wParam = WM_LBUTTONDOWN Or wParam = WM_RBUTTONDOWN Then
CopyMemory p, ByVal lParam, Len(p)
If p.vkCode = VK_RMOUSEDOWN Then
fEatKeystroke = True
End If
End If
End If

If fEatKeystroke Then
LowLevelMouseProc = -1
Else
LowLevelMouseProc = CallNextHookEx(0, nCode, wParam, ByVal lParam)
End If
End Function

신청하기