1.                         //5'3'
  2.                         （VBScript语句） m=0:k=0
  3.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  4.                         // MessageBox dx&" "&dy
  5.                         如果表达式 (c25="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.                             如果表达式 (c25=c24) 为真,则
  11.                                 （VBScript语句） dx=dx-1:m=m+1
  12.                             否则如果(c25<>c24 and c25=c27)为真,则
  13.                                 （VBScript语句） dx=dx-1:dy=dy-1:m=m+1:k=k+1
  14.                             否则如果(c25<>c24 and c25<>c27 and c25=c28)为真,则
  15.                                 （VBScript语句） dy=dy-1:k=k+1
  16.                             否则如果(c25<>c24 and c25<>c27 and c25<>c28)为真,则
  17.                                 （VBScript语句） c25="010101"
  18.                             条件结束
  19.                         循环结束
  20.                         // If m>=17
  21.                         如果表达式 (dx+3<qxs) 为真,则
  22.                             //5
  23.                             （VBScript语句） zf2="5"
  24.                             （VBScript语句） c5="010101"
  25.                             // ElseIf m<17
  26.                         否则如果(dx+3>qxs)为真,则
  27.                             //3
  28.                             （VBScript语句） zf2="3"
  29.                             （VBScript语句） c5="010101"
  30.                         条件结束
  31.                     条件结束
  32.                 否则如果(c5<>c19)为真,则
  33.                     （VBScript语句） zf2="8"
  34.                 条件结束
  35.             否则如果(c5<>c4 and c5<>c7 and c5<>c8 and c5=c9)为真,则
  36.                 //068
  37.                 （VBScript语句） dx=qxs:dy=qys
  38.                 （VBScript语句） m1=0:k1=0:k2=0
  39.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  40.                 如果表达式 (c15="000000") 为真,则循环执行
  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.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  44.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  45.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  46.                     如果表达式 (c15=c16) 为真,则
  47.                         （VBScript语句） dx=dx+1:m1=m1+1
  48.                     否则如果(c15=c19)为真,则
  49.                         （VBScript语句） dx=dx+1:dy=dy-1:m1=m1+1:k1=k1+1
  50.                     否则如果(c15=c18)为真,则
  51.                         （VBScript语句） dy=dy-1:k1=k1+1
  52.                     否则如果(c15<>c16 and c15<>c19 and c15<>c18)为真,则
  53.                         （VBScript语句） c15="010101"
  54.                     条件结束
  55.                     如果表达式 (dx=d and c17="FFFFFF") 为真,则
  56.                         //这里是字符右边不全的处理办法
  57.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  58.                         如果表达式 (c35="000000") 为真,则循环执行
  59.                             （VBScript语句） dy=dy-1:k2=k2+1
  60.                             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  61.                         循环结束
  62.                         如果表达式 (c35="FFFFFF") 为真,则循环执行
  63.                             （VBScript语句） dy=dy-1:k2=k2+1
  64.                             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  65.                         循环结束
  66.                         （VBScript语句） k2=k2/2-4
  67.                         （VBScript语句） k1=k1+k2
  68.                         （VBScript语句） c15="010101"
  69.                     条件结束
  70.                 循环结束
  71.                 // MessageBox dx&" "&dy
  72.                 如果表达式 (k1>=12) 为真,则
  73.                     //0
  74.                     （VBScript语句） zf2="0"
  75.                     （VBScript语句） c5="010101"
  76.                 否则如果(k1<12)为真,则
  77.                     //688'
  78.                     （VBScript语句） m=0:k=0
  79.                     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  80.                     // MessageBox dx&" "&dy
  81.                     如果表达式 (c25="000000") 为真,则循环执行
  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.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  85.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  86.                         如果表达式 (c25=c24) 为真,则
  87.                             （VBScript语句） dx=dx-1:m=m+1
  88.                         否则如果(c25<>c24 and c25=c27)为真,则
  89.                             （VBScript语句） dx=dx-1:dy=dy-1:m=m+1:k=k+1
  90.                         否则如果(c25<>c24 and c25<>c27 and c25=c28)为真,则
  91.                             （VBScript语句） dy=dy-1:k=k+1
  92.                         否则如果(c25<>c24 and c25<>c27 and c25<>c28)为真,则
  93.                             （VBScript语句） c25="010101"
  94.                         条件结束
  95.                     循环结束
  96.                     如果表达式 (dx+4>qxs) 为真,则
  97.                         //8
  98.                         （VBScript语句） zf2="8"
  99.                     否则如果(dx+4<qxs)为真,则
  100.                         //68'