1.                         如果表达式 (qys-dy068>=12) 为真,则
  2.                             （VBScript语句） zf2="6"
  3.                         否则如果(qys-dy068<12)为真,则
  4.                             （VBScript语句） zf2="8"
  5.                         条件结束
  6.                     条件结束
  7.                 条件结束
  8.             条件结束
  9.         条件结束
  10.     条件结束
  11. 子程序结束,回到调用处
  12. //
  13. 子程序 {←}
  14.     （VBScript语句） zf2=""
  15.     （VBScript语句） m=0:k=0:dx=qxd:dy=qyd
  16.     （VBScript语句） dx=dx+m:dy=dy+k
  17.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  18.     如果表达式 (c5="000000") 为真,则循环执行
  19.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  20.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  21.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  22.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  23.         如果表达式 (c5=c4) 为真,则
  24.             （VBScript语句） dx=dx-1
  25.         否则如果(c5=c1)为真,则
  26.             （VBScript语句） dx=dx-1:dy=dy+1
  27.         否则如果(c5=c2)为真,则
  28.             （VBScript语句） dy=dy+1
  29.         否则如果(c5<>c4 and c5<>c1 and c5<>c2)为真,则
  30.             （VBScript语句） c5="010101"
  31.         条件结束
  32.     循环结束
  33.     调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  34.     如果表达式 (c5="000000") 为真,则循环执行
  35.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  36.         调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  37.         如果表达式 (c5=c6) 为真,则
  38.             （VBScript语句） dx=dx+1
  39.         否则如果(c5<>c6)为真,则
  40.             （VBScript语句） c5="010101"
  41.         条件结束
  42.     循环结束
  43.     //这里相当于{↑}的起点了
  44.     （VBScript语句） qxs=dx:qys=dy
  45.     调用子程序 {↑}
  46. 子程序结束,回到调用处
  47. //
  48. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  49. 调用外部VBScript子程序 Call 在屏幕区域里查找图形(20,20,960,690,"Attachment:\确定.bmp",1,xs,ys)
  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. //(qx+m-1,qy+k-1)(qx+m+0,qy+k-1)(qx+m+1,qy+k-1)
  58. //(qx+m-1,qy+k+0)(qx+m+0,qy+k+0)(qx+m+1,qy+k+0)
  59. //(qx+m-1,qy+k+1)(qx+m+0,qy+k+1)(qx+m+1,qy+k+1)
  60. //⑦⑧⑨
  61. //④⑤⑥
  62. //①②③
  63. //┏　┓┗　┛━┃ ①②③④⑤⑥⑦⑧⑨⑩→←↓↑⒈⒉⒊⒋⒌⒍⒎△▲【】
  64. 子程序 {luweijile}
  65.     如果表达式 (zf1=zf2) 为真,则
  66.         调用子程序 {←}
  67.     条件结束
  68.     //M zf1&","&zf2
  69.     如果表达式 (zf1=zf2) 为真,则
  70.         //3-5-4-2-6-1
  71.         （VBScript语句） is2=InStr(dan(2),zf1)
  72.         如果表达式 (is2>0) 为真,则
  73.             （VBScript语句） jguo=Left(dan(2),2):weizhi=3
  74.         否则
  75.             （VBScript语句） is2=InStr(dan(4),zf1)
  76.             如果表达式 (is2>0) 为真,则
  77.                 （VBScript语句） jguo=Left(dan(4),2):weizhi=5
  78.             否则
  79.                 （VBScript语句） is2=InStr(dan(3),zf1)
  80.                 如果表达式 (is2>0) 为真,则
  81.                     （VBScript语句） jguo=Left(dan(3),2):weizhi=4
  82.                 否则
  83.                     （VBScript语句） is2=InStr(dan(1),zf1)
  84.                     如果表达式 (is2>0) 为真,则
  85.                         （VBScript语句） jguo=Left(dan(1),2):weizhi=2
  86.                     否则
  87.                         （VBScript语句） is2=InStr(dan(5),zf1)
  88.                         如果表达式 (is2>0) 为真,则
  89.                             （VBScript语句） jguo=Left(dan(5),2):weizhi=6
  90.                         否则
  91.                             （VBScript语句） is2=InStr(dan(0),zf1)
  92.                             如果表达式 (is2>0) 为真,则
  93.                                 （VBScript语句） jguo=Left(dan(0),2):weizhi=1
  94.                                 //
  95.                             条件结束
  96.                         条件结束
  97.                     条件结束
  98.                 条件结束
  99.             条件结束
  100.         条件结束