怎么获得鼠标所在位置的句柄?

Question

如何过滤有害信息?

Answer 1

GetCursorPos() API返回屏幕鼠标位置。 WindowFromPoint()API从鼠标位置返回窗口HWND句柄

Answer 2

请你参考下列代码：
'获取目前选择的鼠标指针的句柄
Private Declare Function GetCursorPos Lib "USER32" (lpPoint As POINTAPI) As Long
'返回包含了指定点的窗口的句柄
Private Declare Function WindowFromPoint Lib "USER32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Type POINTAPI
X1 As Long
Y1 As Long
End Type'获得句柄：
Dim hwnd As Long
Dim pt As POINTAPI
GetCursorPos pt '取得鼠标坐标信息
hwnd = WindowFromPoint(pt.X1, pt.Y1)'获取句柄