1. 用户定义变量 u=DropList{是:值1|否:值2}=0 是否将内容写入记事本
2. 用户定义变量 L=C:\ 请输入记事本路径(选"是"才有效↑)
3. //下面这句是得到当前最前面的窗口句柄
4. 调用插件命令 Hwnd = Window.Foreground()
5. //下面这句是得到窗口句柄的标题
6. 调用插件命令 biaoti = Window.GetText(Hwnd)
7. //下面这句是得到窗口句柄的类名
8. 调用插件命令 leiming = Window.GetClass(Hwnd)
9. //下面这句是得到窗口句柄的路径
10. 调用插件命令 luj = Window.GetExePath(Hwnd)
11. //下面这句是得到窗口句柄的客户区大小
12. 调用插件命令 daxiao = Window.GetClientRect(Hwnd)
13. //下面这句是得到窗口句柄的边框大小(包括标题栏)
14. 调用插件命令 biandax = Window.GetWindowRect(Hwnd)
15. //序列号
16. 调用插件命令 XU=GetSysInfo.GetHDDSerialNumber()
17. //获取当前操作系统类型
18. 调用插件命令 xt=GetSysInfo.GetOSType()
19. //当前鼠标在窗口中的位置
20. 调用外部VBScript子程序 得到鼠标当前位置(x,y)
21. 调用插件命令 win=BGKM5.ScrToCli(hw,x,y)
22. 如果表达式 (xt=1) 为真,则
23.     xt="WiNt/2000/XP"
24. 否则
25.     xt="Win98"
26. 条件结束
27. 弹出窗口 "标题为:"&biaoti&Vbcrlf&"类名为:"&leiming&Vbcrlf&"路径为:"&luj&Vbcrlf&"客户区大小为:"&daxiao&Vbcrlf&"边框大小(包括标题栏)为"&biandax&Vbcrlf&"操作系统类型为:"&xt&Vbcrlf&"序列号为:"&XU&Vbcrlf&"当前鼠标在窗口中的位置为:"&win
28. 如果表达式 (u="值1") 为真,则
29.     //下面这句是向目标文件(".\Log.txt")写入文本内容("内容")
30.     调用插件命令 File.WriteFileEx(L, "最前面的窗口句柄是:")
31.     调用插件命令 File.WriteFileEx(L,Hwnd)
32.     调用插件命令 File.WriteFileEx(L, "最前面的窗口标题是:")
33.     调用插件命令 File.WriteFileEx(L,biaoti)
34.     调用插件命令 File.WriteFileEx(L, "窗口句柄的类名是:")
35.     调用插件命令 File.WriteFileEx(L,leiming)
36.     调用插件命令 File.WriteFileEx(L, "窗口句柄的路径是:")
37.     调用插件命令 File.WriteFileEx(L,luj)
38.     调用插件命令 File.WriteFileEx(L, "窗口句柄的客户区大小是:")
39.     调用插件命令 File.WriteFileEx(L,daxiao)
40.     调用插件命令 File.WriteFileEx(L, "窗口句柄的边框大小(包括标题栏):")
41.     调用插件命令 File.WriteFileEx(L,biandax)
42.     调用插件命令 File.WriteFileEx(L, "序列号是:")
43.     调用插件命令 File.WriteFileEx(L,XU)
44.     调用插件命令 File.WriteFileEx(L, "操作系统类型:")
45.     调用插件命令 File.WriteFileEx(L,xt)
46.     调用插件命令 File.WriteFileEx(L, "当前鼠标在窗口中的位置是:")
47.     调用插件命令 File.WriteFileEx(L,win)
48. 否则
49. 条件结束