1. (VBScript语句) dim a,w,d,s,dan(5),zf1,zf2,n,m,k,m1,k1,zf,danuu,danqx,danqy,ni,is2,jguo,weizhi
  2. //确定位置
  3. 展开附件 //确定位置
  4. 标记 {开始}
  5. //
  6. 调用插件命令 t1=GetSysInfo.GetTime()
  7. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  8. 如果表达式 (xs>=0 and ys>=0) 为真,则
  9.     如果 (xs-15,ys-21) 的颜色不等于 #ff00 则
  10.         跳转到标记 {结束}
  11.         //定点失败,跳转结束
  12.     条件结束
  13. 否则
  14.     //MessageBox "要求验证的窗口“确定”按钮被遮挡,无法继续识别"
  15.     跳转到标记 {结束}
  16.     //定点失败,跳转结束
  17. 条件结束
  18. //★★四点判断
  19. //4个角的点坐标1(a,w) 2(d,w) 3(a,s) 4(d,s)
  20. (VBScript语句) a=xs-129:w=ys-82
  21. (VBScript语句) d=a+99:s=w+99
  22. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  23. (VBScript语句) n=0
  24. 标记 下到上点
  25. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  26. 如果表达式 (qxs=-1 and qys=-1) 为真,则
  27.     (VBScript语句) n=n+1
  28.     跳转到标记 下到上点
  29. 条件结束
  30. (VBScript语句) n=0
  31. 标记 左到右点
  32. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  33. 如果表达式 (qxa=-1 and qya=-1) 为真,则
  34.     (VBScript语句) n=n+1
  35.     跳转到标记 左到右点
  36. 条件结束
  37. (VBScript语句) n=0
  38. 标记 右到左点
  39. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  40. 如果表达式 (qxd=-1 and qyd=-1) 为真,则
  41.     (VBScript语句) n=n+1
  42.     跳转到标记 右到左点
  43. 条件结束
  44. //★★上左面第一点(qxw,qyw),下右面第一点(qxs,qys),左上面第一点(qxa,qya),右下面第一点(qxd,qyd)
  45. //MessageBox "上左面("&qxw&","&qyw&"),下右面("&qxs&","&qys&"),左上面("&qxa&","&qya&"),右下面("&qxd&","&qyd&")"
  46. 如果表达式 (qys-qyw>(qxd-qxa)*0.7) 为真,则
  47.     // MessageBox "上下识别"
  48.     调用子程序 {↓}
  49.     调用子程序 {↑}
  50. 否则如果(qys-qyw<=(qxd-qxa)*0.7)为真,则
  51.     调用子程序 {↓}
  52.     调用子程序 {↑}
  53.     //MessageBox "左右识别"
  54. 条件结束
  55. //M zf1&" "&zf2
  56. 调用插件命令 t2=GetSysInfo.GetTime()
  57. //
  58. 调用子程序 {答案}
  59. 调用子程序 {luweijile}
  60. (VBScript语句) t3=(t2-t1)/1000
  61. //◆◆◆◆◆◆◆◆◆◆◆◆测试或者实际应用可以在下面两行中改动◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆◆
  62. 跳转到标记 {点击答案}
  63. 调用子程序 {点击答案}"识别结果为:"&jguo&" 应该选择答案:"&weizhi&" 用时为:"&t3&"秒"
  64. //Gosub {点击答案}
  65. //◆◆◆上面MessageBox是测试用┃Gosub 是实际挂机用。两者选择其一。用加减“//”可以控制◆◆◆◆
  66. //Delay 6000
  67. //Goto {开始}
  68. 标记 {结束}
  69. //Delay 20000
  70. //Goto {开始}
  71. 脚本停止运行
  72. //〓〓〓〓〓〓〓〓〓〓〓〓〓主程序结束,下面是子程序。整个脚本的核心〓〓〓〓〓〓〓〓〓〓〓〓〓
  73. 子程序 {点击答案}
  74.     如果表达式 (weizhi=1) 为真,则
  75.         鼠标移到 a+150 , w+5
  76.         左键单击
  77.     否则如果(weizhi=2)为真,则
  78.         鼠标移到 a+150 , w+5+12
  79.         左键单击
  80.     否则如果(weizhi=3)为真,则
  81.         鼠标移到 a+150 , w+29
  82.         左键单击
  83.     否则如果(weizhi=4)为真,则
  84.         鼠标移到 a+150 , w+41
  85.         左键单击
  86.     否则如果(weizhi=5)为真,则
  87.         鼠标移到 a+150 , w+53
  88.         左键单击
  89.     否则如果(weizhi=6)为真,则
  90.         鼠标移到 a+150 , w+65
  91.         左键单击
  92.     条件结束
  93.     延时900毫秒
  94.     鼠标移到 a+168 , w+91
  95.     左键单击
  96.     延时800毫秒
  97.     鼠标移到 a+180 , w+91
  98. 子程序结束,回到调用处
  99. //点击好答案后延时6秒
  100. 子程序 {答案}