//0表示忽略
//下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
Hwnd = Plugin.Window.Find("TaddjcBaseDlg", "数据检测")
TracePrint "查找到的父窗口句柄为:" & Hwnd
tt = 0
TmpHdr = Hwnd
Dim a(6000)
a(0)=Hwnd
Call ss(0, 1, "TEasyGrid")//调用函数,第一个参数为数组0位的父窗口,第二参数默认为1,第三参数为查找的类型
Function ss(x, y, b)
Do
Rem xx
a(y) = Plugin.Window.FindEx(a(x), 0, 0, 0)
If a(y) > 0 Then 
//TracePrint a(y)    
End If
If a(y) =66650 Then 
Exit Do
    
End If
Rem dd
If a(y) > 0 Then 
 y = y + 1
 
    a(y) = Plugin.Window.FindEx(a(x), a(y - 1), 0, 0)
//    TracePrint y
//    TracePrint a(y)
    
    sClass = Plugin.Window.GetClass(a(y))
    If sClass = ""&b&"" Then 
        TracePrint a(y)
    End If
    Goto dd
    Else 
    x = x + 1
//    TracePrint x
//    TracePrint a(x)
    Goto xx
    
End If
 Loop    
End Function