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