1.             （VBScript语句） dx=dx-1:dy=dy-1
  2.             （VBScript语句） dx089=dx:dy089=dy
  3.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  4.             （VBScript语句） m=0:k=0:m1=0
  5.             如果表达式 (c5="000000") 为真,则循环执行
  6.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  7.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  8.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  9.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  10.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  11.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  12.                 如果表达式 (c5=c6) 为真,则
  13.                     （VBScript语句） dx=dx+1:m=m+1
  14.                 否则如果(c5<>c6 and c5=c3)为真,则
  15.                     （VBScript语句） dx=dx+1:dy=dy+1:m=m+1:k=k+1
  16.                 否则如果(c5<>c6 and c5<>c3 and c5=c2)为真,则
  17.                     （VBScript语句） dy=dy+1:k=k+1
  18.                 否则如果(c5<>c6 and c5<>c3 and c5<>c2)为真,则
  19.                     （VBScript语句） c5="010101"
  20.                 条件结束
  21.             循环结束
  22.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  23.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  24.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  25.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  26.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  27.             如果表达式 (c5<>c9 and c5<>c2 and (c5=c4 or c5=c1)) 为真,则
  28.                 （VBScript语句） zf1="8"
  29.                 如果表达式 (k089>=15) 为真,则
  30.                     （VBScript语句） zf1="0"
  31.                 条件结束
  32.             否则如果(c5=c9)为真,则
  33.                 //⒈⒈⒉⒉【←↓→⑨】09
  34.                 （VBScript语句） dx=dx089:dy=dy089
  35.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  36.                 （VBScript语句） m=0:k=0:m1=0:k1=0
  37.                 //MessageBox dx&" "&dy
  38.                 如果表达式 (c5="000000") 为真,则循环执行
  39.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  40.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  41.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  42.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  43.                     如果表达式 (c5=c6) 为真,则
  44.                         （VBScript语句） dx=dx+1:m=m+1
  45.                     否则如果(c5<>c6 and c5=c3)为真,则
  46.                         （VBScript语句） dx=dx+1:dy=dy+1:m=m+1:k=k+1
  47.                     否则如果(c5<>c6 and c5<>c3 and c5=c2)为真,则
  48.                         （VBScript语句） dy=dy+1:k=k+1
  49.                     否则如果(c5<>c6 and c5<>c3 and c5<>c2)为真,则
  50.                         （VBScript语句） c5="010101"
  51.                     条件结束
  52.                     如果表达式 (m=3) 为真,则
  53.                         （VBScript语句） c2="FFFFFF"
  54.                         （VBScript语句） dx=dx+m:dy=dy+k
  55.                         如果表达式 (c2="FFFFFF") 为真,则循环执行
  56.                             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  57.                             （VBScript语句） k1=k1+1
  58.                             如果表达式 (k1<19 and c2="FFFFFF") 为真,则
  59.                                 （VBScript语句） zf1="0"
  60.                                 //
  61.                             否则如果(k1<19 and c2="000000")为真,则
  62.                                 （VBScript语句） zf1="9"
  63.                                 （VBScript语句） c2="000000"
  64.                             否则如果(k1>=19)为真,则
  65.                                 （VBScript语句） zf1="0"
  66.                                 （VBScript语句） c2="000000"
  67.                             条件结束
  68.                         循环结束
  69.                         （VBScript语句） c5="010101"
  70.                     条件结束
  71.                 循环结束
  72.             条件结束
  73.         条件结束
  74.     否则
  75.         //⒈⒉【→①②③】1456'7▲
  76.         如果表达式 (m>=19) 为真,则
  77.             //⒈⒉⒈【→①②】57
  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.             如果表达式 (c2=c5 and c12=c5) 为真,则
  82.                 如果表达式 (c5="000000") 为真,则循环执行
  83.                     （VBScript语句） k=k+1
  84.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  85.                 循环结束
  86.                 （VBScript语句） k=k-1
  87.                 （VBScript语句） dy=dy+k
  88.                 如果表达式 (k>=2) 为真,则
  89.                     （VBScript语句） m=0
  90.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  91.                     如果表达式 (c5="000000") 为真,则循环执行
  92.                         （VBScript语句） m=m+1
  93.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  94.                     循环结束
  95.                     （VBScript语句） m=m-1
  96.                     （VBScript语句） dx=dx-m
  97.                     如果表达式 (m>=8) 为真,则
  98.                         （VBScript语句） zf1="5"
  99.                     否则
  100.                         （VBScript语句） zf1="7"