enumwindow函数为什么无法遍历窗口

[menuvb]

EnumWindows AddressOf EnumProc, 0 '遍查窗口

为什么我只能查找出一个，放在TIME事件也不行，！

[佛的光辉]

EnumProc代码怎么写的

[wumy_ld]

up

[刘洪峰AIoT]

Public Function GetZiWin(window_hwnd As Long) As String
Dim buflen As Long
Dim child_hwnd As Long
Dim children() As Long
Dim num_children As Integer
Dim i As Integer

'取得类名
buflen = 256
buf = Space$(buflen - 1)
buflen = GetClassName(window_hwnd, buf, buflen)
buf = Left$(buf, buflen)

If Right(buf, 4) = "Edit" Then
'----------
hWindow = window_hwnd
'----------
Exit Function
Else
hWindow = 0
End If


num_children = 0
child_hwnd = GetWindow(window_hwnd, GW_CHILD) '取得第 1 个子窗口的句柄
Do While child_hwnd <> 0 '如果有子窗口
num_children = num_children + 1
ReDim Preserve children(1 To num_children)
children(num_children) = child_hwnd

child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT) '取得下一个兄弟窗口的句柄
Loop

For i = 1 To num_children
Call GetZiWin(children(i))
Next i
End Function


Public Function EnumProc(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean '遍查主窗口

Dim buf As String * 1024
Dim length As Long
Dim Title As String

length = GetWindowText(app_hwnd, buf, Len(buf))
Title = Left$(buf, length)

If InStr(Title, "发送消息") Then '判断是否为
Call GetZiWin(app_hwnd)
End If

EnumProc = 1

End Function