2. SetEnvironmentVar "SpkStr"," "
3. SetEnvironmentVar "SpkStr"," "
4. SpkStr= "Script has been activated "
5. SpkStr= "Script has been activated "
6. BeginThread "发出语音"
7. BeginThread "发出语音"
8. 标记 主程序
9. 标记 主程序
10. key=-1
11. key=-1
12. txX = 0
13. txX = 0
14. txY = 0
15. txY = 0
16. 检测上次按键，保存到变量key中
17. 检测上次按键，保存到变量key中
18. 如果表达式 (key=112) 为真,则
19.     如果表达式 (key=112) 为真,则
20.         SpkStr= "Collection"
21.         SpkStr= "Collection"
22.         key=-1
23.         key=-1
24.         调用子程序 自动采集
25.         调用子程序 自动采集
26.     条件结束
27. 条件结束
28. 调用子程序 打开网站
29. 调用子程序 打开网站
30. 跳转到标记 主程序
31. 跳转到标记 主程序
32. ///////////////////子程序///////////////
33. ///////////////////子程序///////////////
34. 子程序 坐标转换
35.     子程序 坐标转换
36.         Dim HUA
37.         Dim HUA
38.         //申明变量是个好习惯
39.         //申明变量是个好习惯
40.         HUA=""
41.         HUA=""
42.         //定义变量
43.         //定义变量
44.         调用插件命令 hwnd=Window.Foreground()
45.         调用插件命令 hwnd=Window.Foreground()
46.         //调用插件得到当前窗口句柄，结果返回给变量hwnd
47.         //调用插件得到当前窗口句柄，结果返回给变量hwnd
48.         调用插件命令 wtext=Window.GetText(hwnd)
49.         调用插件命令 wtext=Window.GetText(hwnd)
50.         //调用插件根据窗口句柄得到当前窗口标题，结果返回给变量wtext
51.         //调用插件根据窗口句柄得到当前窗口标题，结果返回给变量wtext
52.         调用插件命令 wclass=Window.GetClass(hwnd)
53.         调用插件命令 wclass=Window.GetClass(hwnd)
54.         //调用插件根据窗口句柄得到当前窗口类，结果返回给变量wclass
55.         //调用插件根据窗口句柄得到当前窗口类，结果返回给变量wclass
56.         调用插件命令 path=Window.GetExePath(hwnd)
57.         调用插件命令 path=Window.GetExePath(hwnd)
58.         //调用插件根据窗口句柄得到当前窗口的路径，结果返回给变量path
59.         //调用插件根据窗口句柄得到当前窗口的路径，结果返回给变量path
60.         调用插件命令 rect=Window.GetClientRect(hwnd)
61.         调用插件命令 rect=Window.GetClientRect(hwnd)
62.         //调用插件根据窗口句柄得到当前客户区坐标数据，结果返回给变量rect
63.         //调用插件根据窗口句柄得到当前客户区坐标数据，结果返回给变量rect
64.         调用插件命令 wrect=Window.GetWindowRect(hwnd)
65.         调用插件命令 wrect=Window.GetWindowRect(hwnd)
66.         //调用插件根据窗口句柄得到当前窗口坐标数据，结果返回给变量wrect
67.         //调用插件根据窗口句柄得到当前窗口坐标数据，结果返回给变量wrect
68.         MyArray = Split(rect, "|", -1, 1)
69.         MyArray = Split(rect, "|", -1, 1)
70.         //以"|"这个条件来分割字符串rect，结果返回数组MyArray()
71.         //以"|"这个条件来分割字符串rect，结果返回数组MyArray()
72.         //在这里这个字符串rect分割后有4个数组元素，它们分别是：
73.         //在这里这个字符串rect分割后有4个数组元素，它们分别是：
74.         //MyArray(0)=客户区左上角X坐标
75.         //MyArray(0)=客户区左上角X坐标
76.         //MyArray(1)=客户区左上角Y坐标
77.         //MyArray(1)=客户区左上角Y坐标
78.         //MyArray(2)=客户区宽度
79.         //MyArray(2)=客户区宽度
80.         //MyArray(3)=客户区高度
81.         //MyArray(3)=客户区高度
82.         txX=MyArray(0)+txX
83.         txX=MyArray(0)+txX
84.         txY=MyArray(1)+txY
85.         txY=MyArray(1)+txY
86.     子程序结束,回到调用处
87. 子程序结束,回到调用处
88. 子程序 发出语音
89.     子程序 发出语音
90.         //这里输入想要提示的E文语句（安装office组件还可以支持中文）和重复次数
91.         //这里输入想要提示的E文语句（安装office组件还可以支持中文）和重复次数
92.         SpkStr= "Script has been activated "
93.         SpkStr= "Script has been activated "
94.         rpNum= 1
95.         rpNum= 1
96.         开始VBScript块
97.             开始VBScript块
98.                 cmdLine="For i=1 to rpNum :str=SpkStr:Next"
99.                 cmdLine="For i=1 to rpNum :str=SpkStr:Next"
100.                 Execute(cmdLine)