弹出/写入 窗口所有信息 

把想要窗口信息的窗口放在最前面 

运行环境：分辨率：1024×768 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.4148

@aa85517582009/6/24

UserVar u=DropList{是:值1|否:值2}=0 是否将内容写入记事本   UserVar L=C:\ 请输入记事本路径(选"是"才有效↑)   //下面这句是得到当前最前面的窗口句柄   Plugin Hwnd = Window.Foreground()   //下面这句是得到窗口句柄的标题   Plugin biaoti = Window.GetText(Hwnd)   //下面这句是得到窗口句柄的类名   Plugin leiming = Window.GetClass(Hwnd)   //下面这句是得到窗口句柄的路径   Plugin luj = Window.GetExePath(Hwnd)   //下面这句是得到窗口句柄的客户区大小   Plugin daxiao = Window.GetClientRect(Hwnd)   //下面这句是得到窗口句柄的边框大小(包括标题栏)   Plugin biandax = Window.GetWindowRect(Hwnd)   //序列号   Plugin XU=GetSysInfo.GetHDDSerialNumber()   //获取当前操作系统类型   Plugin xt=GetSysInfo.GetOSType()   //当前鼠标在窗口中的位置   VBSCall GetCursorPos(x,y)   Plugin win=BGKM5.ScrToCli(hw,x,y)   If xt=1       xt="WiNt/2000/XP"   Else        xt="Win98"   EndIf    MessageBox "标题为:"&biaoti&Vbcrlf&"类名为:"&leiming&Vbcrlf&"路径为:"&luj&Vbcrlf&"客户区大小为:"&daxiao&Vbcrlf&"边框大小(包括标题栏)为"&biandax&Vbcrlf&"操作系统类型为:"&xt&Vbcrlf&"序列号为:"&XU&Vbcrlf&"当前鼠标在窗口中的位置为:"&win   If u="值1"       //下面这句是向目标文件(".\Log.txt")写入文本内容("内容")       Plugin File.WriteFileEx(L, "最前面的窗口句柄是:")       Plugin File.WriteFileEx(L,Hwnd)       Plugin File.WriteFileEx(L, "最前面的窗口标题是:")       Plugin File.WriteFileEx(L,biaoti)       Plugin File.WriteFileEx(L, "窗口句柄的类名是:")       Plugin File.WriteFileEx(L,leiming)       Plugin File.WriteFileEx(L, "窗口句柄的路径是:")       Plugin File.WriteFileEx(L,luj)       Plugin File.WriteFileEx(L, "窗口句柄的客户区大小是:")       Plugin File.WriteFileEx(L,daxiao)       Plugin File.WriteFileEx(L, "窗口句柄的边框大小(包括标题栏):")       Plugin File.WriteFileEx(L,biandax)       Plugin File.WriteFileEx(L, "序列号是:")       Plugin File.WriteFileEx(L,XU)       Plugin File.WriteFileEx(L, "操作系统类型:")       Plugin File.WriteFileEx(L,xt)       Plugin File.WriteFileEx(L, "当前鼠标在窗口中的位置是:")       Plugin File.WriteFileEx(L,win)   Else    EndIf