窗口所有信息

弹出/写入 窗口所有信息 

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

运行环境:分辨率: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

窗口所有信息》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用*标注