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