100分求一段代码！关于检测鼠标状态的！

Question

要求是这样的，当按下鼠标左键事提示“按下”，当放开的时候提示“放开”，别告诉我用mouseup和mousedown，这个我知道，我要的是在任何地方操作都能检测到的代码！

Answer 1

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As IntegerPrivate Sub Form_Load()
  Timer1.Interval = 10
End SubPrivate Sub Timer1_Timer()
Dim x As Long
x = GetAsyncKeyState(1) '左键
If x = -32767 Then
 debug.print "左键"
End Ifx = GetAsyncKeyState(2) '右键
If x = -32767 Then
 debug.print "右键"
End If
End Sub
或用钩子实现吧

Answer 2

用GetAsyncKeyState 或者键盘钩子

Answer 3

用GetAsyncKeyState只能检测到是鼠标左键还是右键单击，不能检测按下和弹起，很多人都告诉我用钩子实现，但有是一说，没有人举出里子，如果谁能提供dll文件也可以，100整，谁帮我解决了问题我就给谁！

Answer 4

鼠标钩子的例子：
http://dev.csdn.net/develop/article/31/31462.shtm

Answer 5

rainstormmaster(暴风雨 v2.0) 的方法只能用在窗口里，不能应用在屏幕的任何地方或其他程序窗口中，所以我是我想要的代码！

Answer 6

我的问题解决了，用的是这个代码
http://www.sijiqing.com/vbgood/forum/forum_posts.asp?TID=13586&PN=1
但是还是感谢各位的帮助！