P.T.A.M.
Administrator
Joined: 08 Oct 2003
Posts: 752
Location: Greece
|
 Posted: Oct 10th, 2003 07:49 AM Post subject: Detect Mouse Move System Wide |
 |
|
| Code: | Option Explicit
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim Z As POINTAPI
Dim Temp As POINTAPI
Private Sub tmrMouse_Timer()
Temp.X = Z.X
Temp.Y = Z.Y
GetCursorPos Z
If Temp.X <> Z.X Or Temp.Y <> Z.Y Then
Debug.Print "mouse move"
End If
End Sub
Private Sub Form_Load()
GetCursorPos Z
tmrMouse.Interval = 100
End Sub |
_________________
No one is completely useless. They can at least be an example of what to avoid. |
|
