1.                 Execute(cmdLine)
  2.                 CreateObject("SAPI.SpVoice").Speak str
  3.                 CreateObject("SAPI.SpVoice").Speak str
  4.             结束VBScript块
  5.         结束VBScript块
  6.     子程序结束,回到调用处
  7. 子程序结束,回到调用处
  8. 子程序 自动采集
  9.     子程序 自动采集
  10.         调用子程序 坐标转换
  11.         调用子程序 坐标转换
  12.         左键双击
  13.         左键双击
  14.         如果表达式 (1) 为真,则循环执行
  15.             如果表达式 (1) 为真,则循环执行
  16.                 检测上次按键，保存到变量key中
  17.                 检测上次按键，保存到变量key中
  18.                 如果表达式 (key=112) 为真,则
  19.                     如果表达式 (key=112) 为真,则
  20.                         key=-1
  21.                         key=-1
  22.                         调用子程序 自动采集
  23.                         调用子程序 自动采集
  24.                     条件结束
  25.                 条件结束
  26.                 如果表达式 (key=113) 为真,则
  27.                     如果表达式 (key=113) 为真,则
  28.                         key=-1
  29.                         key=-1
  30.                         SpkStr= "I collecting"
  31.                         SpkStr= "I collecting"
  32.                         BeginThread "发出语音"
  33.                         BeginThread "发出语音"
  34.                     条件结束
  35.                 条件结束
  36.                 如果表达式 (key=115) 为真,则
  37.                     如果表达式 (key=115) 为真,则
  38.                         key=-1
  39.                         key=-1
  40.                         SpkStr= "Wait for instructions"
  41.                         SpkStr= "Wait for instructions"
  42.                         BeginThread "发出语音"
  43.                         BeginThread "发出语音"
  44.                         跳转到标记 主程序
  45.                         跳转到标记 主程序
  46.                     条件结束
  47.                 条件结束
  48.                 调用子程序 打开网站
  49.                 调用子程序 打开网站
  50.                 x1=cint(MyArray(0))
  51.                 x1=cint(MyArray(0))
  52.                 y1=cint(MyArray(1))
  53.                 y1=cint(MyArray(1))
  54.                 x2=cint(MyArray(0))+cint(MyArray(2))
  55.                 x2=cint(MyArray(0))+cint(MyArray(2))
  56.                 y2=cint(MyArray(1))+cint(MyArray(3))
  57.                 y2=cint(MyArray(1))+cint(MyArray(3))
  58.                 延时250毫秒
  59.                 延时250毫秒
  60.                 调用外部VBScript子程序 在屏幕区域里查找图形(x1,y1,x2,y2,"shiqu.bmp",0.9,intX,intY)
  61.                 调用外部VBScript子程序 在屏幕区域里查找图形(x1,y1,x2,y2,"shiqu.bmp",0.9,intX,intY)
  62.                 如果表达式 (intX>0) 为真,则
  63.                     如果表达式 (intX>0) 为真,则
  64.                         保存鼠标位置
  65.                         保存鼠标位置
  66.                         鼠标移到 intX , intY
  67.                         鼠标移到 intX , intY
  68.                         左键单击
  69.                         左键单击
  70.                         恢复鼠标位置
  71.                         恢复鼠标位置
  72.                         intX=-1
  73.                         intX=-1
  74.                         延时100毫秒
  75.                         延时100毫秒
  76.                         调用子程序 自动采集
  77.                         调用子程序 自动采集
  78.                     条件结束
  79.                 条件结束
  80.             循环结束
  81.         循环结束
  82.     子程序结束,回到调用处
  83. 子程序结束,回到调用处
  84. 子程序 自动开五行
  85.     子程序 自动开五行
  86.         循环 5 遍
  87.             循环 5 遍
  88.                 右键单击
  89.                 右键单击
  90.                 调用外部VBScript子程序 在屏幕区域里查找图形(x1,y1,x2,y2,"shiqu.bmp",0.9,intX,intY)
  91.                 调用外部VBScript子程序 在屏幕区域里查找图形(x1,y1,x2,y2,"shiqu.bmp",0.9,intX,intY)
  92.                 延时100毫秒
  93.                 延时100毫秒
  94.                 延时500毫秒
  95.                 延时500毫秒
  96.                 鼠标移到 x5+40 , y5
  97.                 鼠标移到 x5+40 , y5
  98.                 延时100毫秒
  99.                 延时100毫秒
  100.             循环结束