用易语言开发 用鼠标取窗口句柄 代码

以下是用易语言开发用鼠标取窗口句柄的代码：

'窗口句柄
Dim hWnd As Long

'鼠标点击事件
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '获取鼠标所在位置对应的窗口句柄
    hWnd = WindowFromPoint(X, Y)
End Sub

'鼠标移动事件
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '如果有窗口句柄
    If hWnd <> 0 Then
        '显示窗口句柄
        Label1.Caption = "窗口句柄：" & hWnd
    End If
End Sub

'鼠标松开事件
Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '清空窗口句柄
    hWnd = 0
    Label1.Caption = ""
End Sub

这段代码实现了在窗口上点击鼠标左键后，可以获取鼠标所在位置对应的窗口句柄，并在鼠标移动时显示窗口句柄。需要注意的是，此代码只能获取当前鼠标所在位置对应的窗口句柄，如果需要获取其他窗口句柄，需要修改相应的参数。