Chủ đề dò tìm vị trí của chuột trên màn hình khá thú vị, vì nó là cơ sở để giải quyết bài toán tạo các ứng dụng tự động (can thiệp vào ứng dụng khác thông qua các sự kiện click và di chuyển chuột).
Detect Mouse Movement :
Đã test trên win 7, office 2013, chạy rất tốt.
Nguồn tham khảo:
Detect Mouse Movement :
Mã:
Public Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Type POINTAPI
x As Long
y As Long
End Type
Sub PositionXY()
Dim lngCurPos As POINTAPI
Do
GetCursorPos lngCurPos
Range("A1").Value = "X: " & lngCurPos.x & " Y: " & lngCurPos.y
DoEvents
Loop
End Sub
Bạn cần đăng nhập để thấy hình ảnh
Nguồn tham khảo:
Bạn cần đăng nhập để thấy link