1.         延时1毫秒
  2.         跳转到标记 开始采集
  3.     条件结束
  4.     按键<A>
  5. 循环结束
  6. 标记 开始采集
  7. 延时500毫秒
  8. 左键单击
  9. 延时10000毫秒
  10. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  11. 鼠标移到 MX+70 , MY+4
  12. //判断采集第一次(点击开始采集了这是点的第一次)采集完没
  13. 标记 点一次
  14. Shape1 = 507365973
  15. 如果 (428,669) 的颜色大约等于 #a0de 则
  16.     延时1000毫秒
  17.     跳转到标记 点一次
  18. 否则
  19.     //采完了开始跳到找第二次了
  20.     延时7000毫秒
  21.     跳转到标记 第二次
  22. 条件结束
  23. //-----------------------------------------
  24. //下面全部是判断现在鼠标位置是不是可以点第二次
  25. 标记 第二次
  26. 延时1000毫秒
  27. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  28. 如果表达式 (shape = shape1) 为真,则
  29.     跳转到标记 采集11
  30. 否则
  31.     //如果当前位置不是那就移动下鼠标在看是不是（移动了跳到下一节开始判断）
  32.     延时500毫秒
  33.     鼠标移到 845 , 635
  34.     跳转到标记 第二次3
  35. 条件结束
  36. //--------------------------------------------------------
  37. 标记 第二次3
  38. 延时1000毫秒
  39. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  40. 如果表达式 (shape = shape1) 为真,则
  41.     跳转到标记 采集11
  42. 否则
  43.     //如果这
  44.     延时500毫秒
  45.     鼠标移到 227 , 650
  46.     跳转到标记 第二次33
  47. 条件结束
  48. //----------------------------------
  49. 标记 第二次33
  50. 延时1000毫秒
  51. 调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  52. 如果表达式 (shape = shape1) 为真,则
  53.     跳转到标记 采集11
  54. 否则
  55.     调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  56.     （VBScript语句） x0=fx/2:n=1:y0=fy/2
  57.     如果表达式 (n<77) 为真,则循环执行
  58.         （VBScript语句） x=x0+4*(cos(n)+n*sin(n))
  59.         （VBScript语句） y=y0+3*(sin(n)-n*cos(n))
  60.         鼠标移到 x , y
  61.         延时100毫秒
  62.         （VBScript语句） n=n+0.8
  63.         调用外部VBScript子程序 在屏幕区域里查找图形(0,0,1024,768,"Attachment:\灰三角.bmp",0.5,x,y)
  64.         Shape1 = 507365973
  65.         如果表达式 (shape = shape1) 为真,则
  66.             延时1毫秒
  67.             跳转到标记 采集11
  68.         条件结束
  69.         按键<A>
  70.     循环结束
  71.     （VBScript语句） x1=fx/2:n=77:y1=fy/2
  72.     如果表达式 (n>1) 为真,则循环执行
  73.         （VBScript语句） x=x1+4*(cos(n)+n*sin(n))
  74.         （VBScript语句） y=y1+3*(sin(n)-n*cos(n))
  75.         鼠标移到 x , y
  76.         延时100毫秒
  77.         （VBScript语句） n=n-0.8
  78.         Shape1 = 507365973
  79.         如果表达式 (shape = shape1) 为真,则
  80.             延时1毫秒
  81.             跳转到标记 采集11
  82.         条件结束
  83.         按键<A>
  84.     循环结束
  85. 条件结束
  86. //--------------------
  87. 标记 采集11
  88. 延时500毫秒
  89. 左键单击
  90. 延时10000毫秒
  91. //判断采集第一次
  92. 标记 点一次44
  93. 如果 (428,669) 的颜色大约等于 #a0de 则
  94.     延时1000毫秒
  95.     跳转到标记 点一次44
  96. 否则
  97.     延时7000毫秒
  98.     跳转到标记 第二次44
  99. 条件结束
  100. //-----------------------------------------