找子窗口要用SPY++////////Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long 看里面的参数，第一个和第二个：ByVal hWnd1 As Long，ByVal hWnd2 As Long，这里都需要传入句柄，再看第三个和第四个：ByVal lpsz1 As String, ByVal lpsz2 As String，这里所要传入的是字符串。具体意思如下： hWnd1 ---------- Long，在其中查找子的父窗口。如设为零，表示使用桌面窗口（通常说的顶级窗口都被认为是桌面的子窗口，所以也会对它们进行查找） hWnd2 ---------- Long，从这个窗口后开始查找。这样便可利用对FindWindowEx的多次调用找到符合条件的所有子窗口。如设为零，表示从第绝物一个子窗口开始搜索 lpsz1 ---------- String，欲搜索的类名。零表示忽略，注意一般传入vbNullString lpsz2 ---------- String，欲搜索的类名。零表示忽略，注意一般传入vbNullString 用实践帮我们分析，这里还是拿记事本开刀。打开一个记事本，新建一个标准EXE，接着新建一个CommandButton，Caption设置为：设置文本。OK，写哗拆入以下代码： Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long Private Sub Command1_Click() Dim WindowHandle As Long, ChildWindowHandle As Long WindowHandle = FindWindow(vbNullString, "无标题 - 记事本") If WindowHandle Then '如果获取句柄成功 ChildWindowHandle = FindWindowEx(WindowHandle, 0, "Edit", vbNullString) If ChildWindowHandle Then '如果成功获取子句柄 EnableWindow ChildWindowHandle, False '禁用子窗口 Else MsgBox "无法获取子窗口" End If End If End Sub 好了，帮大家分析。看第一行：Dim WindowHandle As Long, ChildWindowHandle As Long，用于储存获取的句柄的。WindowHandle = FindWindow(vbNullString, "无标题 - 记事本")这个就不用讲了，上面已经讲过。 ChildWindowHandle = FindWindowEx(WindowHandle, 0, "Edit", vbNullString)，这一段是通过我们已经获取的记事本句柄获乱宏枣取其中的子窗口句柄。大家可以用Spy++查看到记事本的TextBox类，然后根据类名写入即可。 EnableWindow ChildWindowHandle, False 这又是一个新的API，虽然前面我没有前过，但是这个API使用起来及其简单。这个API中有两个参数，第一个理所当然是传入窗口句柄，第二个为Long变量，其实这里应该设为Boolean变量好些，主要是用来处理当前窗口是否可用。True可用，False禁用。 现在F5运行，记得打开记事本哦，然后点击Command1，看看能不能在记事本的文本框中输入字符串？是否被禁用了？
标签：FindWindowEx,用法
