求一获得窗口句柄的源码

Question

曾经看到一个获得窗口句柄窗口类及窗口标题的源码,现在想用怎么也找不到了,希望那个知道帮忙告诉一下,大致是这样的:
该源码的对话框上有一十字图标,想瞄准镜一样的,拖动此图标到任一窗口松开,即可显示该窗口的信息.
有谁有源码发一个也行啊qq 65363033

Answer 1

在工程中加一个Timer，Interval = 300，搂主可以根据这个代码修改一下Option Explicit
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Type PointAPI
    x As Long
    y As Long
End Type
Private Sub Timer1_Timer()
    Dim CurrentPoint As PointAPI
    Dim hwnd As Long
    Dim WndText As String * 5000
    
    GetCursorPos CurrentPoint
    hwnd = WindowFromPoint(CurrentPoint.x, CurrentPoint.y)
    GetWindowText hwnd, WndText, 5000
    Debug.Print "Handle：" & Str(hwnd) & vbCrLf & "Caption: " & WndText
    GetClassName hwnd, WndText, 5000
    Debug.Print "ClassName: " & WndText
End Sub

Answer 2

句柄= WindowFromPoint(CurrentPoint.x, CurrentPoint.y)

Answer 3

http://www.mndsoft.com/downfiles/EliteSpy.rar

Answer 4

http://www.mndsoft.com/downfiles/EliteSpy.rar
应该是这个
下下去看看吧