1.     （VBScript语句） ni=0
  2.     如果表达式 (ni<=5) 为真,则循环执行
  3.         （VBScript语句） dan(ni)=""
  4.         （VBScript语句） danqx=a+153:danqy=(w+2)+(12*ni)
  5.         （VBScript语句） danuu=""
  6.         （VBScript语句） zf=""
  7.         循环 2 遍
  8.             如果 (danqx+1,danqy+4) 的颜色等于 #ff00 则
  9.                 如果 (danqx+5,danqy+3) 的颜色等于 #ff00 则
  10.                     （VBScript语句） zf="0"
  11.                     跳转到标记 [下一数字]
  12.                 条件结束
  13.             条件结束
  14.             如果 (danqx+2,danqy+6) 的颜色等于 #ff00 则
  15.                 （VBScript语句） zf="9"
  16.                 跳转到标记 [下一数字]
  17.             条件结束
  18.             如果 (danqx+5,danqy+1) 的颜色等于 #ff00 则
  19.                 如果 (danqx+1,danqy+5) 的颜色等于 #ff00 则
  20.                     （VBScript语句） zf="8"
  21.                     跳转到标记 [下一数字]
  22.                 条件结束
  23.             条件结束
  24.             如果 (danqx+5,danqy) 的颜色等于 #ff00 则
  25.                 如果 (danqx+3,danqy+6) 的颜色等于 #ff00 则
  26.                     （VBScript语句） zf="7"
  27.                     跳转到标记 [下一数字]
  28.                 条件结束
  29.             条件结束
  30.             如果 (danqx+1,danqy+5) 的颜色等于 #ff00 则
  31.                 如果 (danqx+1,danqy+3) 的颜色等于 #ff00 则
  32.                     （VBScript语句） zf="6"
  33.                     跳转到标记 [下一数字]
  34.                 条件结束
  35.             条件结束
  36.             如果 (danqx+1,danqy) 的颜色等于 #ff00 则
  37.                 如果 (danqx+2,danqy+3) 的颜色等于 #ff00 则
  38.                     （VBScript语句） zf="5"
  39.                     跳转到标记 [下一数字]
  40.                 条件结束
  41.             条件结束
  42.             如果 (danqx+2,danqy+2) 的颜色等于 #ff00 则
  43.                 （VBScript语句） zf="4"
  44.                 跳转到标记 [下一数字]
  45.             条件结束
  46.             如果 (danqx+5,danqy+4) 的颜色等于 #ff00 则
  47.                 如果 (danqx+1,danqy+2) 的颜色不等于 #ff00 则
  48.                     （VBScript语句） zf="3"
  49.                     跳转到标记 [下一数字]
  50.                 条件结束
  51.             条件结束
  52.             如果 (danqx+1,danqy+7) 的颜色等于 #ff00 则
  53.                 （VBScript语句） zf="2"
  54.                 跳转到标记 [下一数字]
  55.             条件结束
  56.             如果 (danqx+2,danqy+1) 的颜色等于 #ff00 则
  57.                 （VBScript语句） zf="1"
  58.                 跳转到标记 [下一数字]
  59.             条件结束
  60.             标记 [下一数字]
  61.             （VBScript语句） danuu=danuu&zf
  62.             （VBScript语句） danqx=danqx+12
  63.         循环结束
  64.         // MessageBox Left(danuu,1)&","&Right(danuu,1)
  65.         （VBScript语句） danuu=danuu&danuu
  66.         （VBScript语句） dan(ni)=danuu
  67.         （VBScript语句） ni=ni+1
  68.     循环结束
  69. 子程序结束,回到调用处
  70. //
  71. 子程序 {↓}
  72.     （VBScript语句） zf1=""
  73.     （VBScript语句） m=0:k=0:dx=qxw:dy=qyw
  74.     （VBScript语句） dx=dx+m:dy=dy+k
  75.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  76.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  77.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  78.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  79.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  80.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  81.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  82.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  83.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  84.     如果表达式 (c5="000000") 为真,则循环执行
  85.         （VBScript语句） m=m+1
  86.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  87.     循环结束
  88.     （VBScript语句） m=m-1
  89.     （VBScript语句） dx=dx+m
  90.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  91.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  92.     如果表达式 (c3="000000") 为真,则
  93.         //⒈⒈【→③】023689
  94.         （VBScript语句） m=0:k=0:m1=0
  95.         如果表达式 (c5="000000") 为真,则循环执行
  96.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  97.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  98.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  99.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  100.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)