- 令 Hwnd = Window.Find(0,"地下城与勇士")
- 延时 10 毫秒
- 调用 Window.Move(Hwnd,0,0)
- 延时 10 毫秒
- 令 sRect = Window.GetWindowRect(Hwnd)
- 延时 10 毫秒
- 定义变量 MyArray
- 令 MyArray = Split(sRect,"|")
- 令 x1 = Clng(MyArray(0))
- 令 y1 = Clng(MyArray(1))
- 令 x2 = Clng(MyArray(2))
- 令 y2 = Clng(MyArray(3))
- 设置模拟方式为:超级模拟
- 延时 100 毫秒
- 调用 开启分解()
- 子程序 开启分解()
- 循环 5 次
- 调用 购买腰带()
- 延时 100 毫秒
- 调用 赛利亚出门()
- 延时 100 毫秒
- 调用 开启分解机()
- 延时 100 毫秒
- (超级模拟鼠标)移动到 (x1 + 281, y1 + 353)
- 延时 500 毫秒
- (超级模拟鼠标)左键双击, 1次
- 调用 分解装备()
- 延时 1000 毫秒
- (超级模拟鼠标)移动到 (x1 + 452, y1 + 572)
- 延时 100 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 1000 毫秒
- (超级模拟鼠标)移动到 (x1 + 392, y1 + 458)
- 延时 300 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 3000 毫秒
- (超级模拟鼠标)移动到 (x1 + 399, y1 + 547)
- 延时 300 毫秒
- (超级模拟鼠标)左键双击, 2次
- 延时 9000 毫秒
- 循环结束
- 延时 3000 毫秒
- 调用 修理分解机()
- 延时 2000 毫秒
- 调用 开启分解()
- 延时 1000 毫秒
- 子程序结束
- 子程序 购买腰带()
- 设置模拟方式为:超级模拟
- 注释:点赛利亚
- (超级模拟鼠标)移动到 (x1 + 420, y1 + 295)
- 延时 10 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 10 毫秒
- 注释:点开物品店
- (超级模拟鼠标)移动到 (x1 + 468, y1 + 346)
- 延时 10 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 10 毫秒
- 注释:移动到蓝色1500腰带
- (超级模拟鼠标)移动到 (x1 + 354, y1 + 420)
- 延时 100 毫秒
- 注释:购买32次
- 循环 32 次
- (超级模拟鼠标)左键双击, 2次
- 延时 10 毫秒
- 循环结束
- 延时 1000 毫秒
- (超级模拟键盘)按 Esc 键, 1次
- 延时 100 毫秒
- 子程序结束
- 子程序 赛利亚出门()
- 延时 1000 毫秒
- 设置模拟方式为:超级模拟
- (超级模拟键盘)按下 Down 键
- 延时 7000 毫秒
- (超级模拟键盘)弹起 Down 键
- 延时 1000 毫秒
- 子程序结束
- 子程序 开启分解机()
- (超级模拟键盘)按 = 键, 1次
- 延时 100 毫秒
- (超级模拟键盘)按 5 键, 4次
- 延时 100 毫秒
- (超级模拟键盘)按 Enter 键, 1次
- 延时 100 毫秒
- (超级模拟鼠标)移动到 (x1 + 19, y1 + 435)
- 延时 888 毫秒
- (超级模拟鼠标)左键单击, 1次
- 延时 5000 毫秒
- (超级模拟鼠标)移动到 (x1 + 350, y1 + 273)
- 延时 1000 毫秒
- (超级模拟鼠标)左键双击, 1次
- 延时 100 毫秒
- 子程序结束
- 子程序 分解装备()
- 延时 1000 毫秒
- 注释:第一排
- (超级模拟鼠标)移动到 (x1 + 485, y1 + 324)
- 延时 500 毫秒