- Call 注册()
- //<>------------------------------
- hwnd = dm.GetMousePointWindow()
- 在调试状态下向调试窗口输出 hwnd
- //dm.MoveWindow hwnd,-540,15
- 延时1000毫秒
- dm_ret = dm.BindWindow(hwnd,"dx2","windows2","dx",1)
- 延时200毫秒
- 如果表达式 (dm_ret=0 Then) 为真,则
- 弹出窗口 "绑定“失败”"
- ExitScript
- End If
- //模拟==================================
- 设置模拟方式
- 设置模拟方式
- 设置模拟方式
- 设置模拟方式
- //大循环次
- 循环 8 遍
- 标记 查找赛利亚
- 标记 查找赛利亚
- 标记 查找赛利亚
- //查找赛利亚============================
- do
- dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚.bmp","000000",0.9,0,intX,intY)
- 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
- dm.MoveTo intX+275,intY+50
- 延时200毫秒
- dm.LeftDoubleClick
- Exit Do
- End If
- loop
- //找到赛利亚点物===========================
- do
- dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚2.bmp","000000",0.9,0,intX,intY)
- 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
- dm.MoveTo intX-20,intY+50
- 延时200毫秒
- dm.LeftDoubleClick
- Exit Do
- End If
- loop
- //进入商店买腰带===============================
- 循环 32 遍
- dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚3.bmp","000000",0.9,0,intX,intY)
- 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
- dm.MoveTo 213,360
- 延时200毫秒
- dm.LeftDoubleClick
- End If
- Next
- //按ESC关闭===============================
- 延时200毫秒
- dm.KeyPress 27
- 延时200毫秒
- //选按上===============================
- dm.KeyDown 38
- 延时300毫秒
- dm.KeyUp 38
- //在按下===============================
- dm.KeyDown 40
- 延时700毫秒
- dm.KeyUp 40
- //打开分解机===============================
- do
- dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚4.bmp","000000",0.7,0,intX,intY)
- 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
- dm.KeyPress 84
- 延时200毫秒
- Exit Do
- End If
- loop
- // 输入9999===============================
- do
- dm_ret = dm.FindPic(0,0,2000,2000,"赛利亚5.bmp","000000",0.9,0,intX,intY)
- 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
- 如果表达式 (intX >= 0 and intY >= 0 Then) 为真,则
- dm.MoveTo intX,intY+55
- 延时500毫秒
- dm.KeyPress 57
- 延时100毫秒
- dm.KeyPress 57
- 延时100毫秒
- dm.KeyPress 57
- 延时100毫秒
- dm.KeyPress 57
- 延时100毫秒
- //点确认===============================
- //点确认===============================
- dm. KeyPress 13
- dm. KeyPress 13
- 延时1000毫秒
- dm.MoveTo 330,310
- 延时200毫秒
- dm.LeftClick
- dm.LeftClick
- 延时200毫秒
- Exit Do
- End If
- loop