1.         令 MyArray = Split(sRect,"|")
  2.         令 L = Clng(MyArray(0))
  3.         令 T = Clng(MyArray(1))
  4.         调用 Window.Top(Hwnd,0)
  5.         调用 Window.Top(Hwnd,1)
  6.         延时 SJ 毫秒
  7.         （鼠标）移动到 (L + 44, T + 13)
  8.         （鼠标）左键单击, 1次
  9.         延时 3000 毫秒
  10.         调用 ZDDL()
  11.         跳转到标记 k(子程序 ZTJC)
  12.     条件结束
  13.     （鼠标）移动到 (469, 691)
  14.     （鼠标）左键单击, 1次
  15.     锁定鼠标位置
  16.     延时 800 毫秒
  17.     如果点 (459,663) 的颜色约等于 "FFFFFF" 则
  18.     否则
  19.         （鼠标）移动到 (469, 691)
  20.         锁定鼠标位置
  21.         延时 300 毫秒
  22.         如果点 (474,666) 的颜色约等于 "FFFFFF" 则
  23.         否则
  24.             调用 ZDDL()
  25.         条件结束
  26.     条件结束
  27.     如果点 (500,252) 的颜色约等于 "E4FF" 则
  28.         如果点 (518,257) 的颜色约等于 "E4FF" 则
  29.             （鼠标）移动到 (423, 360)
  30.             （鼠标）左键单击, 1次
  31.             调用 ZDDL()
  32.         条件结束
  33.     条件结束
  34.     如果点 (499,396) 的颜色约等于 "CFC0B0" 则
  35.         如果点 (495,407) 的颜色约等于 "B8AFA5" 则
  36.             （鼠标）移动到 (492, 403)
  37.             （鼠标）左键单击, 1次
  38.             调用 ZDDL()
  39.         条件结束
  40.     条件结束
  41.     如果点 (414,381) 的颜色约等于 "FFFFFF" 则
  42.         如果点 (421,361) 的颜色约等于 "FFFFFF" 则
  43.             （鼠标）移动到 (499, 439)
  44.             （鼠标）左键单击, 1次
  45.             调用 ZDDL()
  46.         条件结束
  47.     条件结束
  48.     （鼠标）移动到 (500, 441)
  49.     （鼠标）左键单击, 1次
  50.     标记 k(子程序 ZTJC)
  51.     解除鼠标锁定
  52. 子程序结束
  53. 子程序 FH()
  54.     （键盘）按 "Esc" 键, 1次
  55.     延时 800 毫秒
  56.     如果点 (537,427) 的颜色约等于 "1B4F69" 则
  57.         如果点 (553,425) 的颜色约等于 "181C18" 则
  58.             如果点 (554,422) 的颜色约等于 "211C18" 则
  59.                 （鼠标）移动到 (546, 427)
  60.                 （鼠标）左键单击, 1次
  61.                 延时 SJ 毫秒
  62.             条件结束
  63.         条件结束
  64.     条件结束
  65.     如果点 (575,427) 的颜色约等于 "1B4F69" 则
  66.         如果点 (591,425) 的颜色约等于 "181C18" 则
  67.             如果点 (592,422) 的颜色约等于 "211C18" 则
  68.                 （鼠标）移动到 (584, 427)
  69.                 （鼠标）左键单击, 1次
  70.                 延时 SJ 毫秒
  71.             条件结束
  72.         条件结束
  73.     条件结束
  74.     如果点 (1008,15) 的颜色约等于 "1A80B9" 则
  75.         如果点 (1014,4) 的颜色约等于 "2B7297" 则
  76.             如果点 (1003,7) 的颜色约等于 "344E5F" 则
  77.                 （鼠标）移动到 (1008, 11)
  78.                 （鼠标）左键单击, 1次
  79.                 延时 SJ 毫秒
  80.             条件结束
  81.         条件结束
  82.     条件结束
  83. 子程序结束
  84. 子程序 SR()
  85.     令 SRZH = len(ZH)
  86.     令 SRMM = len(MM)
  87.     令 N = 1
  88.     循环 SRZH 次
  89.         令 A = Mid(ZH,N,1)
  90.         令 A = UCase(A)
  91.         （键盘）按 ASC(A) 键, 1次
  92.         令 N = N + 1
  93.     循环结束
  94.     （键盘）按 "Tab" 键, 1次
  95.     令 N = 1
  96.     循环 SRMM 次
  97.         令 A = Mid(MM,N,1)
  98.         令 A = UCase(A)
  99.         （键盘）按 ASC(A) 键, 1次
  100.         令 N = N + 1