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