Static lX As Long, lY As Long
Dim P As POINTAPI, h As Long, hD As Long, r As Long
GetCursorPos(P)
lX = P.X
lY = P.Y
h = WindowFromPoint(lX, lY) '取得点所在控件的句柄
hD = GetDC(h)
ScreenToClient(h, P)
r = GetPixel(hD, P.X, P.Y)
ReleaseDC(h, hD)
TextBox1.Text = h
TextBox2.Text = hD
Dim WindowText As String, ClassName As String
WindowText = StrDup(64, " ")
GetWindowText(TextBox1.Text, WindowText, Len(WindowText))
ClassName = StrDup(64, " ")
GetClassName(TextBox1.Text, ClassName, 64)
TextBox3.Text = WindowText