弹出/写入 窗口所有信息
把想要窗口信息的窗口放在最前面
运行环境:分辨率:1024×768 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.4148
@aa8551758 2009/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
Plugin.File.WriteFileEx(