1. 函数 Xkf_Search(str)
2.     定义变量 Array, i, hwnd, HwndEx
3.     令 HwndEx = Window.Search(str)
4.     向调试窗口输出：HwndEx
5.     令 Array = Split(HwndEx,"|")
6.     向调试窗口输出：UBound(Array)
7.     如果 UBound(Array) > 0 并且 UBound(Array) < 2 则
8.         令 hwnd = Array(0)
9.         弹出窗口 "已经找到带有:" & str & ":的窗口,其句柄为:" & hwnd
10.     否则
11.         弹出窗口 "没有找到窗口或者是已经打开了2个窗口"
12.     条件结束
13.     令 Xkf_Search = hwnd
14. 函数结束
15. 令 m = inputbox("请输入要模糊查找的窗口的标题关键字")
16. 调用 Xkf_Search(m)