1. 令 A = Window.Foreground()
  2. 令 sRect = Window.GetClientRect(A)
  3. 令 MyArray = Split(Rect,"|")
  4. 令 Ux = CLng(MyArray(0))
  5. 令 Uy = CLng(MyArray(1))
  6. 标记 B
  7. 调用 Bkgnd.KeyDown(A,37)
  8. 延时 1000 毫秒
  9. 调用 Bkgnd.KeyUp(A,37)
  10. 延时 50 毫秒
  11. 调用 Bkgnd.KeyDown(A,39)
  12. 延时 1000 毫秒
  13. 调用 Bkgnd.KeyUp(A,39)
  14. 延时 50 毫秒
  15. 如果点 (246 + Ux,102 + Uy) 的颜色等于 "030334" 则
  16.     调用 Bkgnd.KeyPress(A,98)
  17. 条件结束
  18. 如果点 (99 + Ux,106 + Uy) 的颜色等于 "0" 则
  19.     调用 Bkgnd.KeyPress(A,103)
  20.     延时 1000 毫秒
  21.     调用 Bkgnd.KeyPress(A,13)
  22.     延时 1000 毫秒
  23.     调用 Bkgnd.KeyPress(A,13)
  24.     延时 1000 毫秒
  25.     调用 Bkgnd.LeftClick(A,259 + Ux,496 + Uy)
  26.     延时 500 毫秒
  27. 条件结束
  28. 如果点 (99 + UX,102 + Uy) 的颜色等于 "0" 则
  29.     调用 Bkgnd.KeyPress(A,103)
  30.     延时 1000 毫秒
  31.     调用 Bkgnd.KeyPress(A,39)
  32.     延时 1000 毫秒
  33.     调用 Bkgnd.KeyPress(A,13)
  34.     延时 1000 毫秒
  35.     调用 Bkgnd.KeyPress(A,13)
  36.     延时 1000 毫秒
  37.     调用 Bkgnd.LeftClick(A,259 + Ux,496 + Uy)
  38.     延时 500 毫秒
  39. 条件结束
  40. 如果点 (256 + Ux,261 + Uy) 的颜色等于 "24DAFF" 则
  41.     调用 Bkgnd.LeftClick(A,256 + Ux,261 + Uy)
  42. 条件结束
  43. 跳转到标记 B