HwndEx = Plugin.Window.Search("窗口")
dim MyArray
MyArray = Split(HwndEx, "|")
If UBound(MyArray)>0 Then
i=0
For UBound(MyArray)
Msgbox "第 "& i+1 &" 个窗口句柄为:"&Clng(MyArray(i))
i=i+1
Next
Else
MessageBox "没有发现“窗口”"
End If