用易语言实现获取窗口句柄

获取窗口句柄可以使用Windows API函数FindWindow或FindWindowEx。以下是用易语言实现获取窗口句柄的示例代码：

' 引入Windows API函数
Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long
Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" (ByVal hwndParent As Long, ByVal hwndChildAfter As Long, ByVal lpClassName As Any, ByVal lpWindowName As Any) As Long

' 查找指定窗口标题的顶级窗口句柄
Function FindTopLevelWindow(ByVal Title As String) As Long
    FindTopLevelWindow = FindWindow(vbNull, StrPtr(Title))
End Function

' 查找指定父窗口和窗口标题的子窗口句柄
Function FindChildWindow(ByVal ParentHwnd As Long, ByVal ClassName As String, ByVal Title As String) As Long
    FindChildWindow = FindWindowEx(ParentHwnd, 0, StrPtr(ClassName), StrPtr(Title))
End Function

' 示例用法
Sub Main()
    Dim hWnd As Long
    ' 查找记事本主窗口句柄
    hWnd = FindTopLevelWindow("无标题 - 记事本")
    If hWnd <> 0 Then
        ' 查找记事本编辑框子窗口句柄
        hWnd = FindChildWindow(hWnd, "Edit", vbNullString)
        If hWnd <> 0 Then
            MsgBox "找到编辑框句柄：" & hWnd
        Else
            MsgBox "未找到编辑框句柄"
        End If
    Else
        MsgBox "未找到记事本主窗口句柄"
    End If
End Sub

上述代码中，FindWindow函数用于查找顶级窗口句柄，FindWindowEx函数用于查找子窗口句柄。函数的参数lpClassName和lpWindowName分别表示窗口类名和窗口标题，可以通过vbNull或vbNullString表示为空。StrPtr函数用于将字符串转换为指向该字符串的指针，以便传递给API函数。