1.         延时 5 毫秒
  2.     循环结束
  3.     延时 250 毫秒
  4.     （鼠标）左键单击, 1次
  5.     延时 400 毫秒
  6.     （键盘）按 BackSpace 键, 10次
  7.     令 i = 0
  8.     循环 len(ThingPrice) 次
  9.         输入文本 (Mid(ThingPrice,i + 1,1))
  10.         令 i = i + 1
  11.         延时 5 毫秒
  12.     循环结束
  13.     延时 400 毫秒
  14.     （鼠标）移动到 (x + 308, y + 488)
  15.     延时 100 毫秒
  16.     （鼠标）左键单击, 1次
  17.     延时 400 毫秒
  18. 函数结束
  19. 函数 getEmail()
  20.     （键盘）按 "Esc" 键, 1次
  21.     延时 1000 毫秒
  22.     令 tempF = true
  23.     令 getEmailflag = 0
  24.     循环当 tempF 时
  25.         延时 1000 毫秒
  26.         从左上到右下查找图片 "Attachment:\有邮件.bmp"，把找到的坐标保存到 (intX, intY)，指定区域（左：x + 322 上：y + 480 右：x + 476 下：y + 563），相似度 0.9
  27.         如果 intX > 0 并且 intY > 0 则
  28.             （鼠标）移动到 (intX, intY)
  29.             延时 255 毫秒
  30.             （鼠标）左键单击, 1次
  31.             延时 699 毫秒
  32.             （鼠标）移动到 (x + 417, y + 440)
  33.             延时 208 毫秒
  34.             （鼠标）左键单击, 1次
  35.             延时 274 毫秒
  36.             （鼠标）移动到 (x + 304, y + 467)
  37.             延时 712 毫秒
  38.             （鼠标）左键单击, 1次
  39.             延时 10000 毫秒
  40.             （键盘）按下 "Esc" 键
  41.             延时 164 毫秒
  42.             （键盘）弹起 "Esc" 键
  43.             延时 500 毫秒
  44.             注释：防空邮件死循环
  45.             令 getEmailflag = getEmailflag + 1
  46.             如果 getEmailflag > 4 则
  47.                 令 tempF = false
  48.             条件结束
  49.         否则
  50.             令 tempF = false
  51.         条件结束
  52.     循环结束
  53. 函数结束