//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