1.     如果表达式 (c5="000000") 为真,则循环执行
  2.         （VBScript语句） m=m+1
  3.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  4.     循环结束
  5.     （VBScript语句） m=m+1
  6.     （VBScript语句） dx=dx-m+2
  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.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  13.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  14.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  15.     // MessageBox dx&" "&dy
  16.     （VBScript语句） dx359=dx:dy359=dy
  17.     如果表达式 (m>=29) 为真,则
  18.         如果表达式 (c5=c8 and c5=c7 and c15=c18 and c15=c19) 为真,则
  19.             （VBScript语句） zf2="1"
  20.         否则
  21.             （VBScript语句） zf2="2"
  22.         条件结束
  23.     否则如果(m<29)为真,则
  24.         如果表达式 (c5=c8 and c15=c18 and c5<>c9 and c5<>c7 and c15<>c19 and c15<>c17) 为真,则
  25.             //1479'
  26.             //k>=4,14,否则7
  27.             （VBScript语句） dx=qxs:dy=qys
  28.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  29.             如果表达式 (c5="000000") 为真,则循环执行
  30.                 （VBScript语句） k=k+1
  31.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  32.             循环结束
  33.             （VBScript语句） k=k-1
  34.             （VBScript语句） dy=dy-k
  35.             如果表达式 (k>=4) 为真,则
  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.                 如果表达式 (c5=c4) 为真,则
  40.                     （VBScript语句） zf2="1"
  41.                 否则如果(c5=c6)为真,则
  42.                     （VBScript语句） zf2="4"
  43.                 条件结束
  44.             否则
  45.                 （VBScript语句） zf2="7"
  46.             条件结束
  47.         否则如果(c5=c9 and c15=c19 and c15<>c29)为真,则
  48.             （VBScript语句） zf2="7"
  49.         否则如果(c5=c9 and c5<>c8 and c15=c18 and c15<>c19)为真,则
  50.             （VBScript语句） zf2="7"
  51.         否则如果(c5=c9 and c5<>c8 and c15=c18 and c15=c19)为真,则
  52.             （VBScript语句） zf2="9"
  53.         否则如果(c5=c8 and c5=c7 and c15=c18 and c15=c19)为真,则
  54.             （VBScript语句） zf2="1"
  55.         否则如果(c5=c9 and c15=c17 and c15<>c18)为真,则
  56.             // ElseIf c5=c9 and c5<>c8 and c15=c17 and c15<>c18
  57.             //⒈⒉【←⑦_⑨】035689
  58.             //⒈⒉⒈⒉【←⑦_⑨↑⑥】359
  59.             //⒈⒉⒉⒉【←⑦_⑨↑⑨】068
  60.             （VBScript语句） m=0:k=0
  61.             （VBScript语句） dx=dx359:dy=dy359
  62.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  63.             如果表达式 (c5="000000") 为真,则循环执行
  64.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  65.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  66.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  67.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  68.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  69.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  70.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  71.                 如果表达式 (c5=c8) 为真,则
  72.                     （VBScript语句） dy=dy-1:k=k+1
  73.                 否则如果(c5<>c8 and c5=c7)为真,则
  74.                     （VBScript语句） dx=dx-1:dy=dy-1:m=m+1:k=k+1
  75.                 否则如果(c5=c4 and c5<>c8 and c5<>c7)为真,则
  76.                     （VBScript语句） dx=dx-1:m=m+1
  77.                 否则如果(c5<>c4 and c5<>c7 and c5<>c8)为真,则
  78.                     （VBScript语句） c5="010101"
  79.                 条件结束
  80.             循环结束
  81.             // MessageBox dx&" "&dy
  82.             （VBScript语句） dx068=dx:dy068=dy
  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.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  87.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  88.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  89.             调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  90.             如果表达式 (c5<>c4 and c5<>c7 and c5<>c8 and c5<>c9 and c5=c6) 为真,则
  91.                 //359
  92.                 （VBScript语句） dx=qxs:dy=qys
  93.                 （VBScript语句） m1=0:k1=0:k2=0
  94.                 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  95.                 如果表达式 (c15="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)