模糊查找当前窗口包含关键字标题的窗口句柄

运行环境：分辨率：1280×800 色深：32位 操作系统：Microsoft Windows XP 按键精灵版本：8.20.7921

@feng3702011/2/25

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)