按键精灵获取窗口信息脚本源码

　　该脚本查找当前窗口的子窗体，包括按钮、标签、图像、列表框等，并将这些子窗体的窗口句柄、类名、坐标信息，保存到c盘根目录下的log.txt文件中。 

　　该脚本主要举例说明以下功能： 

　　1、文本文件的读写操作。 

　　2、Window插件的调用演示。 

　　3、如何从一个长字符串中，按特定的格式分解出所需要的数据——Split函数使用 

　　4、数组元素的使用方法。 

5、循环语句的使用。 

　　4、如何调用软件（RunApp的使用）。 

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@兄弟工程师01 2009/3/19

//先定义变量是一个好习惯  
dim handle,handle1, s,s1,s2,s3, MyArray,parentH, fileHandle  
set TiShiObj = createobject("WScript.Shell")  
//=================== 主程序 ======================  
//创建一个文件名为  
fileHandle ="c:\log.txt"  
//调用子程序  
Gosub 查找窗体  
//用笔记本软件打开刚才保存的文件  
VBSCall RunApp(fileHandle)  
Rem 结束  
//弹出对话框,显示程序结束  
Call TiShiObj.Popup("程序终止运行",3,"3秒后窗口自动关闭",0)  
//msgbox "程序终止运行",64,"程序终止运行"  
//程序结束  
EndScript   
//================== 子程序 ========================  
Sub 查找窗体  
    //获取当前窗口的句柄  
    Plugin parentH = Window.Foreground()  
    //如果当前无窗口,则结束程序  
    If parentH = 0  
        VBSCall MessageBox("没有找到父窗口，程序结束")  
        Goto 结束  
    EndIf   
    //变量初始化  
    handle=1  
    handle1=0  
    //一直循环查找到子窗口,直到找不到为止  
    While handle<>0  
        //查找当前窗口的子窗口  
        Plugin handle = Window.FindEx(parentH, handle1,0,0)  
        //如果找到子窗口  
        If handle <> 0  
            //获取子窗口的信息, GetClientRect 返回的信息是一个字符串, 格式如:123|356|200|400  
            Plugin s = Window.GetClientRect(handle)  
            //按|对上面的字符串进行分割, 并保存到数组里面  
            //Split进行分割后, MyArray数组中的数组如下:  
            // MyArray(0) = 123  <---窗口的左边坐标  
            // MyArray(1) = 356  <---窗口的上边坐标  
            // MyArray(2) = 200  <---窗口的宽度  
            // MyArray(3) = 400  <---窗口的高度  
            //注意: 数组的第一个元素, 读取的时候是 MyArray(0), 而不是  MyArray(1)  
            //即数组元素的下标是从 0 开始, 而不是从 1 开始的  
            MyArray = Split(s, "|", -1, 1)  
            //用 & 连字符, 将各数组连接起来  
            s = "坐标(x,y)：" & MyArray(0) & "," & MyArray(1) & " 宽度，高度：" & MyArray(2) & "," & MyArray(3)  
            //获取窗口的类名称  
            Plugin s1 = Window.GetClass(handle)  
            s1 = "类名: " & s1  
            //获取窗口的标题  
            Plugin s2 = Window.GetText(handle)  
            s2 = ",标题：" & s2  
            s3 = " 句柄： " & CStr(handle)  
            //保存上面的各种信息写到文件中,即c:\log.txt  
            If fileHandle <> -1  
                Plugin File.WriteFile(fileHandle, s1 & s2 & s & s3)  
            EndIf   
        EndIf   
        //更新handle1的值,以保证循环继续  
        handle1 = handle  
    EndWhile   
Return 查找窗体