1. 令 Hwnd = Window.Find(0,"地下城与勇士")
  2. 延时 10 毫秒
  3. 调用 Window.Move(Hwnd,0,0)
  4. 延时 10 毫秒
  5. 令 sRect = Window.GetWindowRect(Hwnd)
  6. 延时 10 毫秒
  7. 定义变量 MyArray
  8. 令 MyArray = Split(sRect,"|")
  9. 令 x1 = Clng(MyArray(0))
  10. 令 y1 = Clng(MyArray(1))
  11. 令 x2 = Clng(MyArray(2))
  12. 令 y2 = Clng(MyArray(3))
  13. 设置模拟方式为:超级模拟
  14. 延时 100 毫秒
  15. 调用 开启分解()
  16. 子程序 开启分解()
  17.     循环 5 次
  18.         调用 购买腰带()
  19.         延时 100 毫秒
  20.         调用 赛利亚出门()
  21.         延时 100 毫秒
  22.         调用 开启分解机()
  23.         延时 100 毫秒
  24.         (超级模拟鼠标)移动到 (x1 + 281, y1 + 353)
  25.         延时 500 毫秒
  26.         (超级模拟鼠标)左键双击, 1次
  27.         调用 分解装备()
  28.         延时 1000 毫秒
  29.         (超级模拟鼠标)移动到 (x1 + 452, y1 + 572)
  30.         延时 100 毫秒
  31.         (超级模拟鼠标)左键单击, 1次
  32.         延时 1000 毫秒
  33.         (超级模拟鼠标)移动到 (x1 + 392, y1 + 458)
  34.         延时 300 毫秒
  35.         (超级模拟鼠标)左键单击, 1次
  36.         延时 3000 毫秒
  37.         (超级模拟鼠标)移动到 (x1 + 399, y1 + 547)
  38.         延时 300 毫秒
  39.         (超级模拟鼠标)左键双击, 2次
  40.         延时 9000 毫秒
  41.     循环结束
  42.     延时 3000 毫秒
  43.     调用 修理分解机()
  44.     延时 2000 毫秒
  45.     调用 开启分解()
  46.     延时 1000 毫秒
  47. 子程序结束
  48. 子程序 购买腰带()
  49.     设置模拟方式为:超级模拟
  50.     注释:点赛利亚
  51.     (超级模拟鼠标)移动到 (x1 + 420, y1 + 295)
  52.     延时 10 毫秒
  53.     (超级模拟鼠标)左键单击, 1次
  54.     延时 10 毫秒
  55.     注释:点开物品店
  56.     (超级模拟鼠标)移动到 (x1 + 468, y1 + 346)
  57.     延时 10 毫秒
  58.     (超级模拟鼠标)左键单击, 1次
  59.     延时 10 毫秒
  60.     注释:移动到蓝色1500腰带
  61.     (超级模拟鼠标)移动到 (x1 + 354, y1 + 420)
  62.     延时 100 毫秒
  63.     注释:购买32次
  64.     循环 32 次
  65.         (超级模拟鼠标)左键双击, 2次
  66.         延时 10 毫秒
  67.     循环结束
  68.     延时 1000 毫秒
  69.     (超级模拟键盘)按 Esc 键, 1次
  70.     延时 100 毫秒
  71. 子程序结束
  72. 子程序 赛利亚出门()
  73.     延时 1000 毫秒
  74.     设置模拟方式为:超级模拟
  75.     (超级模拟键盘)按下 Down 键
  76.     延时 7000 毫秒
  77.     (超级模拟键盘)弹起 Down 键
  78.     延时 1000 毫秒
  79. 子程序结束
  80. 子程序 开启分解机()
  81.     (超级模拟键盘)按 = 键, 1次
  82.     延时 100 毫秒
  83.     (超级模拟键盘)按 5 键, 4次
  84.     延时 100 毫秒
  85.     (超级模拟键盘)按 Enter 键, 1次
  86.     延时 100 毫秒
  87.     (超级模拟鼠标)移动到 (x1 + 19, y1 + 435)
  88.     延时 888 毫秒
  89.     (超级模拟鼠标)左键单击, 1次
  90.     延时 5000 毫秒
  91.     (超级模拟鼠标)移动到 (x1 + 350, y1 + 273)
  92.     延时 1000 毫秒
  93.     (超级模拟鼠标)左键双击, 1次
  94.     延时 100 毫秒
  95. 子程序结束
  96. 子程序 分解装备()
  97.     延时 1000 毫秒
  98.     注释:第一排
  99.     (超级模拟鼠标)移动到 (x1 + 485, y1 + 324)
  100.     延时 500 毫秒