易语言运用函数，寻找顶级窗口（ FindWindow ）下的两个参数，1窗口句柄，2窗口文本，参数

寻找窗口句柄可以自己写的。首先建立一个易语言窗口，需要的组件有：一个时钟，一个编辑框就可以了，点击启动窗口选择下拉事件创建完毕，进入代码编写区，编写：时钟1时钟周期 = 1000，然后回到窗口界面双击时钟组件，回到代码编写区域编写：编辑框1内容 = 到文本（取鼠标所在窗口句柄），点击运行，你就可以在编辑框里看到鼠标所指的任何窗口的句柄了。

'创建一个列表框和一个按钮

'API函数定义

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Const GW_HWNDFIRST = 0

Const GW_HWNDNEXT = 2

Private Sub Command1_Click()

Dim s As Long

Dim a As String

a = Space(255)

s = GetWindow(Mehwnd, GW_HWNDFIRST) '获得句柄

GetWindowText s, a, 255 '获得标题

Dim ab As String 255

GetClassName s, ab, 255 '获得类名

Dim ClassName As String

ClassName = StripTerFlag(ab) 'StripTerFlag是一个自定义函数,后面有代码,用于去处结束符

If UCase(ClassName) = "NOTEPAD" Then

List1AddItem a

List1ItemData(List1ListCount - 1) = s

End If

Do While s

DoEvents

s = GetWindow(s, GW_HWNDNEXT) '获得句柄

GetWindowText s, a, 255 '获得标题

GetClassName s, ab, 255 '获得类名

ClassName = StripTerFlag(ab)

If UCase(ClassName) = "NOTEPAD" Then

List1AddItem a

List1ItemData(List1ListCount - 1) = s

End If

Loop

End Sub

Private Sub List1_Click()

MsgBox List1ItemData(List1ListIndex) '单击列表框获得句柄

End Sub

以上就是关于易语言运用函数，寻找顶级窗口（ FindWindow ）下的两个参数，1窗口句柄，2窗口文本，参数全部的内容，包括:易语言运用函数，寻找顶级窗口（ FindWindow ）下的两个参数，1窗口句柄，2窗口文本，参数、vb 获取窗口句柄、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！