tion  Xkf_Search(str)
Dim Array,i,hwnd,HwndEx
HwndEx = Plugin.Window.Search(str)
TracePrint HwndEx
Array = Split(HwndEx, "|")
TracePrint UBound(Array)
If UBound(Array) > 0 and UBound(Array)<2 Then 
	hwnd = Array(0)
	MessageBox "已经找到带有:"&str&":的窗口,其句柄为:"&hwnd	
	Else 
	MessageBox "没有找到窗口或者是已经打开了2个窗口"	
End If
Xkf_Search=hwnd
End Function
m = inputbox("请输入要模糊查找的窗口的标题关键字")

Call Xkf_Search(m)