1.                     条件结束
  2.                 条件结束
  3.             否则
  4.                 （VBScript语句） m=0:k=0:m1=0:k2=0
  5.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  6.                 如果表达式 (c5="000000") 为真,则循环执行
  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.                     如果表达式 (dx=d and c1="FFFFFF") 为真,则
  12.                         //这里是字符右边不全的处理办法
  13.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  14.                         如果表达式 (c35="000000") 为真,则循环执行
  15.                             （VBScript语句） dy=dy+1:k2=k2+1
  16.                             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  17.                         循环结束
  18.                         如果表达式 (c35="FFFFFF") 为真,则循环执行
  19.                             （VBScript语句） dy=dy+1:k2=k2+1
  20.                             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  21.                         循环结束
  22.                     条件结束
  23.                     如果表达式 (c5=c2) 为真,则
  24.                         （VBScript语句） dy=dy+1:k=k+1:m1=0
  25.                     否则如果(c5=c1)为真,则
  26.                         （VBScript语句） dx=dx-1:dy=dy+1:m=m+1:k=k+1:m1=m1+1
  27.                     否则如果(c5=c4)为真,则
  28.                         （VBScript语句） dx=dx-1:m=m+1:m1=m1+1
  29.                     条件结束
  30.                     （VBScript语句） k=k+k2
  31.                     如果表达式 (k<=10 and m1>=12) 为真,则
  32.                         （VBScript语句） zf1="5"
  33.                         （VBScript语句） c5="010101"
  34.                     否则如果(k>10 and m1>6)为真,则
  35.                         （VBScript语句） zf1="7"
  36.                         （VBScript语句） c5="010101"
  37.                     条件结束
  38.                 循环结束
  39.             条件结束
  40.         否则
  41.             //⒈⒉⒉【→①②】146'
  42.             如果表达式 (c5="000000") 为真,则循环执行
  43.                 （VBScript语句） k=k+1
  44.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  45.             循环结束
  46.             （VBScript语句） k=k-1
  47.             （VBScript语句） dy=dy+k
  48.             如果表达式 (k>=12) 为真,则
  49.                 //⒈⒉⒉⒈【↓①③】14
  50.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  51.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  52.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  53.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  54.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  55.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  56.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  57.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  58.                 //
  59.                 如果表达式 (c5=c6 and c5<>c4 and c5<>c1 and c5<>c2 and c5<>c3) 为真,则
  60.                     （VBScript语句） zf1="4"
  61.                 条件结束
  62.                 如果表达式 (c6<>"000000" and (c3="000000" or (c4="000000" and c11="000000" and c12="000000"))) 为真,则
  63.                     （VBScript语句） zf1="1"
  64.                 否则
  65.                     （VBScript语句） m=0
  66.                     如果表达式 (c5="000000") 为真,则循环执行
  67.                         （VBScript语句） m=m+1
  68.                         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  69.                     循环结束
  70.                     （VBScript语句） m=m-1
  71.                     （VBScript语句） dx=dx+m
  72.                     //MessageBox dx&" "&dy
  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.                     //VBSCall c12=GetPixelColor(dx+0,dy+3)
  76.                     如果表达式 (m>=4 and c2="000000" and c11="000000") 为真,则
  77.                         （VBScript语句） zf1="4"
  78.                     否则如果(m<4)为真,则
  79.                         （VBScript语句） zf1="1"
  80.                     条件结束
  81.                 条件结束
  82.             否则
  83.                 //⒈⒉⒉⒉【←①②】6'
  84.                 （VBScript语句） zf1="6"
  85.             条件结束
  86.         条件结束
  87.     条件结束
  88. 子程序结束,回到调用处
  89. //
  90. 子程序 {↑}
  91.     （VBScript语句） zf2=""
  92.     （VBScript语句） m=0:k=0:dx=qxs:dy=qys
  93.     （VBScript语句） dx=dx+m:dy=dy+k
  94.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  95.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  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.     //⒈⒈【←no⑦】24179'