- 用户定义变量 u=DropList{是:值1|否:值2}=0 是否将内容写入记事本
- 用户定义变量 L=C:\ 请输入记事本路径(选"是"才有效↑)
- //下面这句是得到当前最前面的窗口句柄
- 调用插件命令 Hwnd = Window.Foreground()
- //下面这句是得到窗口句柄的标题
- 调用插件命令 biaoti = Window.GetText(Hwnd)
- //下面这句是得到窗口句柄的类名
- 调用插件命令 leiming = Window.GetClass(Hwnd)
- //下面这句是得到窗口句柄的路径
- 调用插件命令 luj = Window.GetExePath(Hwnd)
- //下面这句是得到窗口句柄的客户区大小
- 调用插件命令 daxiao = Window.GetClientRect(Hwnd)
- //下面这句是得到窗口句柄的边框大小(包括标题栏)
- 调用插件命令 biandax = Window.GetWindowRect(Hwnd)
- //序列号
- 调用插件命令 XU=GetSysInfo.GetHDDSerialNumber()
- //获取当前操作系统类型
- 调用插件命令 xt=GetSysInfo.GetOSType()
- //当前鼠标在窗口中的位置
- 调用外部VBScript子程序 得到鼠标当前位置(x,y)
- 调用插件命令 win=BGKM5.ScrToCli(hw,x,y)
- 如果表达式 (xt=1) 为真,则
- xt="WiNt/2000/XP"
- 否则
- xt="Win98"
- 条件结束
- 弹出窗口 "标题为:"&biaoti&Vbcrlf&"类名为:"&leiming&Vbcrlf&"路径为:"&luj&Vbcrlf&"客户区大小为:"&daxiao&Vbcrlf&"边框大小(包括标题栏)为"&biandax&Vbcrlf&"操作系统类型为:"&xt&Vbcrlf&"序列号为:"&XU&Vbcrlf&"当前鼠标在窗口中的位置为:"&win
- 如果表达式 (u="值1") 为真,则
- //下面这句是向目标文件(".\Log.txt")写入文本内容("内容")
- 调用插件命令 File.WriteFileEx(L, "最前面的窗口句柄是:")
- 调用插件命令 File.WriteFileEx(L,Hwnd)
- 调用插件命令 File.WriteFileEx(L, "最前面的窗口标题是:")
- 调用插件命令 File.WriteFileEx(L,biaoti)
- 调用插件命令 File.WriteFileEx(L, "窗口句柄的类名是:")
- 调用插件命令 File.WriteFileEx(L,leiming)
- 调用插件命令 File.WriteFileEx(L, "窗口句柄的路径是:")
- 调用插件命令 File.WriteFileEx(L,luj)
- 调用插件命令 File.WriteFileEx(L, "窗口句柄的客户区大小是:")
- 调用插件命令 File.WriteFileEx(L,daxiao)
- 调用插件命令 File.WriteFileEx(L, "窗口句柄的边框大小(包括标题栏):")
- 调用插件命令 File.WriteFileEx(L,biandax)
- 调用插件命令 File.WriteFileEx(L, "序列号是:")
- 调用插件命令 File.WriteFileEx(L,XU)
- 调用插件命令 File.WriteFileEx(L, "操作系统类型:")
- 调用插件命令 File.WriteFileEx(L,xt)
- 调用插件命令 File.WriteFileEx(L, "当前鼠标在窗口中的位置是:")
- 调用插件命令 File.WriteFileEx(L,win)
- 否则
- 条件结束