关于系统全局监测鼠标两次连续单击之间的时间差

苦寻数日网上资料,但仍无答案,特来求助.

我意思是 有点像 系统全局热键。

不管这个VB窗体有没有获得焦点。

只要 快速2次单击鼠标(随便在windows的什么地方,或者在其他进程窗口里)

VB程序就计算出这2个单击之间的时间差.

再说的直白点 有点类似木马监视鼠标

但我 只要知道 鼠标2次快速单击时的时间差就行.

望能给出完整的代码以供学习,再次感谢.

如需要涉及到钩子,请给出钩子代码或者文件(尽量别用钩子)

最好直接是API里的.非常感谢.

[此贴子已经被作者于2007-10-12 10:33:20编辑过]

在mousedown和mouseup中记录时间，再进行计算，不知道可不可以，或者可以用API函数GetTickCount，我没试过，哈哈，不过这是我的思路

LS的思路很好，我赞同！

Private Declare Function GetTickCount Lib "kernel32" () As Long
GetTickCoun '精确到毫秒

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

MeTime = GetTickCount

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

MeTime = GetTickCount - MeTime

Print MeTime


End Sub


看看这行不?

获得鼠标双击间隔时间：
Private Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long
函数返回以毫秒为单位的鼠标双击间隔时间。

设置鼠标双击间隔时间


Private Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long

其中的参数 wCount 为以毫秒为单位的新的时间间隔的长度。

同意5楼的

4楼的应该是需要在窗体(也就是说这个VB程序需要获得焦点)上点击

5楼的只能得到鼠标设置板里的设置和更改.

我想做的就是类似:

这么说吧,就是类似外挂,在游戏里 按F9呼叫出来.
而我要换成2个快速点击鼠标左键(假如2次单击时间差 <= 800 '毫秒)
即可呼叫出VB窗体来

我这样形容是否明白了(我并不是做外挂,但我只能这么形容了汗).

请帮帮忙谢谢.

搜索“智能电教系统”，里面有类似的钩子。