1.         如果 code = a(4) 则
  2.             令 num = "4"
  3.         条件结束
  4.         如果 code = a(5) 则
  5.             令 num = "5"
  6.         条件结束
  7.         如果 code = a(6) 则
  8.             令 num = "6"
  9.         条件结束
  10.         如果 code = a(7) 则
  11.             令 num = "7"
  12.         条件结束
  13.         如果 code = a(8) 则
  14.             令 num = "8"
  15.         条件结束
  16.         如果 code = a(9) 则
  17.             令 num = "9"
  18.         条件结束
  19.         令 group = group & num
  20.     循环结束
  21.     令 group = CDbl(group)
  22. 子程序结束
  23. 标记 输入
  24. 循环 12 次
  25.     延时 10 毫秒
  26.     （键盘）按 "BackSpace" 键, 1次
  27.     延时 10 毫秒
  28.     （键盘）按 "BackSpace" 键, 1次
  29. 循环结束
  30. 定义变量 b
  31. 注释： 密码
  32. 注释： 计算密码长度
  33. 令 PSW_Len = Len(PSW)
  34. 重定义变量 b(PSW_Len)
  35. 令 z = 0
  36. 延时 200 毫秒
  37. 循环 PSW_Len 次
  38.     令 b(z) = Mid(PSW,1 + z,1)
  39.     如果 Asc(a(z)) >= 97 并且 Asc(b(z)) <= 122 则
  40.         注释： 英文大写
  41.         （键盘）按 Asc(a(z)) - 32 键, 1次
  42.     否则如果 Asc(b(z)) >= 65 并且 Asc(b(z)) <= 90 则
  43.         注释： 英文小写
  44.         （键盘）按下 Shift 键
  45.         （键盘）按 Asc(b(z)) 键, 1次
  46.         （键盘）弹起 Shift 键
  47.     否则如果 Asc(b(z)) >= 48 并且 Asc(b(z)) <= 57 则
  48.         注释： 数字
  49.         （键盘）按 Asc(b(z)) 键, 1次
  50.     条件结束
  51.     延时 50 毫秒
  52.     令 z = z + 1
  53. 循环结束
  54. 延时 100 毫秒
  55. （鼠标）左键双击, 1次
  56. 如果 s = 1 则
  57.     调用 数量识别()
  58.     如果 group = sjsl 则
  59.         令 s = 2
  60.         跳转到标记 拍卖一
  61.     否则
  62.         延时 50 毫秒
  63.         （鼠标）移动到 (200, 339)
  64.         延时 100 毫秒
  65.         （鼠标）左键双击, 1次
  66.         跳转到标记 测试
  67.     条件结束
  68. 条件结束
  69. 如果 s = 2 则
  70.     令 ux = 142
  71.     令 uy = 261
  72.     调用 识别金币()
  73.     如果 group = pmqsj 则
  74.         令 s = 3
  75.         跳转到标记 拍卖二
  76.     否则
  77.         跳转到标记 拍卖一
  78.     条件结束
  79. 条件结束
  80. 如果 s = 3 则
  81.     令 ux = 142
  82.     令 uy = 285
  83.     调用 识别金币()
  84.     如果 group = pmykj 则
  85.         （鼠标）移动到 (146, 339)
  86.         延时 100 毫秒
  87.         （鼠标）左键双击, 1次
  88.         延时 50 毫秒
  89.         （鼠标）移动到 (146, 339)
  90.         延时 100 毫秒
  91.         （鼠标）左键双击, 1次
  92.         延时 50 毫秒
  93.         （键盘）按 "Esc" 键, 1次
  94.         延时 50 毫秒
  95.         （键盘）按 "Esc" 键, 1次
  96.         延时 50 毫秒
  97.         （键盘）按 "Esc" 键, 1次
  98.         延时 100 毫秒
  99.         令 s = 1
  100.         如果 sss = cishu 则