1.     令 c = c + 1
  2.     延时 延时 毫秒
  3. 循环结束
  4. 跳转到标记 开始
  5. 子程序 准备()
  6.     从左上到右下查找图片 "Attachment:\点击.bmp"，把找到的坐标保存到 (DX, DY)，指定区域（左：x 上：y 右：x + 200 下：y + 200），相似度 0.9
  7.     如果 DX > 0 并且 DY > 0 则
  8.         调用 Window.Active(a(c))
  9.         延时 100 毫秒
  10.         （键盘）按 "Enter" 键, 1次
  11.         （键盘）按 "F5" 键, 1次
  12.         延时 200 毫秒
  13.     条件结束
  14. 子程序结束
  15. 子程序 临时调整()
  16.     把当前鼠标所在的位置保存到 (鼠标, shiai)
  17.     如果 鼠标 = 宽 - 1 或者 鼠标 = 宽 - 2 则
  18.         延时 5 毫秒
  19.         令 延时 = 延时 + 50
  20.     条件结束
  21.     如果 鼠标 = 0 或者 鼠标 = 1 则
  22.         延时 5 毫秒
  23.         令 延时 = 延时 - 50
  24.     条件结束
  25.     如果 延时 < 0 则
  26.         令 延时 = 0
  27.     条件结束
  28.     如果 鼠标 = 0 或者 鼠标 = 宽 - 1 或者 鼠标 = 宽 - 2 或者 鼠标 = 1 则
  29.         令 延时Q = 延时 / 50
  30.         调用 Msg.Tips("切换频率:" & 延时Q & "(越低越快最小为0)" & TTTT & "")
  31.         延时 10 毫秒
  32.     条件结束
  33. 子程序结束